[Midnightbsd-cvs] mports: update_cluster.pl: set umask to something more usefull before

[ctriv at midnightbsd.org]

Log Message:
-----------
set umask to something more usefull before checking out.

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

-------------- next part --------------
Index: update_cluster.pl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/master/update_cluster.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -L Tools/magus/master/update_cluster.pl -L Tools/magus/master/update_cluster.pl -u -r1.12 -r1.13
--- Tools/magus/master/update_cluster.pl
+++ Tools/magus/master/update_cluster.pl
@@ -94,8 +94,8 @@
   update_cvs_dir();
   
   foreach my $done (@completed) {
+    printf "refreshing %s on %s\n", $done->osversion, $done->arch;
     my $run = Magus::Run->create({osversion => $done->osversion, arch => $done->arch});
-    
     make_tarball($run);
 
     Magus::Index->sync("$Magus::Config{MasterDataDir}/$Magus::Config{MportsCvsDir}", $run);
@@ -108,11 +108,17 @@
 
 sub update_cvs_dir {
   chdir($Magus::Config{'MasterDataDir'})  || die "Couldn't cd to $Magus::Config{'MasterDataDir'}: $!\n";
-  
+
+  # let the magus group read and write.
+  umask(0002);  
+
+  print "Deleteing $Magus::Config{MportsCvsDir}...";
   if (-d $Magus::Config{MportsCvsDir}) {
     rmtree($Magus::Config{MportsCvsDir})    || die "Couldn't rmtree $Magus::Config{'MportsCvsDir'}: $!\n";
   }
   
+  print " done.\n";
+  
   my $cmd = "cvs -d /home/cvs co -P $Magus::Config{MportsCvsDir}";
   
   system($cmd) == 0 || die "$cmd returned non-zero: $?\n";