[Collab-qa-commits] r640 - svnbuildstat/trunk/script

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2008-01-13 22:27:29 +0000 (Sun, 13 Jan 2008)
New Revision: 640

Modified:
   svnbuildstat/trunk/script/svnbuildstat_agent.pl
Log:
some adjustment to work with the new server

Modified: svnbuildstat/trunk/script/svnbuildstat_agent.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_agent.pl	2008-01-13 21:22:30 UTC (rev 639)
+++ svnbuildstat/trunk/script/svnbuildstat_agent.pl	2008-01-13 22:27:29 UTC (rev 640)
@@ -2,13 +2,13 @@
 
 use strict;
 
-use lib "/home/sites/svnbuildstat.debian.net/svnbuildstat/lib";
+#use lib "/home/sites/svnbuildstat.debian.net/svnbuildstat/lib";
 
 use Data::Dumper;
 use Net::FTP;
 use File::Glob ':glob';
 use Sys::Hostname;
-use SvnBuildStat::Config;
+#use SvnBuildStat::Config;
 use LWP::Simple;
 use POSIX ":sys_wait_h";
 use File::Basename;
@@ -21,7 +21,7 @@
 ###########################################################################
 ###########################################################################
 ###########################################################################
-my $config = new SvnBuildStat::Config();
+#my $config = new SvnBuildStat::Config();
 
 my $RELEASE = "0.0.1";
 my $hostname = hostname();
@@ -104,15 +104,15 @@
 }
 
 
-sub howxsnext {
+sub getBuildJob {
   my $p;
   my $report = {};
 
   my $ua  = LWP::UserAgent->new();
-  my $req = POST $server."/controls/getOrder", Content_Type => 'form-data',
+  my $req = POST $server."/controls/getBuildJob", Content_Type => 'form-data',
   Content      => [
   submit => 1,
-  content => "version=1\nchecks=builder\narch=$arch\n",
+  content => "version=1\narch=$arch\n",
   ];
   my $response = $ua->request($req);
   return unless $response->is_success();
@@ -305,7 +305,7 @@
     if ($newpid) {
       $job{$newpid} = time;
     } else {
-      my $report = howxsnext ();
+      my $report = getBuildJob ();
       if (!exists($report->{dsc})) {
         print "Can't get a package to rebuild from $server\n";
       } else {