[Collab-qa-commits] r1160 - in buildstat/trunk/buildstat-server: lib/SvnBuildStat script

[goneri at alioth.debian.org]

Author: goneri
Date: 2008-08-26 15:54:36 +0000 (Tue, 26 Aug 2008)
New Revision: 1160

Modified:
   buildstat/trunk/buildstat-server/lib/SvnBuildStat/Common.pm
   buildstat/trunk/buildstat-server/script/svnbuildstat_tarball.pl
Log:
some fixes for svnbuildstat_tarball.pl

Modified: buildstat/trunk/buildstat-server/lib/SvnBuildStat/Common.pm
===================================================================
--- buildstat/trunk/buildstat-server/lib/SvnBuildStat/Common.pm	2008-08-26 15:29:44 UTC (rev 1159)
+++ buildstat/trunk/buildstat-server/lib/SvnBuildStat/Common.pm	2008-08-26 15:54:36 UTC (rev 1160)
@@ -21,6 +21,7 @@
 sub mkTarballFromChangelogentry {
   my $changelogentry = shift;
 
+  print "-".$$changelogentry->id."-\n";
   $$changelogentry->repositoryentry_id->sourcepackage_id->name.'_'.$$changelogentry->version.".orig.tar.gz";
 }
 
@@ -182,7 +183,7 @@
 
   return unless $$repositoryentry->repository_id->tarballlayout;
   my $packagename =  $$repositoryentry->sourcepackage_id->name;
-  my $tarball = SvnBuildStat::Common::mkTarballFromChangelogentry($repositoryentry);
+  my $tarball = SvnBuildStat::Common::mkTarballFromChangelogentry(\$$repositoryentry->changelogentry_id);
   my $tarballuri = $$repositoryentry->repository_id->tarballlayout;
   $tarballuri =~ s/\@TARBALL@/$tarball/;
   $tarballuri =~ s/\@PACKAGE@/$packagename/;

Modified: buildstat/trunk/buildstat-server/script/svnbuildstat_tarball.pl
===================================================================
--- buildstat/trunk/buildstat-server/script/svnbuildstat_tarball.pl	2008-08-26 15:29:44 UTC (rev 1159)
+++ buildstat/trunk/buildstat-server/script/svnbuildstat_tarball.pl	2008-08-26 15:54:36 UTC (rev 1160)
@@ -54,7 +54,7 @@
 
     if (!$tarballuri) {
         if ($changelogentry->repositoryentry_id->repository_id->tarballlayout) {
-            my $tarballurlfromtarballlayout = createTarballUrlFromChangeogentry(\$changelogentry);
+            my $tarballurlfromtarballlayout = createTarballUrlFromTarballlayout(\$changelogentry->repositoryentry_id);
             if ($tarballurlfromtarballlayout && testUrl($tarballurlfromtarballlayout)) {
                 $tarballuri = $tarballurlfromtarballlayout;
             }