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