Index: trunk/DataStore/scripts/dsleech
===================================================================
--- trunk/DataStore/scripts/dsleech	(revision 14883)
+++ trunk/DataStore/scripts/dsleech	(revision 16582)
@@ -3,5 +3,5 @@
 # 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,4 +72,6 @@
 }
 
+print "@$filesets filesets found\n" if $verbose;
+
 process_filesets($filesets, $dir, $overwrite, $verbose) or die "failed to process filesets";
 
@@ -89,5 +91,9 @@
     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) {