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 "__BASEDIR__";
   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                 $proj->archive_and_delete;
 131         } else {
 132                 $proj->delete;
 133         }
 134         print "<p>Project successfully removed. Have a nice day.</p>\n";
 135         exit;
 136 }
 137
 138 my $fetchy = $Girocco::Config::gitpullurl || $Girocco::Config::httppullurl ||
 139         $Girocco::Config::pushurl || $Girocco::Config::httpspushurl || $Girocco::Config::gitweburl;
 140 my $url = $proj->{mirror} ? $proj->{url} : "$fetchy/$name.git";
 141 my $type = $proj->{mirror} ? "mirrored " : ($isempty ? "empty " : "");
 142 my $label = ($proj->{mirror} || $isempty) ? "Remove" : "Send authorization code";
 143
 144 print <<EOT;
 145 <p>Please confirm that you are going to remove ${type}project
 146 $name ($url) from the site.</p>
 147 <form method="post" action="@{[url_path($Girocco::Config::webadmurl)]}/delproj.cgi">
 148 <input type="hidden" name="name" value="$name" />
 149 EOT
 150 if ($Girocco::Config::project_passwords) {
 151         print <<EOT;
 152 <p>Admin password: <input type="password" name="cpwd" /> <sup class="sup"><span><a
 153 href="@{[url_path($Girocco::Config::webadmurl)]}/pwproj.cgi?name=$escname">(forgot password?)</a></span></sup></p>
 154 EOT
 155 }
 156 print <<EOT;
 157 <p><input type="submit" name="y0" value="$label" /></p>
 158 </form>
 159 EOT