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.</p>
 171 <p>Please note that you should not use <code>push --mirror</code> on your project!
 172 If you also have push permissions to the forkee, you will erase its refs hierarchy
 173 by that operation; we are working on the proper fix for that.
 174 EOT
 175         }
 176         print <<EOT;
 177 <p>Great, your project will be created as a subproject of the '$xname' project.
 178 This means that it will be properly categorized$pushnote1. $pushnote2</p>
 179 EOT
 180 }
 181
 182 my $modechooser;
 183 my $mirrorentry = '';
 184 if ($me) {
 185         $mirrorentry = '<tr id="mirror_url"><td class="formlabel">Mirror source:</td><td>';
 186         if (!$Girocco::Config::mirror_sources) {
 187                 $mirrorentry .= '<input type="text" name="url" />';
 188         } else {
 189                 $mirrorentry .= "<table>"."\n";
 190                 my $checked = ' checked=checked';
 191                 foreach my $source (@$Girocco::Config::mirror_sources) {
 192                         my $n = $source->{label};
 193                         $mirrorentry .= '<tr><td class="formlabel">';
 194                         $mirrorentry .= '<p><input type="radio" name="source" value="'.$n.'" '.$checked.' />';
 195                         $mirrorentry .= $n;
 196                         $mirrorentry .= '</p></td><td>';
 197                         $checked = '';
 198                         if ($source->{desc}) {
 199                                 $mirrorentry .= '<p>';
 200                                 $source->{link} and $mirrorentry .= '<a href="'.$source->{link}.'">';
 201                                 $mirrorentry .= $source->{desc};
 202                                 $source->{link} and $mirrorentry .= '</a>';
 203                                 $mirrorentry .= '</p>';
 204                         }
 205                         if (!$source->{inputs}) {
 206                                 $mirrorentry .= '<p>URL: <input type="text" name="'.$n.'_url" /></p>';
 207                         } else {
 208                                 $mirrorentry .= '<p>';
 209                                 my $i = 0;
 210                                 foreach my $input (@{$source->{inputs}}) {
 211                                         $mirrorentry .= $input->{label};
 212                                         my ($l, $v) = ($n.'_i'.$i, '');
 213                                         if ($cgi->param($l)) {
 214                                                 $v = ' value="'.html_esc($cgi->param($l)).'"';
 215                                         }
 216                                         $mirrorentry .= ' <input type="text" name="'.$l.'"'.$v.' />';
 217                                         $mirrorentry .= $input->{suffix} if $input->{suffix};
 218                                         $mirrorentry .= '&nbsp; &nbsp;';
 219                                 } continue { $i++; }
 220                                 $mirrorentry .= '</p>';
 221                         }
 222                         $mirrorentry .= '</td></tr>'."\n";
 223                 }
 224                 $mirrorentry .= "</table>";
 225         }
 226         $mirrorentry .= '</td></tr>';
 227 }
 228 if ($me and $pe) {
 229         $modechooser = <<EOT;
 230 <tr><td class="formlabel">Hosting mode:</td><td><p>
 231 <input type="radio" name="mode" value="mirror" id="mirror_radio" checked="checked" />Mirror mode<br />
 232 <input type="radio" name="mode" value="push" id="push_radio" />Push mode
 233 </p></td></tr>
 234 EOT
 235 } else {
 236         $modechooser = '<input type="hidden" name="mode" value="'.($me ? $me->{name} : $pe->{name}).'" />';
 237 }
 238
 239 my $forkentry = '';
 240 if ($name =~ m#/#) {
 241         $name =~ s#^(.*)/##;
 242         $forkentry = '<input type="hidden" name="fork" value="'.$1.'" />'.$1.'/'
 243 }
 244
 245 print <<EOT;
 246 $Girocco::Config::legalese
 247 <form method="post">
 248 <table class="form">
 249 <tr><td class="formlabel">Project name:</td><td>$forkentry<input type="text" name="name" value="$name" />.git</td></tr>
 250 EOT
 251 if ($Girocco::Config::project_passwords) {
 252         print <<EOT;
 253 <tr><td class="formlabel">Admin password (twice):</td><td><input type="password" name="pwd" /><br /><input type="password" name="pwd2" /></td></tr>
 254 EOT
 255 }
 256 if ($Girocco::Config::project_owners eq 'email') {
 257         print <<EOT;
 258 <tr><td class="formlabel">E-mail contact:</td><td><input type="text" name="email" /></td></tr>
 259 EOT
 260 }
 261 print $modechooser;
 262 print $mirrorentry;
 263
 264 $gcgi->print_form_fields($Girocco::Project::metadata_fields, undef, @Girocco::Config::project_fields);
 265
 266 print <<EOT;
 267 EOT
 268
 269 print <<EOT;
 270 <tr><td class="formlabel">Anti-captcha - please<br />enter name of our nearest star:</td><td><input type="text" name="mail" /></td></tr>
 271 <tr><td></td><td><input type="submit" name="y0" value="Register" /></td></tr>
 272 </table>
 273 </form>
 274 EOT