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 qw(/home/repo/repomgr/cgi);
   9 use Git::RepoCGI;
  10
  11 my $repo = Git::RepoCGI->new('Project Removal');
  12 my $cgi = $repo->cgi;
  13
  14 my $name = $cgi->param('name');
  15
  16 unless (defined $name) {
  17         print "<p>I need the project name as an argument now.</p>\n";
  18         exit;
  19 }
  20
  21 if (!valid_proj_name($name)) {
  22         print "<p>Invalid project name. Go away, sorcerer.</p>\n";
  23         exit;
  24 }
  25
  26 if (!Git::RepoCGI::Project::does_exist($name)) {
  27         print "<p>Sorry but this project does not exist. Now, how did you <em>get</em> here?!</p>\n";
  28         exit;
  29 }
  30
  31 if (!Git::RepoCGI::Project::available($name)) {
  32         print "<p>Sorry but your project has not finished mirroring yet. If it takes inordinate amount of time, please tell the administrator.</p>\n";
  33         exit;
  34 }
  35
  36 my $proj = Git::RepoCGI::Project->load($name);
  37 $proj or die "not found project $name, that's really weird!";
  38
  39 if (!$proj->{mirror}) {
  40         print "<p>Sorry but you can remove only mirrored projects. Pushed projects cannot be removed. Please tell the administrator if you really want to.</p>\n";
  41         exit;
  42 }
  43
  44 if (glob('/srv/git/'.$name.'/*')) {
  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 if ($cgi->param('y0')) {
  50         # submitted
  51         if (not $proj->authenticate($repo)) {
  52                 exit;
  53         }
  54         $proj->delete;
  55         print "<p>Project successfuly deleted. Have a nice day.</p>\n";
  56         exit;
  57 }
  58
  59 my $url = $proj->{url};
  60
  61 print <<EOT;
  62 <p>Please confirm that you are going to remove mirrored project
  63 $name ($url) from the site.</p>
  64 <form method="post">
  65 <input type="hidden" name="name" value="$name" />
  66 <p>Admin password: <input type="password" name="cpwd" /> <sup><a href="pwproj.cgi?name=$name">(forgot password?)</a></sup></p>
  67 <p><input type="submit" name="y0" value="Remove" /></p>
  68 </form>
  69 EOT