[PVFS2-CVS] commit by robl in pvfs2-1/test/automated: tinder-pvfs2-status

[CVS commit program]

Update of /projects/cvsroot/pvfs2-1/test/automated
In directory parlweb:/tmp/cvs-serv3556

Added Files:
	tinder-pvfs2-status 
Log Message:
Sam's helper script to make it easier to lob bits at tinderbox


--- /dev/null	2003-01-30 05:24:37.000000000 -0500
+++ tinder-pvfs2-status	2005-06-21 17:37:08.000000000 -0400
@@ -0,0 +1,68 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+require HTTP::Request;
+require LWP::UserAgent;
+
+if($#ARGV < 2)
+{
+    print "\nusage: tinder-pvfs2-status <build name> " .
+          "<status> <start time> [status info]\n\n";
+    exit 1;
+}
+
+my $buildname=shift @ARGV;
+my $status=shift @ARGV;
+my $starttime=shift @ARGV;
+
+my $binfo = "";
+if($#ARGV > -1)
+{
+   $binfo = "TinderboxPrint: " . join(" ", @ARGV);
+}
+
+my $admin="slang\@mcs.anl.gov";
+my $datestr=time();
+
+my $logoutput = "";
+my $line;
+while (defined($line = <STDIN>))
+{
+    $logoutput .= $line;
+}
+
+my $msg = <<"BODYEOF";
+
+tinderbox: administrator: $admin
+tinderbox: starttime: $starttime
+tinderbox: buildname: $buildname
+tinderbox: status: $status
+tinderbox: timenow: $datestr
+tinderbox: tree: PVFS2
+tinderbox: errorparser: unix
+tinderbox: END
+
+$binfo
+
+$logoutput
+
+BODYEOF
+;
+
+my $req = HTTP::Request->new( 
+    "POST" => "http://lain.mcs.anl.gov/bin/tinderbox2/process_build" );
+$req->content( $msg );
+
+my $ua = LWP::UserAgent->new;
+
+my $resp = $ua->request( $req );
+if( $resp->is_success )
+{
+	print $resp->content;
+}
+else
+{
+	die $resp->status_line;
+}
+