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