toolbox/trash-project.pl

   1 #!/usr/bin/perl
   2
   3 # Send a project to the trash
   4
   5 use strict;
   6 use warnings;
   7 use lib @basedir@;
   8
   9 use Girocco::Config;
  10 use Girocco::Project;
  11
  12 sub mydie
  13 {
  14   print STDERR "@_\n";
  15   exit(255);
  16 }
  17
  18 undef(*CORE::GLOBAL::die);
  19 *CORE::GLOBAL::die = \&mydie;
  20
  21 my $bin = $Girocco::Config::reporoot.'-recyclebin';
  22 mkdir $bin;
  23
  24 my $project = shift @ARGV || die "Please give project name on command line.";
  25
  26 # WARNING!
  27 # Physical removal isn't actually supported. You have to do it manually.
  28 # This only deletes the project from the list.
  29 my $delete = 0;
  30 if ($project eq '--really-delete') {
  31         $delete = 1;
  32         $project = shift @ARGV || die "Please give project name on command line.";
  33 }
  34
  35 # WARNING!
  36 # Don't use this option while jobd is running. You run the risk of destroying data.
  37 my $keep_forks = 0;
  38 if ($project eq '--keep-forks') {
  39         $keep_forks = 1;
  40         $project = shift @ARGV || die "Please give project name on command line.";
  41 }
  42
  43 my $p = Girocco::Project->load($project) || die "Project '$project' not found!";
  44
  45 if ($keep_forks) {
  46         # Run GC on that repository so that objects don't get lost within forks
  47         my $reporoot = $Girocco::Config::reporoot;
  48         my $basedir = $Girocco::Config::basedir;
  49         print "We have to run GC on the repo so that the forks don't lose data. Hang on...\n";
  50         system("GIT_DIR=$reporoot/$project.git git config --unset gitweb.lastgc");
  51         system("show_progress=1 $basedir/jobd/gc.sh $project");
  52 } else {
  53         die "Complicated situation: project still has forks. Please deal with it manually."
  54                 if (-d "$Girocco::Config::reporoot/$project/");
  55 }
  56
  57 if (!$delete) {
  58         die "Already have a deleted version of the project. You need to make a decision now."
  59                 if (-d "$bin/$project.git");
  60
  61         if ($project =~ m!/!) {
  62                 my $parent = $project; $parent =~ s{^(.+)/.*$}{$1};
  63                 system("mkdir -p '$bin/$parent'") == 0 || die "Problem creating directory hierarchy in recycle bin: $!";
  64         }
  65
  66         rename $p->{'path'}, "$bin/$project.git" || die "Problem moving project data: $!";
  67 }
  68 $p->delete();
  69 print "Project '$project' removed from repo.or.cz". ($delete ? '' : ", backup in $bin/$project.git") .".\n";