2 # (c) Petr Baudis <pasky@suse.cz>
15 <script type="text/javascript">
17 function adduseritem(elem)
19 var inp = document.createElement('input');
22 var li = document.createElement('li');
23 li.appendChild(document.createTextNode('Add user: '));
25 elem.parentNode.insertBefore(li, elem);
30 my $gcgi = Girocco
::CGI
->new('Project Settings', undef, $script);
33 my $name = $cgi->param('name');
34 $name =~ s
#\.git$## if $name; #
36 unless (defined $name) {
37 print "<p>I need the project name as an argument now.</p>\n";
41 if (!Girocco
::Project
::valid_name
($name)) {
42 print "<p>Invalid project name. Go away, sorcerer.</p>\n";
46 if (!Girocco
::Project
::does_exist
($name)) {
47 print "<p>Sorry but the project $name does not exist. Now, how did you <em>get</em> here?!</p>\n";
51 my $proj = Girocco
::Project
->load($name);
52 $proj or die "not found project $name, that's really weird!";
54 if ($cgi->param('y0')) {
55 # submitted, let's see
56 if ($proj->cgi_fill($gcgi) and $proj->authenticate($gcgi) and $proj->update) {
57 print "<p>Project successfully updated.</p>\n";
58 if ($proj->{clone_failed
}) {
59 print "<p>Please <a href=\"mirrorproj.cgi?name=$name\">pass onwards</a>.</p>\n";
60 print "<script language=\"javascript\">document.location='mirrorproj.cgi?name=$name'</script>\n";
66 # $proj may be insane now but that's actually good for us since we'll let the
67 # user fix the invalid values she entered
68 my %h = $proj->form_defaults;
71 <p>Here you can adjust the settings of project $h{name}. Go wild.
73 if ($proj->{mirror
}) {
75 Since this is a mirrored project, you can opt to remove it from the site as well.
76 Just <a href="delproj.cgi?name=$h{name}">delete it</a>.</p>
80 Use the <b>+</b> button to enable access for more than a single user at a time.</p>
84 my $button_label = $proj->{clone_failed
} ?
'Restart Mirroring' : 'Update';
89 <tr><td class="formlabel">Project name:</td><td><a href="$Girocco::Config::gitweburl/$h{name}.git">$h{name}</a>.git
90 <input type="hidden" name="name" value="$h{name}" /></td></tr>
92 if ($Girocco::Config
::project_passwords
) {
94 <tr><td class="formlabel"><strong>Admin password:</strong></td><td>
95 <input type="password" name="cpwd" /> <sup><a href="pwproj.cgi?name=$name" class="ctxaction">(forgot password?)</a></sup></td></tr>
96 <tr><td class="formlabel">New admin password (twice):<br />
97 <em>(leave empty to keep it the same)</em></td><td>
98 <input type="password" name="pwd" /><br /><input type="password" name="pwd2" /><br />
102 if ($Girocco::Config
::project_owners
eq 'email') {
104 <tr><td class="formlabel">E-mail contact:</td><td><input type="text" name="email" value="$h{email}" /></td></tr>
108 if ($proj->{mirror
}) {
109 print "<tr><td class=\"formlabel\">Repository URL:</td><td><input type=\"text\" name=\"url\" value=\"$h{url}\" /></td></tr>\n";
112 <tr><td class="formlabel">Users:</td><td>
115 $Girocco::Config
::manage_users
and print "<p>Only <a href=\"reguser.cgi\">registered users</a> can push.</p>";
116 if ($Girocco::Config
::mob
and not grep { $_ eq $Girocco::Config
::mob
} @
{$h{users
}}) {
117 print "<p><em>(Please consider adding the <tt>$Girocco::Config::mob</tt> user.\n";
118 print "<sup><a href=\"$Girocco::Config::htmlurl/mob.html\">(learn more)</a></sup>)\n";
121 foreach my $user (@
{$h{users
}}) {
123 $mlm = " <sup><a href=\"$Girocco::Config::htmlurl/mob.html\">(learn more)</a></sup>"
124 if $Girocco::Config
::mob
&& $user eq $Girocco::Config
::mob
;
125 print "<li><input type=\"checkbox\" name=\"user\" value=\"$user\" checked=\"1\" /> $user$mlm</li>\n";
128 <li>Add user: <input type="text" name="user" /></li>
129 <button type="button" onclick="adduseritem(this)"><b>+</b></button>
135 print '<tr><td class="formlabel">Default branch:</td><td><select size="1" name="HEAD">';
136 for ($proj->get_heads) {
137 my $selected = $proj->{HEAD
} eq $_ ?
' selected="selected"' : '';
138 print "<option$selected>".Girocco
::CGI
::html_esc
($_)."</option>";
140 print '</select></td></tr>
143 print '<tr><td class="formlabel">Tags (select to delete):</td><td>';
144 print '<select size="6" name="tags" multiple="multiple">';
145 for ($proj->get_ctag_names) {
146 print '<option>'.Girocco
::CGI
::html_esc
($_).'</option>';
148 print '</select></td></tr>
152 $gcgi->print_form_fields($Girocco::Project
::metadata_fields
, \
%h, @Girocco::Config
::project_fields
);
155 <tr><td></td><td><input type="submit" name="y0" value="$button_label" /></td></tr>