cgi/delproj.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 Removal');
  15 my $cgi = $gcgi->cgi;
  16
  17 my $name = $cgi->param('name');
  18
  19 unless (defined $name) {
  20         print "<p>I need the project name as an argument now.</p>\n";
  21         exit;
  22 }
  23
  24 if (!Girocco::Project::does_exist($name,1) && !Girocco::Project::valid_name($name)) {
  25         print "<p>Invalid project name. Go away, sorcerer.</p>\n";
  26         exit;
  27 }
  28
  29 if (!Girocco::Project::does_exist($name,1)) {
  30         print "<p>Sorry but this project does not exist. Now, how did you <em>get</em> here?!</p>\n";
  31         exit;
  32 }
  33
  34 my $proj = Girocco::Project->load($name);
  35 if (!$proj) {
  36         print "<p>not found project $name, that's really weird!</p>\n";
  37         exit;
  38 }
  39 my $escname = $name;
  40 $escname =~ s/[+]/%2B/g;
  41 $proj->{cpwd} = $cgi->param('cpwd');
  42 my $isempty = !$proj->{mirror} && $proj->is_empty;
  43
  44 if ($proj->has_forks()) {
  45         print "<p>Sorry but this project has forks associated. Such projects cannot be removed. Please tell the administrator if you really want to.</p>\n";
  46         exit;
  47 }
  48
  49 my $y0 = $cgi->param('y0') || '';
  50 if ($y0 && $cgi->request_method eq 'POST' && $proj->authenticate($gcgi)) {
  51         # submitted
  52         if (!$proj->{mirror} && !$isempty && !$cgi->param('auth')) {
  53                 if ($y0 ne 'Send authorization code') {
  54                         print "<p>Invalid data. Go away, sorcerer.</p>\n";
  55                         exit;
  56                 }
  57
  58                 valid_email($proj->{email}) or die "Sorry, this project cannot be removed.";
  59
  60                 my $auth = $proj->gen_auth('DEL');
  61
  62                 # Send auth mail
  63                 defined(my $MAIL = mailer_pipe '-s', "[$Girocco::Config::name] Project removal authorization", $proj->{email}) or
  64                         die "Sorry, could not send authorization code: $!";
  65                 print $MAIL <<EOT;
  66 Hello,
  67
  68 Somebody requested a project removal authorization code to be sent for
  69 project $name on $Girocco::Config::name.  Since you are the project admin,
  70 you receive the authorization code.  If you don't want to actually remove
  71 project $name, just ignore this e-mail.  Otherwise, use this code
  72 within 24 hours:
  73
  74 $auth
  75
  76 In case you did not request the removal authorization code, we apologize.
  77
  78 Should you run into any problems, please let us know.
  79
  80 Have fun!
  81 EOT
  82                 close $MAIL;
  83
  84                 print <<EOT;
  85 <p>The project admin should shortly receive an e-mail containing a project
  86 removal authorization code.  Please enter this code below to remove project
  87 $name from $Girocco::Config::name.  The code will expire in 24 hours or after
  88 you have used it.</p>
  89 <form method="post" action="@{[url_path($Girocco::Config::webadmurl)]}/delproj.cgi">
  90 <input type="hidden" name="name" value="$name" />
  91 <input type="hidden" name="cpwd" value="$proj->{cpwd}" />
  92 <p>Authorization code: <input name="auth" size="50" /></p>
  93 <p><input type="submit" name="y0" value="Remove" /></p>
  94 </form>
  95 EOT
  96                 exit;
  97         }
  98         if ($y0 ne "Remove") {
  99                 print "<p>Invalid data. Go away, sorcerer.</p>\n";
 100                 exit;
 101         }
 102         if (!$proj->{mirror} && !$isempty) {
 103                 $proj->{auth} && $proj->{authtype} && $proj->{authtype} eq 'DEL' or do {
 104                         print <<EOT;
 105 <p>There currently isn't any project removal authorization code on file for
 106 project $name.  Please <a href="@{[url_path($Girocco::Config::webadmurl)]}/delproj.cgi?name=$escname"
 107 >generate one</a>.</p>
 108 EOT
 109                         exit;
 110                 };
 111                 my $auth = $gcgi->wparam('auth');
 112                 if ($auth ne $proj->{auth}) {
 113                         print <<EOT;
 114 <p>Invalid authorization code, please re-enter or
 115 <a href="@{[url_path($Girocco::Config::webadmurl)]}/delproj.cgi?name=$escname"
 116 >generate a new one</a>.</p>
 117 <form method="post" action="@{[url_path($Girocco::Config::webadmurl)]}/delproj.cgi">
 118 <input type="hidden" name="name" value="$name" />
 119 <input type="hidden" name="cpwd" value="$proj->{cpwd}" />
 120 <p>Authorization code: <input name="auth" size="50" /></p>
 121 <p><input type="submit" name="y0" value="Remove" /></p>
 122 </form>
 123 EOT
 124                         exit;
 125                 }
 126                 $proj->del_auth;
 127         }
 128         if (!$proj->{mirror} && !$isempty) {
 129                 # archive the non-empty, non-mirror project before calling delete
 130
 131                 use POSIX qw(strftime);
 132                 my $destdir = $proj->{base_path};
 133                 $destdir =~ s,(?<=[^/])/+$,,;
 134                 $destdir .= "/_recyclebin/";
 135                 $destdir .= $1 if $proj->{name} =~ m,^(.*/)[^/]+$,;
 136                 my $destbase = $proj->{name};
 137                 $destbase = $1 if $destbase =~ m,^.*/([^/]+)$,;
 138                 system('mkdir', '-p', $destdir) == 0 && -d $destdir
 139                         or die "mkdir -p $destdir failed: $?";
 140                 my $suffix = '';
 141                 if (-e "$destdir$destbase.git") {
 142                         $suffix = 1;
 143                         while (-e "$destdir$destbase~$suffix.git") {
 144                                 ++$suffix;
 145                                 last if $suffix >= 10000; # don't get too carried away
 146                         }
 147                         $suffix = '~'.$suffix;
 148                 }
 149                 not -e "$destdir$destbase$suffix.git"
 150                         or die "Unable to compute suitable archive path";
 151                 system('mv', $proj->{path}, "$destdir$destbase$suffix.git") == 0
 152                         or die "mv $proj->{path} $destdir$destbase$suffix.git failed: $?";
 153                 my ($S,$M,$H,$d,$m,$y) = gmtime(time());
 154                 my $recycletime = strftime("%Y-%m-%dT%H:%M:%SZ", $S, $M, $H, $d, $m, $y, -1, -1, -1);
 155                 # We ought to do something if this fails, but the project has already been moved
 156                 # so there's really nothing to be done at this point.
 157                 system($Girocco::Config::git_bin, '--git-dir='.$destdir.$destbase.$suffix.".git",
 158                         'config', 'girocco.recycletime', $recycletime);
 159         }
 160         $proj->delete;
 161         print "<p>Project successfully removed. Have a nice day.</p>\n";
 162         exit;
 163 }
 164
 165 my $fetchy = $Girocco::Config::gitpullurl || $Girocco::Config::httppullurl ||
 166         $Girocco::Config::pushurl || $Girocco::Config::httpspushurl || $Girocco::Config::gitweburl;
 167 my $url = $proj->{mirror} ? $proj->{url} : "$fetchy/$name.git";
 168 my $type = $proj->{mirror} ? "mirrored " : ($isempty ? "empty " : "");
 169 my $label = ($proj->{mirror} || $isempty) ? "Remove" : "Send authorization code";
 170
 171 print <<EOT;
 172 <p>Please confirm that you are going to remove ${type}project
 173 $name ($url) from the site.</p>
 174 <form method="post" action="@{[url_path($Girocco::Config::webadmurl)]}/delproj.cgi">
 175 <input type="hidden" name="name" value="$name" />
 176 EOT
 177 if ($Girocco::Config::project_passwords) {
 178         print <<EOT;
 179 <p>Admin password: <input type="password" name="cpwd" /> <sup><a
 180 href="@{[url_path($Girocco::Config::webadmurl)]}/pwproj.cgi?name=$escname">(forgot password?)</a></sup></p>
 181 EOT
 182 }
 183 print <<EOT;
 184 <p><input type="submit" name="y0" value="$label" /></p>
 185 </form>
 186 EOT