r2758 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-05-29 18:22:12 +0000 (Tue, 29 May 2007)
New Revision: 2758

Modified:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl
Log:
fix the tarball layout download mode

Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl	2007-05-29 17:53:30 UTC (rev 2757)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl	2007-05-29 18:22:12 UTC (rev 2758)
@@ -55,11 +55,12 @@
   my ($repository, $package) = @_;
 
   return unless $$repository->tarballlayout;
-  my $packagename =  $package->name;
+  my $packagename =  $$package->name;
   my $tarball = mkTarballFromPackage($package);
   my $tarballuri = $$repository->tarballlayout;
   $tarballuri =~ s/\@TARBALL@/$tarball/;
   $tarballuri =~ s/\@PACKAGE@/$packagename/;
+  print  "\n--->".$tarballuri."\n";
 
   return $tarballuri;
 }
@@ -220,7 +221,6 @@
     $package->tarballuri($uscandata->{tarballuri});
     $package->istarballpresent(1);
     # Or on a HTTP/FTP space is a tarball layout exists
-    # for this repository
   } elsif (testUrl($tarballurlfromtarballlayout)) {
     $package->tarballuri($tarballurlfromtarballlayout);
     $package->istarballpresent(1);