Changeset 1285 for trunk

Timestamp:

Aug 1, 2009, 3:20:35 AM (15 years ago)

Author:

ezyang

Message:

Implement searching for Wizard autoinstalls.

File:

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

trunk/locker/sbin/parallel-find.pl

@@ -28 +28 @@
 }
 
+sub old_version ($) {
+    my $dirname = shift;
+    open my $h, "$dirname/.scripts-version";
+    return (<$h>)[-1];
+}
+
 sub version ($) {
     my $dirname = shift;
-    open my $h, "$dirname/.scripts-version";
+    open my $h, "$dirname/.scripts/version";
     return (<$h>)[-1];
 }
@@ -38 +44 @@
     my $homedir = shift;
 
-    open my $files, "find $homedir/web_scripts -xdev -name .scripts-version 2>/dev/null |";
+    open my $files, "find $homedir/web_scripts -xdev -name .scripts-version -o -name .scripts 2>/dev/null |";
     open my $out, ">$dump/$user";
     while (my $f = <$files>) {
         chomp $f;
-        $f =~ s!/\.scripts-version$!!;
+        my $old_style;
+        $old_style = ($f =~ s!/\.scripts-version$!!);
+        if (! $old_style) {
+            $f =~ s!/\.scripts$!!;
+        }
         if (! updatable($f)) {
             print STDERR "not updatable: $f";
             next;
         }
-        $v = version($f);
+        $v = $old_style ? old_version($f) : version($f);
         print $out "$f:$v";
     }