Changeset 16582

Timestamp:

Feb 21, 2008, 3:50:43 PM (18 years ago)

Author:

jhoblitt

Message:

add more verbose info

File:

• trunk/DataStore/scripts/dsleech (modified) (3 diffs)

trunk/DataStore/scripts/dsleech

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: dsleech,v 1.8 2007-09-18 19:29:51 bills Exp $
+# $Id: dsleech,v 1.9 2008-02-22 01:50:43 jhoblitt Exp $
 
 use strict;
@@ -72 +72 @@
 }
 
+print "@$filesets filesets found\n" if $verbose;
+
 process_filesets($filesets, $dir, $overwrite, $verbose) or die "failed to process filesets";
 
@@ -89 +91 @@
     my ($filsets, $dir, $overwrite, $verbose) = @_;
 
+    my $n = 0;
     foreach my $fileset (@$filesets) {
+        $n++;
+        print "processing fileset: $fileset->fileset $n/@$filesets\n" if $verbose;
+
         my $response = $fileset->request;
         unless (defined $response->is_success) {