Changeset 724 for locker

Timestamp:

Apr 9, 2008, 10:36:01 PM (17 years ago)

Author:

price

Message:

parallel-find.pl: work on Macs, and handle errors better

* in find, use -print and a redirect rather than -fprint, which doesn't
  exist in the Mac's find
* give a real error message when the directory exists, and die when we should

File:

• locker/sbin/parallel-find.pl (modified) (2 diffs)

locker/sbin/parallel-find.pl

@@ -8 +8 @@
 my $dump = "/mit/scripts/sec-tools/store/versions";
 
-die if (-e $dump);
-`mkdir $dump`;
+(! -e $dump) || die "Output directory exists: $dump";
+system("mkdir", $dump) && die;
 
 use Proc::Queue size => 40, debug => 0;
@@ -25 +25 @@
     if(defined ($f) and $f==0) {
         print "$user\n";
-#       print "find /mit/$user/web_scripts -name .scripts-version -fprint $dump/$user 2> /dev/null";
-        `find $homedir/web_scripts -xdev -name .scripts-version -fprint  $dump/$user 2> /dev/null`;
+        my $ret = system("find $homedir/web_scripts -xdev -name .scripts-version -print > $dump/$user 2> /dev/null");
         sleep rand 1;
-        exit(0);
+        exit($ret);
     }
-    1 while waitpid(-1, WNOHANG)>0; # reaps childs
+    while (waitpid(-1, WNOHANG)>0) {
+        $? && die "child exited with error: $?";
+    }; # reaps childs
 }