[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