[Rt-commit] r5425 - in Test-Chimps: trunk/bin

[zev at bestpractical.com]

Author: zev
Date: Fri Jun 23 17:32:50 2006
New Revision: 5425

Added:
   Test-Chimps/trunk/bin/report_server.pl   (contents, props changed)
Removed:
   Test-Chimps/trunk/bin/receive_report.pl
Modified:
   Test-Chimps/   (props changed)
   Test-Chimps/trunk/bin/submit_report.pl

Log:
 r4189 at galvatron (orig r6):  zev | 2006-06-20 17:58:31 -0400
  r4129 at galvatron:  zev | 2006-06-19 02:27:38 -0400
  renamed server script
 


Added: Test-Chimps/trunk/bin/report_server.pl
==============================================================================
--- (empty file)
+++ Test-Chimps/trunk/bin/report_server.pl	Fri Jun 23 17:32:50 2006
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use lib '/home/zev/bps/Test-Smoke-Report/trunk/lib';
+
+use Test::Smoke::Report::Server;
+
+my $server = Test::Smoke::Report::Server->new(base_dir => '/var/www/bps-smokes',
+                                              extra_validation_spec =>
+                                              { category => 1,
+                                                subcategory => 1,
+                                                project => 1,
+                                                revision => 1,
+                                                timestamp => 1,
+                                                duration => 1 });
+
+$server->handle_request;

Modified: Test-Chimps/trunk/bin/submit_report.pl
==============================================================================
--- Test-Chimps/trunk/bin/submit_report.pl	(original)
+++ Test-Chimps/trunk/bin/submit_report.pl	Fri Jun 23 17:32:50 2006
@@ -26,7 +26,7 @@
                                         duration => $duration });
 
 my $client = Test::Smoke::Report::Client->new(reports => [$report],
-                                              server => 'http://galvatron.mit.edu/cgi-bin/receive_report.pl');
+                                              server => 'http://galvatron.mit.edu/cgi-bin/report_server.pl');
 
 my ($status, $msg) = $client->send;