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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-13 23:25:01 +0000 (Thu, 13 Dec 2007)
New Revision: 588

Modified:
   svnbuildstat/trunk/script/svnbuildstat_update-db.pl
Log:
some minor fix

Modified: svnbuildstat/trunk/script/svnbuildstat_update-db.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_update-db.pl	2007-12-13 23:24:12 UTC (rev 587)
+++ svnbuildstat/trunk/script/svnbuildstat_update-db.pl	2007-12-13 23:25:01 UTC (rev 588)
@@ -3,7 +3,7 @@
 
 use strict;
 
-use lib '/home/sites/svnbuildstat.debian.net/svnbuildstat/lib';
+use lib '../lib';
 
 use Config::IniFiles;
 use File::Find;
@@ -106,18 +106,18 @@
 
   my $control = parseControl($dir.'/debian/control');
   my $changelog = parseChangelog($dir.'/debian/changelog');
-  use Data::Dumper;
   if (!$control || !$changelog) {
     debug ("repositoryentry ".$$repositoryentry->id.": failed to parse the debian files");
     return;
   }
 
+  print $control->{packagesrc}."\n";
   my $sourcepackage = $schema->resultset('Sourcepackage')->find_or_create({name => $control->{packagesrc}});
   $$repositoryentry->sourcepackage_id($sourcepackage->id);
   $$repositoryentry->dscuri(undef);
   $$repositoryentry->realsvndebrelease($changelog->{realsvndebrelease});
   $$repositoryentry->svndebrelease ($changelog->{svndebrelease});
-  if ($changelog->svndebrelease !~ /-[\d+\.]+$/) {
+  if ($changelog->{svndebrelease} !~ /-[\d+\.]+$/) {
     $$repositoryentry->isnative('t');
   } else {
     $$repositoryentry->isnative('f');
@@ -165,8 +165,6 @@
   foreach (@$vcschanges) {
     # TODO Git users put there email address in there login. With it we can link the vcs user
     # to the package maintainer
-    use Data::Dumper;
-    print Dumper($_);
     my $userlogin = $schema->resultset('Userlogin')->find_or_create({name=>$_->{login}});
     my $entry = $schema->resultset('Changelogentry')->find_or_create({
         userlogin_id =>$userlogin->id,
@@ -174,7 +172,7 @@
         date => $_->{date},
         rev => $_->{rev},
       });
-    print "->".$entry->id."\n";
+#    print "->".$entry->id."\n";
     $entry->text($_->{text});
     $entry->update;
     push @added_entry_id, $entry->id;