[Collab-qa-commits] r715 - svnbuildstat/trunk/script/debug

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2008-02-17 14:46:59 +0000 (Sun, 17 Feb 2008)
New Revision: 715

Modified:
   svnbuildstat/trunk/script/debug/postdir.pl
Log:
accept the source directory as parameter


Modified: svnbuildstat/trunk/script/debug/postdir.pl
===================================================================
--- svnbuildstat/trunk/script/debug/postdir.pl	2008-02-17 14:29:28 UTC (rev 714)
+++ svnbuildstat/trunk/script/debug/postdir.pl	2008-02-17 14:46:59 UTC (rev 715)
@@ -10,7 +10,10 @@
 use File::Basename;
 
 my $server = "http://wawax.info:3000";
+my $dir = shift;
 
+die "Usage: ./postdir.pl dirname\n" unless -d $dir;
+
 sub postFile {
   my $file = shift;
 
@@ -24,8 +27,15 @@
   print "report sent: ".$response->as_string()."\n";
 
 }
+my @files = ();
+push @files, bsd_glob($dir.'/*');
+if (!@files) {
+  print "nothing to post\n";
+  exit 0;
+}
 
-foreach (bsd_glob('*')) {
-    print " ->".$_."\n";
-    postFile($_);
+foreach (@files) {
+  next unless -f;
+  print " ->".$_."\n";
+  postFile($_);
 }