[Collab-qa-commits] r639 - in svnbuildstat/trunk/script: . debug

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2008-01-13 21:22:30 +0000 (Sun, 13 Jan 2008)
New Revision: 639

Added:
   svnbuildstat/trunk/script/debug/
   svnbuildstat/trunk/script/debug/postdir.pl
Log:
initial import


Added: svnbuildstat/trunk/script/debug/postdir.pl
===================================================================
--- svnbuildstat/trunk/script/debug/postdir.pl	                        (rev 0)
+++ svnbuildstat/trunk/script/debug/postdir.pl	2008-01-13 21:22:30 UTC (rev 639)
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -w
+# A script to upload a build result directory
+
+use strict;
+
+use LWP::UserAgent;
+use File::Glob ':glob';
+use HTTP::Response;
+use HTTP::Request::Common;
+use File::Basename;
+
+my $server = "http://wawax.info:3000";
+
+sub postFile {
+  my $file = shift;
+
+  my $ua = new LWP::UserAgent;
+
+
+  my $response = $ua->request(POST $server.'/controls/sendFile',
+    Content_Type => 'form-data',
+    Content => ['file' => [ $file, basename($file) ]]) or die "Upload failed\n";
+
+  print "report sent: ".$response->as_string()."\n";
+
+}
+
+foreach (bsd_glob('*')) {
+    print " ->".$_."\n";
+    postFile($_);
+}