toolbox/remirror-project.pl

   1 #!/usr/bin/perl
   2
   3 # Initiate a re-mirror of a project
   4
   5 use strict;
   6 use warnings;
   7 use IO::Socket;
   8 use lib @basedir@;
   9
  10 use Girocco::Config;
  11 use Girocco::Project;
  12
  13 sub mydie
  14 {
  15   print STDERR "@_\n";
  16   exit(255);
  17 }
  18
  19 undef(*CORE::GLOBAL::die);
  20 *CORE::GLOBAL::die = \&mydie;
  21
  22 my $project = shift @ARGV || die "Please give project name on command line.";
  23
  24 my $p = Girocco::Project->load($project) || die "Project '$project' not found!";
  25
  26 if (!$p->{mirror}) {
  27         die "Project '$project' is a push project, not a mirror project."
  28 }
  29
  30 if ($p->{clone_in_progress} && !$p->{clone_failed}) {
  31         die "Project '$project' already has a clone underway at this moment."
  32 }
  33
  34 unlink($p->_clonefail_path);
  35 unlink($p->_clonelog_path);
  36 my $cp = $p->_clonep_path;
  37 open X, '>'.$cp or die "failed to create $cp: $!";
  38 close X;
  39
  40 my $sock = IO::Socket::UNIX->new($Girocco::Config::chroot.'/etc/taskd.socket') or die "cannot connect to taskd.socket: $!";
  41 $sock->print("clone ".$p->{name}."\n");
  42 # Just ignore reply, we are going to succeed anyway and the I/O
  43 # would apparently get quite hairy.
  44 $sock->flush();
  45 sleep 2; # *cough*
  46 $sock->close();
  47
  48 print "Project '$project' remirror initiated.\n";
  49 exit 0