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('mail')) {
  27         print "<p>Go away, bot.</p>";
  28         exit;
  29 }
  30
  31 if ($cgi->param('mode')) {
  32         # submitted, let's see
  33         # FIXME: racy, do a lock
  34         Girocco::Project::valid_name($name)
  35                 and Girocco::Project::does_exist($name)
  36                 and $gcgi->err("Project with the name '$name' already exists.");
  37         $name =~ /\.git$/
  38                 and $gcgi->err("Project name should not end with <tt>.git</tt> - I'll add that automagically.");
  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 print <<EOT;
 146 <p>You will need the admin password to adjust the project settings later
 147 ($pwpurp, project description, ...).</p>
 148 EOT
 149
 150 unless ($name =~ m#/#) {
 151         print <<EOT;
 152 <p>Note that if your project is a <strong>fork of an existing project</strong>
 153 (this does not mean anything socially bad), please instead go to the project's
 154 gitweb page and click the 'fork' link in the top bar. This way, all of us
 155 will save bandwidth and more importantly, your project will be properly categorized.
 156 EOT
 157         $me and print <<EOT;
 158 If your project is a fork but the existing project is not registered here yet, please
 159 consider registering it first; you do not have to be involved in the project
 160 in order to register it here as a mirror.</p>
 161 EOT
 162 } else {
 163         my $xname = $name; $xname =~ s#/$#.git#; #
 164         my ($pushnote1, $pushnote2);
 165         $pushnote1 = " and you will need to push only the data <em>you</em> created, not the whole project" if $pe;
 166         $pushnote2 = "(That will be done automagically, you do not need to specify any extra arguments during the push.)" if $pe;
 167         print <<EOT;
 168 <p>Great, your project will be created as a subproject of the '$xname' project.
 169 This means that it will be properly categorized$pushnote1. $pushnote2</p>
 170 EOT
 171 }
 172
 173 my $modechooser;
 174 my $mirrorentry = '';
 175 if ($me) {
 176         $mirrorentry = '<tr id="mirror_url"><td class="formlabel">Mirror source:</td><td>';
 177         if (!$Girocco::Config::mirror_sources) {
 178                 $mirrorentry .= '<input type="text" name="url" />';
 179         } else {
 180                 $mirrorentry .= "<table>"."\n";
 181                 my $checked = ' checked=checked';
 182                 foreach my $source (@$Girocco::Config::mirror_sources) {
 183                         my $n = $source->{label};
 184                         $mirrorentry .= '<tr><td class="formlabel">';
 185                         $mirrorentry .= '<p><input type="radio" name="source" value="'.$n.'" '.$checked.' />';
 186                         $mirrorentry .= $n;
 187                         $mirrorentry .= '</p></td><td>';
 188                         $checked = '';
 189                         if ($source->{desc}) {
 190                                 $mirrorentry .= '<p>';
 191                                 $source->{link} and $mirrorentry .= '<a href="'.$source->{link}.'">';
 192                                 $mirrorentry .= $source->{desc};
 193                                 $source->{link} and $mirrorentry .= '</a>';
 194                                 $mirrorentry .= '</p>';
 195                         }
 196                         if (!$source->{inputs}) {
 197                                 $mirrorentry .= '<p>URL: <input type="text" name="'.$n.'_url" /></p>';
 198                         } else {
 199                                 $mirrorentry .= '<p>';
 200                                 my $i = 0;
 201                                 foreach my $input (@{$source->{inputs}}) {
 202                                         $mirrorentry .= $input->{label};
 203                                         $mirrorentry .= ' <input type="text" name="'.$n.'_i'.$i.'" />';
 204                                         $mirrorentry .= $input->{suffix} if $input->{suffix};
 205                                         $mirrorentry .= '&nbsp; &nbsp;';
 206                                 } continue { $i++; }
 207                                 $mirrorentry .= '</p>';
 208                         }
 209                         $mirrorentry .= '</td></tr>'."\n";
 210                 }
 211                 $mirrorentry .= "</table>";
 212         }
 213         $mirrorentry .= '</td></tr>';
 214 }
 215 if ($me and $pe) {
 216         $modechooser = <<EOT;
 217 <tr><td class="formlabel">Hosting mode:</td><td><p>
 218 <input type="radio" name="mode" value="mirror" id="mirror_radio" checked="checked" />Mirror mode<br />
 219 <input type="radio" name="mode" value="push" id="push_radio" />Push mode
 220 </p></td></tr>
 221 EOT
 222 } else {
 223         $modechooser = '<input type="hidden" name="mode" value="'.($me ? $me->{name} : $pe->{name}).'" />';
 224 }
 225
 226 my $forkentry = '';
 227 if ($name =~ m#/#) {
 228         $name =~ s#^(.*)/##;
 229         $forkentry = '<input type="hidden" name="fork" value="'.$1.'" />'.$1.'/'
 230 }
 231
 232 print <<EOT;
 233 $Girocco::Config::legalese
 234 <form method="post">
 235 <table class="form">
 236 <tr><td class="formlabel">Project name:</td><td>$forkentry<input type="text" name="name" value="$name" />.git</td></tr>
 237 <tr><td class="formlabel">Admin password (twice):</td><td><input type="password" name="pwd" /><br /><input type="password" name="pwd2" /></td></tr>
 238 <tr><td class="formlabel">E-mail contact:</td><td><input type="text" name="email" /></td></tr>
 239 $modechooser
 240 $mirrorentry
 241 <tr><td class="formlabel">Homepage URL:</td><td><input type="text" name="hp" /></td></tr>
 242 <tr><td class="formlabel">Short description:</td><td><input type="text" name="desc" size="80" /></td></tr>
 243 <tr><td class="formlabel">README (HTML, lt 8kb):</td><td><textarea name="README" rows="5" cols="80"></textarea></td></tr>
 244 <tr style="display:none"><td>Anti-captcha (leave empty!):</td><td><input type="text" name="mail" /></td></tr>
 245 <tr><td></td><td><input type="submit" name="y0" value="Register" /></td></tr>
 246 </table>
 247 </form>
 248 EOT