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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2008-02-17 22:40:02 +0000 (Sun, 17 Feb 2008)
New Revision: 722

Modified:
   svnbuildstat/trunk/script/svnbuildstat_agent.pl
Log:
keep 1000000 bytes of the log file

Modified: svnbuildstat/trunk/script/svnbuildstat_agent.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_agent.pl	2008-02-17 21:35:50 UTC (rev 721)
+++ svnbuildstat/trunk/script/svnbuildstat_agent.pl	2008-02-17 22:40:02 UTC (rev 722)
@@ -177,7 +177,7 @@
   my $infofile = $prefix.'.info';
 
   open (BUILDLOGTMP, "<","$threadbuildarea/build.log.tmp") or die;
-  seek(BUILDLOGTMP, -20000, 2); # I just keep the end of the logfile
+  seek(BUILDLOGTMP, -1000000, 2); # I just keep the end of the logfile
   open (BUILDLOG, ">", "$threadbuildarea/".$logfile) or die;
   # If I'm not at the end of BUILDLOGTMP it means that seek moved me
   print BUILDLOG "(log file truncated) ... " if tell(BUILDLOGTMP);
@@ -197,16 +197,11 @@
   if (bsd_glob($threadbuildarea.'/*.changes')) {
     print "build is ok\n";
     $report->{build} = "ok";
-    $report->{binarypackages} = '';
-    foreach (bsd_glob($threadbuildarea.'/*.deb'), bsd_glob($threadbuildarea.'/*.udeb')) {
+    $report->{files} = '';
+    foreach (bsd_glob($threadbuildarea.'/*')) {
       $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";