cgi/editproj.cgi

   1 #!/usr/bin/perl
   2 # (c) Petr Baudis <pasky@suse.cz>
   3 # GPLv2
   4
   5 use strict;
   6 use warnings;
   7
   8 use lib ".";
   9 use Girocco::CGI;
  10 use Girocco::Config;
  11 use Girocco::Project;
  12 use Girocco::Util;
  13
  14 my $script = <<'EOT';
  15 <script type="text/javascript">
  16 // <![CDATA[
  17 function adduseritem(elem)
  18 {
  19         var inp = document.createElement('input');
  20         inp.type = 'text';
  21         inp.name = 'user';
  22         var li = document.createElement('li');
  23         li.appendChild(document.createTextNode('Add user: '));
  24         li.appendChild(inp);
  25         elem.parentNode.insertBefore(li, elem);
  26 }
  27 // ]]>
  28 </script>
  29 EOT
  30 my $gcgi = Girocco::CGI->new('Project Settings', undef, $script);
  31 my $cgi = $gcgi->cgi;
  32
  33 my $name = $cgi->param('name');
  34 $name =~ s#\.git$## if $name; #
  35
  36 unless (defined $name) {
  37         print "<p>I need the project name as an argument now.</p>\n";
  38         exit;
  39 }
  40
  41 if (!Girocco::Project::valid_name($name)) {
  42         print "<p>Invalid project name. Go away, sorcerer.</p>\n";
  43         exit;
  44 }
  45
  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";
  48         exit;
  49 }
  50
  51 my $proj = Girocco::Project->load($name);
  52 $proj or die "not found project $name, that's really weird!";
  53
  54 if (($cgi->param('y0') eq 'Update' || $cgi->param('y0') eq 'Restart Mirroring') && $cgi->request_method eq 'POST') {
  55         # submitted, let's see
  56         if ($proj->cgi_fill($gcgi) and $proj->authenticate($gcgi) and $proj->update) {
  57                 print "<p class=\"updated\">Project successfully updated.</p>\n";
  58                 if ($proj->{clone_failed}) {
  59                         print "<p>Please <a href=\"@{[url_path($Girocco::Config::webadmurl)]}".
  60                                 "/mirrorproj.cgi?name=$name\">pass onwards</a>.</p>\n";
  61                         print "<script language=\"javascript\">document.location=".
  62                                 "'@{[url_path($Girocco::Config::webadmurl)]}/mirrorproj.cgi?name=$name'</script>\n";
  63                         exit;
  64                 }
  65         }
  66 }
  67
  68 # $proj may be insane now but that's actually good for us since we'll let the
  69 # user fix the invalid values he or she entered
  70 my %h = $proj->form_defaults;
  71
  72 print <<EOT;
  73 <p>Here you may adjust the settings of project $h{name}. Go wild.
  74 EOT
  75 if ($proj->{mirror}) {
  76         print <<EOT;
  77 Since this is a mirrored project, you may opt to remove it from the site as well.
  78 Just <a href="@{[url_path($Girocco::Config::webadmurl)]}/delproj.cgi?name=$h{name}">remove it</a>.</p>
  79 EOT
  80 } else {
  81         if ($proj->is_empty) {
  82                 print <<EOT;
  83 Since this is an empty project, you may opt to remove it from the site as well.
  84 Just <a href="@{[url_path($Girocco::Config::webadmurl)]}/delproj.cgi?name=$h{name}">remove it</a>.</p>
  85 EOT
  86         } else {
  87                 print <<EOT;
  88 You may
  89 <a href="@{[url_path($Girocco::Config::webadmurl)]}/delproj.cgi?name=$h{name}">request an authorization code</a> in order
  90 to remove this project from the site.</p>
  91 EOT
  92         }
  93         print <<EOT;
  94 <p>Use the <b>+</b> button to enable access for more than a single user at a time.</p>
  95 EOT
  96 }
  97
  98 my $button_label = $proj->{clone_failed} ? 'Restart Mirroring' : 'Update';
  99 my $showstatusopt = $proj->{mirror} && !$proj->{clone_failed} && !$proj->{clone_in_progress};
 100 my $statuschecked = $proj->{statusupdates} ? 'checked="checked"' : '';
 101
 102 print <<EOT;
 103 <form method="post" action="@{[url_path($Girocco::Config::webadmurl)]}/editproj.cgi">
 104 <table class="form">
 105 <tr><td class="formlabel">Project name:</td><td class="formdata"><a
 106         href="@{[url_path($Girocco::Config::gitweburl)]}/$h{name}.git">$h{name}</a>.git
 107         <input type="hidden" name="name" value="$h{name}" /></td></tr>
 108 EOT
 109 if ($Girocco::Config::project_passwords) {
 110         print <<EOT;
 111 <tr><td class="formlabel"><strong>Admin password:</strong></td><td>
 112         <input type="password" name="cpwd" /> <sup><a
 113         href="@{[url_path($Girocco::Config::webadmurl)]}/pwproj.cgi?name=$name"
 114         class="ctxaction">(forgot password?)</a></sup></td></tr>
 115 <tr><td class="formlabel">New admin password (twice):<br />
 116         <em>(leave empty to keep it the same)</em></td><td>
 117         <input type="password" name="pwd" /><br /><input type="password" name="pwd2" /><br />
 118         </td></tr>
 119 EOT
 120 }
 121 if ($Girocco::Config::project_owners eq 'email') {
 122         print <<EOT;
 123 <tr><td class="formlabel">E-mail contact:</td><td><input type="text" name="email" value="$h{email}" /></td></tr>
 124 EOT
 125 }
 126
 127 if ($proj->{mirror}) {
 128         print "<tr><td class=\"formlabel\">Repository URL:</td><td><input type=\"text\" name=\"url\" value=\"$h{url}\" /></td></tr>\n";
 129 } else {
 130         print <<EOT;
 131 <tr><td class="formlabel" style="vertical-align:middle">Users:</td><td>
 132 <ul>
 133 EOT
 134         $Girocco::Config::manage_users and print "<p>Only <a href=\"".
 135                 "@{[url_path($Girocco::Config::webadmurl)]}/reguser.cgi\">registered users</a> may push.</p>";
 136         if ($Girocco::Config::mob and not grep { $_ eq $Girocco::Config::mob } @{$h{users}}) {
 137                 print "<p><em>(Please consider adding the <tt>$Girocco::Config::mob</tt> user.\n";
 138                 print "<sup><a href=\"@{[url_path($Girocco::Config::htmlurl)]}/mob.html\">(learn more)</a></sup>)\n";
 139                 print "</em></p>\n";
 140         }
 141         foreach my $user (@{$h{users}}) {
 142                 my $mlm = '';
 143                 $mlm = " <sup><a href=\"@{[url_path($Girocco::Config::htmlurl)]}/mob.html\">(learn more)</a></sup>"
 144                         if $Girocco::Config::mob && $user eq $Girocco::Config::mob;
 145                 print "<li><input type=\"checkbox\" name=\"user\" value=\"$user\" checked=\"1\" /> $user$mlm</li>\n";
 146         }
 147         print <<EOT;
 148 <li>Add user: <input type="text" name="user" /></li>
 149 <button type="button" onclick="adduseritem(this)"><b>+</b></button>
 150 </ul>
 151 </td></tr>
 152 EOT
 153 }
 154
 155 print '<tr><td class="formlabel">Default branch:</td><td><select size="1" name="HEAD">';
 156 for ($proj->get_heads) {
 157         my $selected = $proj->{HEAD} eq $_ ? ' selected="selected"' : '';
 158         print "<option$selected>".Girocco::CGI::html_esc($_)."</option>";
 159 }
 160 print '</select></td></tr>
 161 ';
 162
 163 print '<tr><td class="formlabel">Tags (select to delete):</td><td>';
 164 print '<select size="6" name="tags" multiple="multiple">';
 165 for ($proj->get_ctag_names) {
 166         print '<option>'.Girocco::CGI::html_esc($_).'</option>';
 167 }
 168 print '</select></td></tr>
 169 ';
 170
 171
 172 $gcgi->print_form_fields($Girocco::Project::metadata_fields, \%h, @Girocco::Config::project_fields);
 173 print <<EOT if $showstatusopt;
 174 <tr><td class="formlabel">Enable status update emails:</td>
 175 <td class="formdata" style="padding-left:1ex"
 176 ><input type="hidden" name="setstatusupdates" value="1"
 177 /><input type="checkbox" name="statusupdates" value="1" $statuschecked /></td></tr>
 178 EOT
 179 print <<EOT;
 180 <tr><td class="formlabel"></td><td><input type="submit" name="y0" value="$button_label" /></td></tr>
 181 </table>
 182 </form>
 183 EOT