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