Changeset 730 for locker/sbin/parallel-find.pl

Timestamp:

Apr 13, 2008, 11:09:26 PM (16 years ago)

Author:

price

Message:

parallel-find.pl: do the next few steps too.

* for each .scripts-version file, do an fs la and ignore if
  scripts-security-upd no longer has rlidwk
* from each .scripts-version file, grab the version line and
  include that in the output.

Still skips non-Athena-cell lockers.  Why those finds hang for me
(I still have about fifty finds in uninterruptible wait, hours later,
despite attempting kill -9) remains an open problem.

File:

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

locker/sbin/parallel-find.pl

@@ -20 +20 @@
 # use -xdev.  May miss libraries stuff.
 
+sub updatable ($) {
+    my $filename = shift;
+    for my $l (`fs la "$filename"`) {
+        return 1 if ($l =~ /^  system:scripts-security-upd rlidwk/);
+    }
+    return 0;
+}
+
+sub version ($) {
+    my $dirname = shift;
+    open my $h, "$dirname/.scripts-version";
+    return (<$h>)[-1];
+}
+
 sub find ($$) {
     my $user = shift;
@@ -27 +41 @@
     open my $out, ">$dump/$user";
     while (my $f = <$files>) {
-        print $out $f;
+        chomp $f;
+        $f =~ s!/\.scripts-version$!!;
+        if (! updatable($f)) {
+            print STDERR "not updatable: $f";
+            next;
+        }
+        $v = version($f);
+        print $out "$f:$v";
     }
     return 0;