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