[Collab-qa-commits] r1205 - buildstat/trunk/buildstat-job-manager

[goneri at alioth.debian.org]

Author: goneri
Date: 2008-09-03 21:11:15 +0000 (Wed, 03 Sep 2008)
New Revision: 1205

Modified:
   buildstat/trunk/buildstat-job-manager/buildstat-job-manager
Log:
use the proxy

Modified: buildstat/trunk/buildstat-job-manager/buildstat-job-manager
===================================================================
--- buildstat/trunk/buildstat-job-manager/buildstat-job-manager	2008-09-03 20:59:56 UTC (rev 1204)
+++ buildstat/trunk/buildstat-job-manager/buildstat-job-manager	2008-09-03 21:11:15 UTC (rev 1205)
@@ -21,6 +21,8 @@
 my $hostname = hostname();
 my $server = "http://buildstat.debian.net";
 my $admin = "Unamed User <unamed.user\@example.net>";
+my $debmirror = "http://ftp.fr.debian.org/debian";
+#$dscuri =~ s/\@DEB_MIRROR\@/http:\/\/ftp.fr.debian.org\/debian/;
 
 my $params = {
    action => undef,
@@ -37,6 +39,7 @@
     
     die "File not found" unless -f $files->{'jobfile'} || -f $files->{'resultfile'};
     my $ua = new LWP::UserAgent;
+    $ua->env_proxy;
 
 
     my $job;
@@ -87,6 +90,7 @@
     die unless $params->{'qatool'} && $params->{'jobfile'} && $params->{'target'};
 
   my $ua  = LWP::UserAgent->new();
+  $ua->env_proxy;
   my $req = POST $server."/controls/getQAJob", Content_Type => 'form-data',
   Content      => [
   submit => 1,