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 defined($name) or $name = '';
  19
  20 my $fork = $cgi->param('fork');
  21 if (defined($fork)) {
  22         $fork =~ s/\.git$//;
  23         $name = "$fork/$name";
  24 }
  25 my $escname = $name;
  26 $escname =~ s/[+]/%2B/g;
  27 my $mirror_mode_set = 1;
  28 if ($Girocco::Config::mirror && $Girocco::Config::push) {
  29         $mirror_mode_set = 0 unless ($Girocco::Config::initial_regproj_mode||'') eq 'mirror';
  30 }
  31 my %values = (
  32         desc => '',
  33         email => '',
  34         hp => '',
  35         mirror => $mirror_mode_set,
  36         cleanmirror => 1,
  37         notifymail => '',
  38         reverseorder => 1,
  39         summaryonly => '',
  40         notifytag => '',
  41         notifyjson => '',
  42         notifycia => '',
  43         README => '',
  44         source => 'Anywhere',
  45         url => '',
  46         Anywhere_url => '',
  47         GitHub_i0 => '',
  48         GitHub_i1 => '',
  49         Gitorious_i0 => '',
  50         Gitorious_i1 => '',
  51 );
  52 $values{'mirror'} = 0 unless $Girocco::Config::mirror;
  53 $values{'mirror'} = 0 if $Girocco::Config::push && $name =~ m#/#;
  54 if (@{[$name =~ m#/#g]} > 5) {
  55         $gcgi->err("Unable to create a fork more than five levels deep, please fork the parent project instead.");
  56         exit;
  57 }
  58 my $y0 = $cgi->param('y0') || '';
  59 if ($cgi->param('mode') && $y0 eq 'Register' && $cgi->request_method eq 'POST') {
  60         # submitted, let's see
  61         # FIXME: racy, do a lock
  62         my $validname = 1;
  63         if (Girocco::Project::valid_name($name)) {
  64                 Girocco::Project::does_exist($name,1)
  65                         and $gcgi->err("Project with the name '$name' already exists.");
  66         } else {
  67                 $validname = 0;
  68                 if ($name =~ /^(.*)\.git$/i && Girocco::Project::valid_name($1)) {
  69                         $gcgi->err("Project name should not end with <tt>.git</tt> - I'll add that automagically.");
  70                 } else {
  71                         my $htmlname = html_esc($name);
  72                         $gcgi->err(
  73                                 "Invalid project name \"$htmlname\" ".
  74                                 "(contains bad characters or is a reserved project name). ".
  75                                 "See <a href=\"@{[url_path($Girocco::Config::htmlurl)]}/names.html\">names</a>.");
  76                 }
  77         }
  78
  79         my $check = $cgi->param('mail');
  80         $check =~ tr/ \t/ /s; $check =~ s/^ //; $check =~ s/ $//;
  81         if ($check !~ /^(?:(?:(?:the )?sun)|(?:sol))$/i) {
  82                 $gcgi->err("Sorry, invalid captcha check.");
  83         }
  84
  85         foreach my $key (keys(%values)) {
  86                 $values{$key} = html_esc($cgi->param($key));
  87         }
  88         my $mirror = ($cgi->param('mode')||'') eq 'mirror';
  89         $values{'mirror'} = $Girocco::Config::mirror && $mirror ? 1 : 0;
  90
  91         if ($mirror and $Girocco::Config::mirror_sources and not $cgi->param('url')) {
  92                 my $src = $cgi->param('source'); $src ||= '';
  93                 my $source; $src and $source = (grep { $_->{label} eq $src } @$Girocco::Config::mirror_sources)[0];
  94                 $source or $gcgi->err("Invalid or no mirror source $src specified");
  95
  96                 my $n = $source->{label};
  97                 my $u = $source->{url};
  98                 if ($source->{inputs}) {
  99                         for my $i (0..$#{$source->{inputs}}) {
 100                                 my $v = $cgi->param($n.'_i'.$i);
 101                                 unless ($v) {
 102                                         $gcgi->err("Source specifier '".$source->{inputs}->[$i]->{label}."' not filled.");
 103                                         next;
 104                                 }
 105                                 my $ii = $i + 1;
 106                                 $u =~ s/%$ii/$v/g;
 107                         }
 108                 } else {
 109                         $u = $cgi->param($n.'_url');
 110                         $u or $gcgi->err("Source URL not specified");
 111                 }
 112                 $cgi->param('url', $u);
 113         }
 114
 115         my $proj = Girocco::Project->ghost($name, $mirror) if $validname;
 116         if ($validname && $proj->cgi_fill($gcgi)) {
 117                 if ($mirror) {
 118                         unless ($Girocco::Config::mirror) {
 119                                 $gcgi->err("Mirroring mode is not enabled at this site.");
 120                                 exit;
 121                         }
 122                         $proj->premirror;
 123                         $proj->clone;
 124                         print "<p>Please <a href=\"@{[url_path($Girocco::Config::webadmurl)]}/mirrorproj.cgi?name=$escname\">pass onwards</a>.</p>\n";
 125                         print "<script language=\"javascript\">document.location='@{[url_path($Girocco::Config::webadmurl)]}/mirrorproj.cgi?name=$escname'</script>\n";
 126
 127                 } else {
 128                         unless ($Girocco::Config::push) {
 129                                 $gcgi->err("Push mode is not enabled at this site.");
 130                                 exit;
 131                         }
 132                         $proj->conjure;
 133                         print <<EOT;
 134 <p>Project <a href="@{[url_path($Girocco::Config::gitweburl)]}/$name.git">$name</a> successfully set up.</p>
 135 EOT
 136                         my @pushurls = ();
 137                         push(@pushurls, "<tt>$Girocco::Config::pushurl/$name.git</tt>") if $Girocco::Config::pushurl;
 138                         push(@pushurls, "<tt>$Girocco::Config::httpspushurl/$name.git</tt> " .
 139                                 "<sup><a href=\"@{[url_path($Girocco::Config::htmlurl)]}/httpspush.html\">(learn more)</a></sup>")
 140                                 if $Girocco::Config::httpspushurl;
 141                         print "<p>The push URL(s) for the project: " . join(", ", @pushurls) . "</p>" if @pushurls;
 142                         my @pullurls = ();
 143                         push(@pullurls, $Girocco::Config::gitpullurl) if $Girocco::Config::gitpullurl;
 144                         push(@pullurls, $Girocco::Config::httppullurl) if $Girocco::Config::httppullurl;
 145                         print "<p>The read-only URL(s) for the project: <tt>" .
 146                                 join("/$name.git</tt>, <tt>", @pullurls) .
 147                                 "/$name.git</tt></p>" if @pullurls;
 148                         my $regnotice = '';
 149                         if ($Girocco::Config::manage_users) {
 150                                 $regnotice = <<EOT;
 151 Everyone who wants to push must <a href="@{[url_path($Girocco::Config::webadmurl)]}/reguser.cgi">register oneself as a user</a> first.
 152 (One user can have push access to multiple projects and multiple users can have push access to one project.)
 153 EOT
 154                         }
 155                         my $pushy = $Girocco::Config::pushurl || $Girocco::Config::httpspushurl;
 156                         my $pushyhint = '';
 157                         $pushyhint = " # <span style='font-family:sans-serif'><sup style='position:fixed'>" .
 158                                 "<a href=\"@{[url_path($Girocco::Config::htmlurl)]}/httpspush.html\">(learn more)</a></sup>" .
 159                                 "</span>" if $pushy =~ /^https:/i;
 160                         print <<EOT;
 161 <p>You can <a href="@{[url_path($Girocco::Config::webadmurl)]}/editproj.cgi?name=$escname">assign users</a> now
 162 - don't forget to assign yourself as a user as well if you want to push!
 163 $regnotice
 164 </p>
 165 <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.
 166 To import a new project, the procedure is roughly as follows:
 167 <pre>
 168   \$ git init
 169   \$ git add
 170   \$ git commit
 171   \$ git remote add origin $pushy/$name.git$pushyhint
 172   \$ git push --all origin
 173 </pre>
 174 </p>
 175 <p>Enjoy yourself, and have a lot of fun!</p>
 176 EOT
 177                 }
 178                 exit;
 179         }
 180 }
 181
 182 my $mirror_mode = {
 183         name => 'mirror',
 184         desc => 'our dedicated git monkeys will check another repository at a given URL every hour and mirror any new updates',
 185         pwpurp => 'mirroring URL'
 186 };
 187 my $push_mode = {
 188         name => 'push',
 189         desc => 'registered users with appropriate permissions will be able to push to the repository',
 190         pwpurp => 'list of users allowed to push'
 191 };
 192
 193 my $me = $Girocco::Config::mirror ? $mirror_mode : undef;
 194 my $pe = $Girocco::Config::push ? $push_mode : undef;
 195 if ($me and $pe) {
 196         print <<EOT;
 197 <p>At this site, you can host a project in one of two modes: $me->{name} mode and $pe->{name} mode.
 198 In the <b>$me->{name} mode</b>, $me->{desc}.
 199 In the <b>$pe->{name} mode</b>, $pe->{desc}.
 200 You currently cannot switch freely between those two modes;
 201 if you want to switch from mirroring to push mode or vice versa just delete and recreate
 202 the project.</p>
 203 EOT
 204 } else {
 205         my $mode = $me ? $me : $pe;
 206         print "<p>This site will host your project in a <b>$mode->{name} mode</b>: $mode->{desc}.</p>\n";
 207 }
 208
 209 my @pwpurp = ();
 210 push @pwpurp, $me->{pwpurp} if $me;
 211 push @pwpurp, $pe->{pwpurp} if $pe;
 212 my $pwpurp = join(', ', @pwpurp);
 213
 214 if ($Girocco::Config::project_passwords) {
 215         print <<EOT;
 216 <p>You will need the admin password to adjust the project settings later
 217 ($pwpurp, project description, ...).</p>
 218 EOT
 219 }
 220
 221 unless ($name =~ m#/#) {
 222         print <<EOT;
 223 <p>Note that if your project is a <strong>fork of an existing project</strong>
 224 (this does not mean anything socially bad), please instead go to the project's
 225 gitweb page and click the 'fork' link in the top bar. This way, all of us
 226 will save bandwidth and more importantly, your project will be properly categorized.</p>
 227 EOT
 228         $me and print <<EOT;
 229 <p>If your project is a fork but the existing project is not registered here yet, please
 230 consider registering it first; you do not have to be involved in the project
 231 in order to register it here as a mirror.</p>
 232 EOT
 233 } else {
 234         my $xname = $name; $xname =~ s#/$#.git#; #
 235         my ($pushnote1, $pushnote2);
 236         if ($pe) {
 237                 $pushnote1 = " and you will need to push only the data <em>you</em> created, not the whole project";
 238                 $pushnote2 = <<EOT;
 239  (That will be done automagically, you do not need to specify any extra arguments during the push.)
 240 EOT
 241         }
 242         print <<EOT;
 243 <p>Great, your project will be created as a subproject of the '$xname' project.
 244 This means that it will be properly categorized$pushnote1.$pushnote2</p>
 245 EOT
 246 }
 247
 248 my $modechooser;
 249 my $mirrorentry = '';
 250 if ($me) {
 251         $mirrorentry = '<tr id="mirror_url"><td class="formlabel" style="vertical-align:middle">Mirror source:</td><td>';
 252         if (!$Girocco::Config::mirror_sources) {
 253                 $mirrorentry .= "<input type='text' name='url' value='%values{'url'}' />";
 254         } else {
 255                 $mirrorentry .= "<table>"."\n";
 256                 foreach my $source (@$Girocco::Config::mirror_sources) {
 257                         my $n = $source->{label};
 258                         $mirrorentry .= '<tr><td class="formlabel">';
 259                         $mirrorentry .= '<p><input type="radio" class="mirror_sources" name="source" value="'.$n.'"'.
 260                                 ($n eq $values{'source'} ? ' checked="checked"' : '').' />';
 261                         $mirrorentry .= $n;
 262                         $mirrorentry .= '</p></td><td>';
 263                         if ($source->{desc}) {
 264                                 $mirrorentry .= '<p>';
 265                                 $source->{link} and $mirrorentry .= '<a href="'.$source->{link}.'">';
 266                                 $mirrorentry .= $source->{desc};
 267                                 $source->{link} and $mirrorentry .= '</a>';
 268                                 $mirrorentry .= '</p>';
 269                         }
 270                         if (!$source->{inputs}) {
 271                                 $mirrorentry .= '<p>URL: <input type="text" name="'.$n.'_url" '.
 272                                         'value="'.$values{$n.'_url'}.
 273                                         '" onchange="set_mirror_source('."'".$n."'".')" /></p>';
 274                         } else {
 275                                 $mirrorentry .= '<p>';
 276                                 my $i = 0;
 277                                 foreach my $input (@{$source->{inputs}}) {
 278                                         $mirrorentry .= $input->{label};
 279                                         my ($l, $v) = ($n.'_i'.$i, '');
 280                                         if ($cgi->param($l)) {
 281                                                 $v = ' value="'.html_esc($cgi->param($l)).'"';
 282                                         }
 283                                         $mirrorentry .= ' <input type="text" name="'.$l.'"'.$v.
 284                                                 ' onchange="set_mirror_source('."'".$n."'".')" />';
 285                                         $mirrorentry .= $input->{suffix} if $input->{suffix};
 286                                         $mirrorentry .= '&#160; &#160;';
 287                                 } continue { $i++; }
 288                                 $mirrorentry .= '</p>';
 289                         }
 290                         $mirrorentry .= '</td></tr>'."\n";
 291                 }
 292                 $mirrorentry .= "</table>";
 293         }
 294         $mirrorentry .= '</td></tr>'."\n";;
 295         $mirrorentry .= '<tr id="mirror_refs"><td class="formlabel">Mirror refs:</td><td class="formdatatd">'.
 296                         '<label title="Unchecking this will mirror the entire refs namespace which is usually unnecessary.  '.
 297                         'Non-git sources always mirror the entire refs namespace regardless of this setting.">'.
 298                         '<input type="checkbox" name="cleanmirror" value="1" '.($values{'cleanmirror'} ? 'checked="checked" ' : '').
 299                         'style="vertical-align:middle" /><span style="vertical-align:middle; margin-left:0.5ex">'.
 300                         'Only mirror <code>refs/heads/*</code>, <code>refs/tags/*</code> and <code>refs/notes/*</code></span></label></td></tr>'."\n"
 301                 if grep(/cleanmirror/, @Girocco::Config::project_fields);
 302 }
 303 if ($me and $pe) {
 304         $modechooser = <<EOT;
 305 <tr><td class="formlabel" style="vertical-align:middle">Hosting mode:</td><td><p>
 306 <input type="radio" name="mode" value="mirror" id="mirror_radio"@{[$values{'mirror'}?' checked="checked"':'']} />Mirror mode<br />
 307 <input type="radio" name="mode" value="push" id="push_radio"@{[$values{'mirror'}?'':' checked="checked"']} />Push mode
 308 </p></td></tr>
 309 EOT
 310 } else {
 311         $modechooser = '<input type="hidden" name="mode" value="'.($me ? $me->{name} : $pe->{name}).'" />';
 312 }
 313
 314 my $forkentry = '';
 315 if ($name =~ m#/#) {
 316         $name =~ s#^(.*)/##;
 317         $forkentry = '<input type="hidden" name="fork" value="'.$1.'" /><span class="formdata" style="padding-left:0.5ex">' .
 318                 html_esc($1) . '/</span>';
 319 }
 320 $name = html_esc($name);
 321
 322 print <<EOT;
 323 $Girocco::Config::legalese
 324 <form method="post" action="@{[url_path($Girocco::Config::webadmurl)]}/regproj.cgi">
 325 <table class="form">
 326 <tr><td class="formlabel">Project name:</td>
 327 <td>$forkentry<input type="text" name="name" value="$name" /><span class="formdata" style="padding-left:0">.git</span></td></tr>
 328 EOT
 329 if ($Girocco::Config::project_passwords) {
 330         print <<EOT;
 331 <tr><td class="formlabel">Admin password (twice):</td><td><input type="password" name="pwd" /><br /><input type="password" name="pwd2" /></td></tr>
 332 EOT
 333 }
 334 if ($Girocco::Config::project_owners eq 'email') {
 335         print <<EOT;
 336 <tr><td class="formlabel">E-mail contact:</td><td><input type="text" name="email" value="@{[$values{'email'}]}" /></td></tr>
 337 EOT
 338 }
 339 print $modechooser;
 340 print $mirrorentry;
 341
 342 $gcgi->print_form_fields($Girocco::Project::metadata_fields, \%values, @Girocco::Config::project_fields);
 343
 344 print <<EOT;
 345 EOT
 346
 347 print <<EOT;
 348 <tr><td class="formlabel" style="line-height:inherit">Anti-captcha &#x2013; please<br />enter name of our nearest star:</td>
 349 <td style="vertical-align:middle"><input type="text" name="mail" /></td></tr>
 350 <tr><td class="formlabel"></td><td><input type="submit" name="y0" value="Register" /></td></tr>
 351 </table>
 352 </form>
 353 EOT