cgi/regproj.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 $gcgi = Girocco::CGI->new('Project Registration');
  15 my $cgi = $gcgi->cgi;
  16
  17 my $name = $cgi->param('name');
  18 $name ||= '';
  19
  20 my $fork = $cgi->param('fork');
  21 if ($fork) {
  22         $fork =~ s/\.git$//;
  23         $name = "$fork/$name";
  24 }
  25
  26 if ($cgi->param('mode')) {
  27         # submitted, let's see
  28         # FIXME: racy, do a lock
  29         Girocco::Project::valid_name($name)
  30                 and Girocco::Project::does_exist($name)
  31                 and $gcgi->err("Project with the name '$name' already exists.");
  32         $name =~ /\.git$/
  33                 and $gcgi->err("Project name should not end with <tt>.git</tt> - I'll add that automagically.");
  34
  35         if (lc($cgi->param('mail')) ne lc('sun')) {
  36                 print "<p>Sorry, invalid captcha check.</p>";
  37                 exit;
  38         }
  39
  40         my $mirror = $cgi->param('mode') eq 'mirror';
  41
  42         if ($mirror and $Girocco::Config::mirror_sources and not $cgi->param('url')) {
  43                 my $src = $cgi->param('source'); $src ||= '';
  44                 my $source; $src and $source = (grep { $_->{label} eq $src } @$Girocco::Config::mirror_sources)[0];
  45                 $source or $gcgi->err("Invalid or no mirror source $src specified");
  46
  47                 my $n = $source->{label};
  48                 my $u = $source->{url};
  49                 if ($source->{inputs}) {
  50                         for my $i (0..$#{$source->{inputs}}) {
  51                                 my $v = $cgi->param($n.'_i'.$i);
  52                                 unless ($v) {
  53                                         $gcgi->err("Source specifier '".$source->{inputs}->[$i]->{label}."' not filled.");
  54                                         next;
  55                                 }
  56                                 my $ii = $i + 1;
  57                                 $u =~ s/%$ii/$v/g;
  58                         }
  59                 } else {
  60                         $u = $cgi->param($n.'_url');
  61                         $u or $gcgi->err("Source URL not specified");
  62                 }
  63                 $cgi->param('url', $u);
  64         }
  65
  66         my $proj = Girocco::Project->ghost($name, $mirror);
  67         if ($proj->cgi_fill($gcgi)) {
  68                 if ($mirror) {
  69                         unless ($Girocco::Config::mirror) {
  70                                 $gcgi->err("Mirroring mode is not enabled at this site.");
  71                                 exit;
  72                         }
  73                         $proj->premirror;
  74                         print "<p>Please <a href=\"mirrorproj.cgi?name=$name\">pass onwards</a>.</p>\n";
  75                         print "<script language=\"javascript\">document.location='mirrorproj.cgi?name=$name'</script>\n";
  76
  77                 } else {
  78                         unless ($Girocco::Config::push) {
  79                                 $gcgi->err("Push mode is not enabled at this site.");
  80                                 exit;
  81                         }
  82                         $proj->conjure;
  83                         print <<EOT;
  84 <p>
  85 Project <a href="$Girocco::Config::gitweburl/$name.git">$name</a> successfuly set up.</p>
  86 EOT
  87                         print "<p>The push URL for the project is <tt>$Girocco::Config::pushurl/$name.git</tt>.</p>";
  88                         print "<p>The read-only URL for the project is <tt>" .
  89                                 join("/$name.git</tt>, <tt>", $Girocco::Config::gitpullurl, $Girocco::Config::httppullurl) .
  90                                 "/$name.git</tt>.</p>" if $Girocco::Config::gitpullurl or $Girocco::Config::httppullurl;
  91                         my $regnotice = '';
  92                         if ($Girocco::Config::manage_users) {
  93                                 $regnotice = <<EOT;
  94 Everyone who wants to push must <a href="reguser.cgi">register himself as a user</a> first.
  95 (One user can have push access to multiple projects and multiple users can have push access to one project.)
  96 EOT
  97                         }
  98                         print <<EOT;
  99 <p>You can <a href="editproj.cgi?name=$name">assign users</a> now
 100 - don't forget to assign yourself as a user as well if you want to push!
 101 $regnotice
 102 </p>
 103 <p>Note that you cannot clone an empty repository since it contains no branches; you need to make the first push from an existing repository.</p>
 104 <p>You may experience permission problems if you try to push right now.
 105 If so, that should get fixed automagically in few minutes, please be patient.</p>
 106 <p>Enjoy yourself, and have a lot of fun!</p>
 107 EOT
 108                 }
 109                 exit;
 110         }
 111 }
 112
 113 my $mirror_mode = {
 114         name => 'mirror',
 115         desc => 'our dedicated git monkeys will check another repository at a given URL every hour and mirror any new updates',
 116         pwpurp => 'mirroring URL'
 117 };
 118 my $push_mode = {
 119         name => 'push',
 120         desc => 'registered users with appropriate permissions will be able to push to the repository',
 121         pwpurp => 'list of users allowed to push'
 122 };
 123
 124 my $me = $Girocco::Config::mirror ? $mirror_mode : undef;
 125 my $pe = $Girocco::Config::push ? $push_mode : undef;
 126 if ($me and $pe) {
 127         print <<EOT;
 128 <p>At this site, you can host a project in one of two modes: $me->{name} mode and $pe->{name} mode.
 129 In the <b>$me->{name} mode</b>, $me->{desc}.
 130 In the <b>$pe->{name} mode</b>, $pe->{desc}.
 131 You currently cannot switch freely between those two modes;
 132 if you want to switch from mirroring to push mode, just delete and recreate
 133 the project. If you want to switch the other way, please contact the administrator.</p>
 134 EOT
 135 } else {
 136         my $mode = $me ? $me : $pe;
 137         print "<p>This site will host your project in a <b>$mode->{name} mode</b>: $mode->{desc}.</p>\n";
 138 }
 139
 140 my @pwpurp = ();
 141 push @pwpurp, $me->{pwpurp} if $me;
 142 push @pwpurp, $pe->{pwpurp} if $pe;
 143 my $pwpurp = join(', ', @pwpurp);
 144
 145 if ($Girocco::Config::project_passwords) {
 146         print <<EOT;
 147 <p>You will need the admin password to adjust the project settings later
 148 ($pwpurp, project description, ...).</p>
 149 EOT
 150 }
 151
 152 unless ($name =~ m#/#) {
 153         print <<EOT;
 154 <p>Note that if your project is a <strong>fork of an existing project</strong>
 155 (this does not mean anything socially bad), please instead go to the project's
 156 gitweb page and click the 'fork' link in the top bar. This way, all of us
 157 will save bandwidth and more importantly, your project will be properly categorized.
 158 EOT
 159         $me and print <<EOT;
 160 If your project is a fork but the existing project is not registered here yet, please
 161 consider registering it first; you do not have to be involved in the project
 162 in order to register it here as a mirror.</p>
 163 EOT
 164 } else {
 165         my $xname = $name; $xname =~ s#/$#.git#; #
 166         my ($pushnote1, $pushnote2);
 167         if ($pe) {
 168                 $pushnote1 = " and you will need to push only the data <em>you</em> created, not the whole project";
 169                 $pushnote2 = <<EOT;
 170 (That will be done automagically, you do not need to specify any extra arguments during the push.
 171 EOT
 172         }
 173         print <<EOT;
 174 <p>Great, your project will be created as a subproject of the '$xname' project.
 175 This means that it will be properly categorized$pushnote1. $pushnote2</p>
 176 EOT
 177 }
 178
 179 my $modechooser;
 180 my $mirrorentry = '';
 181 if ($me) {
 182         $mirrorentry = '<tr id="mirror_url"><td class="formlabel">Mirror source:</td><td>';
 183         if (!$Girocco::Config::mirror_sources) {
 184                 $mirrorentry .= '<input type="text" name="url" />';
 185         } else {
 186                 $mirrorentry .= "<table>"."\n";
 187                 my $checked = ' checked=checked';
 188                 foreach my $source (@$Girocco::Config::mirror_sources) {
 189                         my $n = $source->{label};
 190                         $mirrorentry .= '<tr><td class="formlabel">';
 191                         $mirrorentry .= '<p><input type="radio" name="source" value="'.$n.'" '.$checked.' />';
 192                         $mirrorentry .= $n;
 193                         $mirrorentry .= '</p></td><td>';
 194                         $checked = '';
 195                         if ($source->{desc}) {
 196                                 $mirrorentry .= '<p>';
 197                                 $source->{link} and $mirrorentry .= '<a href="'.$source->{link}.'">';
 198                                 $mirrorentry .= $source->{desc};
 199                                 $source->{link} and $mirrorentry .= '</a>';
 200                                 $mirrorentry .= '</p>';
 201                         }
 202                         if (!$source->{inputs}) {
 203                                 $mirrorentry .= '<p>URL: <input type="text" name="'.$n.'_url" /></p>';
 204                         } else {
 205                                 $mirrorentry .= '<p>';
 206                                 my $i = 0;
 207                                 foreach my $input (@{$source->{inputs}}) {
 208                                         $mirrorentry .= $input->{label};
 209                                         my ($l, $v) = ($n.'_i'.$i, '');
 210                                         if ($cgi->param($l)) {
 211                                                 $v = ' value="'.html_esc($cgi->param($l)).'"';
 212                                         }
 213                                         $mirrorentry .= ' <input type="text" name="'.$l.'"'.$v.' />';
 214                                         $mirrorentry .= $input->{suffix} if $input->{suffix};
 215                                         $mirrorentry .= '&nbsp; &nbsp;';
 216                                 } continue { $i++; }
 217                                 $mirrorentry .= '</p>';
 218                         }
 219                         $mirrorentry .= '</td></tr>'."\n";
 220                 }
 221                 $mirrorentry .= "</table>";
 222         }
 223         $mirrorentry .= '</td></tr>';
 224 }
 225 if ($me and $pe) {
 226         $modechooser = <<EOT;
 227 <tr><td class="formlabel">Hosting mode:</td><td><p>
 228 <input type="radio" name="mode" value="mirror" id="mirror_radio" checked="checked" />Mirror mode<br />
 229 <input type="radio" name="mode" value="push" id="push_radio" />Push mode
 230 </p></td></tr>
 231 EOT
 232 } else {
 233         $modechooser = '<input type="hidden" name="mode" value="'.($me ? $me->{name} : $pe->{name}).'" />';
 234 }
 235
 236 my $forkentry = '';
 237 if ($name =~ m#/#) {
 238         $name =~ s#^(.*)/##;
 239         $forkentry = '<input type="hidden" name="fork" value="'.$1.'" />'.$1.'/'
 240 }
 241
 242 print <<EOT;
 243 $Girocco::Config::legalese
 244 <form method="post">
 245 <table class="form">
 246 <tr><td class="formlabel">Project name:</td><td>$forkentry<input type="text" name="name" value="$name" />.git</td></tr>
 247 EOT
 248 if ($Girocco::Config::project_passwords) {
 249         print <<EOT;
 250 <tr><td class="formlabel">Admin password (twice):</td><td><input type="password" name="pwd" /><br /><input type="password" name="pwd2" /></td></tr>
 251 EOT
 252 }
 253 if ($Girocco::Config::project_owners eq 'email') {
 254         print <<EOT;
 255 <tr><td class="formlabel">E-mail contact:</td><td><input type="text" name="email" /></td></tr>
 256 EOT
 257 }
 258 print $modechooser;
 259 print $mirrorentry;
 260
 261 $gcgi->print_form_fields($Girocco::Project::metadata_fields, undef, @Girocco::Config::project_fields);
 262
 263 print <<EOT;
 264 EOT
 265
 266 print <<EOT;
 267 <tr><td class="formlabel">Anti-captcha - please<br />enter name of our nearest star:</td><td><input type="text" name="mail" /></td></tr>
 268 <tr><td></td><td><input type="submit" name="y0" value="Register" /></td></tr>
 269 </table>
 270 </form>
 271 EOT