2 # (c) Petr Baudis <pasky@suse.cz>
14 my $gcgi = Girocco
::CGI
->new('Project Settings');
17 my $name = $cgi->param('name');
18 $name =~ s
#.git$## if $name; #
20 unless (defined $name) {
21 print "<p>I need the project name as an argument now.</p>\n";
25 if (!Girocco
::Project
::valid_name
($name)) {
26 print "<p>Invalid project name. Go away, sorcerer.</p>\n";
30 if (!Girocco
::Project
::does_exist
($name)) {
31 print "<p>Sorry but the project $name does not exist. Now, how did you <em>get</em> here?!</p>\n";
35 my $proj = Girocco
::Project
->load($name);
36 $proj or die "not found project $name, that's really weird!";
38 if ($cgi->param('email')) {
39 # submitted, let's see
40 if ($proj->cgi_fill($gcgi) and $proj->authenticate($gcgi) and $proj->update) {
41 print "<p>Project successfuly updated.</p>\n";
45 # $proj may be insane now but that's actually good for us since we'll let the
46 # user fix the invalid values she entered
47 my %h = $proj->form_defaults;
50 <p>Here you can adjust the settings of project $h{name}. Go wild.
52 if ($proj->{mirror
}) {
54 Since this is a mirrored project, you can opt to remove it from the site as well.
55 Just <a href="delproj.cgi?name=$h{name}">delete it</a>.</p>
59 Though you can currently enable access only for a single user at a time
60 so perhaps you will need to click a lot. Sorry! (Patches welcome.)</p>
66 <tr><td class="formlabel">Project name:</td><td><a href="$Girocco::Config::gitweburl/$h{name}.git">$h{name}</a>.git
67 <input type="hidden" name="name" value="$h{name}" /></td></tr>
68 <tr><td class="formlabel"><strong>Admin password:</strong></td><td>
69 <input type="password" name="cpwd" /> <sup><a href="pwproj.cgi?name=$name" class="ctxaction">(forgot password?)</a></sup></td></tr>
70 <tr><td class="formlabel">New admin password (twice):<br />
71 <em>(leave empty to keep it the same)</em></td><td>
72 <input type="password" name="pwd" /><br /><input type="password" name="pwd2" /><br />
74 <tr><td class="formlabel">E-mail contact:</td><td><input type="text" name="email" value="$h{email}" /></td></tr>
77 if ($proj->{mirror
}) {
78 print "<tr><td class=\"formlabel\">Repository URL:</td><td><input type=\"text\" name=\"url\" value=\"$h{url}\" /></td></tr>\n";
81 <tr><td class="formlabel">Users:</td><td>
84 $Girocco::Config
::manage_users
and print "<p>Only <a href=\"reguser.cgi\">registered users</a> can push.</p>";
85 if ($Girocco::Config
::mob
and not grep { $_ eq $Girocco::Config
::mob
} @
{$h{users
}}) {
86 print "<p><em>(Please consider adding the <tt>$Girocco::Config::mob</tt> user.\n";
87 print "<sup><a href=\"$Girocco::Config::htmlurl/mob.html\">(learn more)</a></sup>)\n";
90 foreach my $user (@
{$h{users
}}) {
91 print "<li><input type=\"checkbox\" name=\"user\" value=\"$user\" checked=\"1\" /> $user</li>\n";
94 <li>Add user: <input type="text" name="user" /></li>
101 <tr><td class="formlabel">Homepage URL:</td><td><input type="text" name="hp" value="$h{hp}" /></td></tr>
102 <tr><td class="formlabel">Description:</td><td><input type="text" name="desc" value="$h{desc}" size="80" /></td></tr>
103 <tr><td class="formlabel">README (HTML, lt 8kb):</td><td><textarea name="README" rows="5" cols="80">$h{README}</textarea></td></tr>
104 <tr><td></td><td><input type="submit" name="y0" value="Update" /></td></tr>