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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2008-02-17 21:17:43 +0000 (Sun, 17 Feb 2008)
New Revision: 718

Modified:
   svnbuildstat/trunk/script/svnbuildstat_agent.pl
Log:
also upload the .dsc and .changes files

Modified: svnbuildstat/trunk/script/svnbuildstat_agent.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_agent.pl	2008-02-17 16:03:27 UTC (rev 717)
+++ svnbuildstat/trunk/script/svnbuildstat_agent.pl	2008-02-17 21:17:43 UTC (rev 718)
@@ -2,12 +2,9 @@
 
 use strict;
 
-#use lib "/home/sites/svnbuildstat.debian.net/svnbuildstat/lib";
-
 use Data::Dumper;
 use File::Glob ':glob';
 use Sys::Hostname;
-#use SvnBuildStat::Config;
 use LWP::Simple;
 use POSIX ":sys_wait_h";
 use File::Basename;
@@ -20,7 +17,6 @@
 ###########################################################################
 ###########################################################################
 ###########################################################################
-#my $config = new SvnBuildStat::Config();
 
 my $RELEASE = "0.0.1";
 my $hostname = hostname();
@@ -139,7 +135,7 @@
   }
 
   if (! -s $pbuildertgz) {
-    # TODO redirect he log on another place
+    # TODO redirect the log on another place
     `/usr/sbin/pbuilder create $pdebuildparam >/tmp/pbuilder-create.log 1>&2`;
     if (($? >> 8)!=0) {
       print "Failed to create pbuilder image\n";
@@ -195,15 +191,6 @@
   close BUILDLOG;
   unlink "$threadbuildarea/build.log.tmp";
 
-# Prepare and send the report
-#  my $ftp = Net::FTP->new($ftphost, Debug => 0) or die "Cannot connect
-#  to ".$ftphost.": $@";
-#  $ftp->login($ftplogin,$ftppassword) or die "Cannot login ", $ftp->message;
-#  $ftp->binary or die "Cannot switch to binary mode ", $ftp->message;
-#  my $dir = $report->{package_id}.'-'.time;
-#  $ftp->mkdir($dir); # Do not die since mkdir fails if the 
-                                      # directory exist
-#  $ftp->cwd($dir) or die "Can't cwd ", $ftp->message;
 
   postFile($threadbuildarea."/".$logfile);
   $report->{logfile} = $logfile;
@@ -215,6 +202,11 @@
       $report->{binarypackages} = $report->{binarypackages}.basename($_).' ';
       postFile($_);
     }
+    $report->{otherfiles} = '';
+    foreach (bsd_glob($threadbuildarea.'/*.dsc'), bsd_glob($threadbuildarea.'/*.changes')) {
+      $report->{binarypackages} = $report->{binarypackages}.basename($_).' ';
+      postFile($_);
+    }
   } else {
     print "build is nok\n";
     $report->{build} = "nok";