[Midnightbsd-cvs] mports: magus/master: add halt and resume cluster.

[ctriv at midnightbsd.org]

Log Message:
-----------
add halt and resume cluster.  update the update_cluster.pl script.

Modified Files:
--------------
    mports/Tools/magus/master:
        update_cluster.pl (r1.1 -> r1.2)

Added Files:
-----------
    mports/Tools/magus/master:
        halt_cluster.pl (r1.1)
        resume_cluster.pl (r1.1)

-------------- next part --------------
--- /dev/null
+++ Tools/magus/master/resume_cluster.pl
@@ -0,0 +1,14 @@
+#!/usr/local/bin/perl
+#
+# $MidnightBSD: mports/Tools/magus/master/resume_cluster.pl,v 1.1 2007/10/31 18:02:28 ctriv Exp $
+#
+
+use strict;
+use warnings;
+use lib qw(/usr/mports/Tools/lib);
+
+use Magus;
+
+$Magus::Machine = Magus::Machine->retrieve(name => 'master');
+
+Magus::Cluster::resume();
Index: update_cluster.pl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/master/update_cluster.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -LTools/magus/master/update_cluster.pl -LTools/magus/master/update_cluster.pl -u -r1.1 -r1.2
--- Tools/magus/master/update_cluster.pl
+++ Tools/magus/master/update_cluster.pl
@@ -48,15 +48,17 @@
 # 6) Resume the cluster.
 #
 
+main();
+
 sub main {
   update_cvs_dir();
   make_tarball();
 
-  Magus::Cluster::run_task('UpdateMports');
-
   Magus::Cluster::halt();
 
-  sync_index();
+  Magus::Cluster::run_task('UpdateMports');
+
+  Magus::Index->sync();
   
   Magus::Cluster::resume();
 }
@@ -70,7 +72,8 @@
 
 
 sub make_tarball {
-  unlink($Magus::Config{'MportsTarBall'}) || die "Couldn't unlink $Magus::Config{'MportsTarBall'}: $!\n";
+  unlink($Magus::Config{'MportsTarBall'}) 
+    || ($! !~ m/no such/i && die "Couldn't unlink $Magus::Config{'MportsTarBall'}: $!\n");
   chdir($Magus::Config{'MasterDataDir'})  || die "Couldn't cd to $Magus::Config{'MasterDataDir'}: $!\n";
   
   my $tar = "/usr/bin/tar cfj $Magus::Config{MportsTarBall} $Magus::Config{MportsCvsDir}";
@@ -79,5 +82,3 @@
 }
 
 
-sub sync_index {
-}  
--- /dev/null
+++ Tools/magus/master/halt_cluster.pl
@@ -0,0 +1,13 @@
+#!/usr/local/bin/perl
+#
+# $MidnightBSD: mports/Tools/magus/master/halt_cluster.pl,v 1.1 2007/10/31 18:02:28 ctriv Exp $
+#
+use strict;
+use warnings;
+use lib qw(/usr/mports/Tools/lib);
+
+use Magus;
+
+$Magus::Machine = Magus::Machine->retrieve(name => 'master');
+
+Magus::Cluster::halt();
\ No newline at end of file