r3050 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-06-20 23:50:10 +0000 (Wed, 20 Jun 2007)
New Revision: 3050

Modified:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_agent.pl
Log:
clean up the report before uploading it


Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_agent.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_agent.pl	2007-06-20 23:20:33 UTC (rev 3049)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_agent.pl	2007-06-20 23:50:10 UTC (rev 3050)
@@ -154,9 +154,22 @@
 
   if ($report{'download'} ne "nok") {
     $report{'stamp_build-start'} = time;
-    `cd $workplace ; svn-buildpackage --svn-builder "pdebuild --use-pdebuild-internal -- --buildplace $pbuilderplace --distribution $distro --basetgz $pbuilderplace/$distro.tar.gz" --svn-override=origDir=$tarballsplace --svn-override=buildArea=$buildarea --svn-noninteractive >$reportarea/build.log 2>&1`;
+    `cd $workplace ; svn-buildpackage --svn-builder "pdebuild --use-pdebuild-internal -- --buildplace $pbuilderplace --distribution $distro --basetgz $pbuilderplace/$distro.tar.gz" --svn-override=origDir=$tarballsplace --svn-override=buildArea=$buildarea --svn-noninteractive >$reportarea/build.log.tmp 2>&1`;
     $report{'stamp_build-end'} = time;
 
+# To avoid breakage with tar
+    open BUILDLOGTMP, "<$reportarea/build.log.tmp" or die;
+    open BUILDLOG, ">$reportarea/build.log" or die;
+    foreach (<BUILDLOGTMP>) {
+	    s/[[:cntrl:]]//g;
+	    print BUILDLOG $_."\n";
+    }
+
+    close BUILDLOGTMP;
+    close BUILDLOG;
+    unlink "$reportarea/build.log.tmp";
+
+
     if (<$buildarea/*.deb>) {
       $report{build} = "ok"; 
       `cd $buildarea ; lintian --allow-root *.deb *.dsc > $reportarea/lintian.log`;