Index: trunk/locker/sbin/parallel-find.pl
===================================================================
--- trunk/locker/sbin/parallel-find.pl	(revision 1284)
+++ trunk/locker/sbin/parallel-find.pl	(revision 1285)
@@ -28,7 +28,13 @@
 }
 
+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,14 +44,18 @@
     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";
     }