[Midnightbsd-cvs] mports: update_cluster.pl: Remove the unused task stuff.

ctriv at midnightbsd.org ctriv at midnightbsd.org
Thu Nov 8 11:07:26 EST 2007


Log Message:
-----------
Remove the unused task stuff.
Don't try to remove the mport tree if it isn't there.
Bug fix in the cvs command.

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

-------------- next part --------------
Index: update_cluster.pl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/master/update_cluster.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -L Tools/magus/master/update_cluster.pl -L Tools/magus/master/update_cluster.pl -u -r1.4 -r1.5
--- Tools/magus/master/update_cluster.pl
+++ Tools/magus/master/update_cluster.pl
@@ -55,21 +55,18 @@
   update_cvs_dir();
   make_tarball();
 
-  Magus::Cluster::halt();
-
-  Magus::Cluster::run_task('UpdateMports');
-
-  Magus::Index->sync();
-  
-  Magus::Cluster::resume();
+  Magus::Index->sync();  
 }
 
 
 sub update_cvs_dir {
   chdir($Magus::Config{'MasterDataDir'})  || die "Couldn't cd to $Magus::Config{'MasterDataDir'}: $!\n";
-  rmtree($Magus::Config{MportsCvsDir})    || die "Couldn't rmtree $Magus::Config{'MportsCvsDir'}: $!\n";
   
-  my $cmd = "cvs -d anoncvs\@stargazer.midnightbsd.org:/home/cvs -P -z 5 co $Magus::Config{MportsCvsDir}";
+  if (-d $Magus::Config{MportsCvsDir}) {
+    rmtree($Magus::Config{MportsCvsDir})    || die "Couldn't rmtree $Magus::Config{'MportsCvsDir'}: $!\n";
+  }
+  
+  my $cmd = "cvs -d anoncvs\@stargazer.midnightbsd.org:/home/cvs -z 7 co -P $Magus::Config{MportsCvsDir}";
   
   system($cmd) == 0 || die "$cmd returned non-zero: $?\n";
 }


More information about the Midnightbsd-cvs mailing list