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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2008-04-15 14:37:39 +0000 (Tue, 15 Apr 2008)
New Revision: 788

Modified:
   svnbuildstat/trunk/script/svnbuildstat_import-new-report.pl
   svnbuildstat/trunk/script/svnbuildstat_update-bugs.pl
   svnbuildstat/trunk/script/svnbuildstat_update-repository.pl
Log:
fix for the new .ini file

Modified: svnbuildstat/trunk/script/svnbuildstat_import-new-report.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_import-new-report.pl	2008-04-15 14:20:40 UTC (rev 787)
+++ svnbuildstat/trunk/script/svnbuildstat_import-new-report.pl	2008-04-15 14:37:39 UTC (rev 788)
@@ -2,7 +2,7 @@
 
 use strict;
 
-use lib '/home/sites/svnbuildstat.debian.net/svnbuildstat/lib';
+use lib '../lib';
 use File::Glob ':globally';
 
 use Encode;
@@ -14,11 +14,11 @@
 use SvnBuildStat::Schema;
 
 use Data::Dumper;
-my $config = new SvnBuildStat::Config();
+my $cfg = Config::IniFiles->new( -file => "../svnbuildstat.ini" ) or die "Can't load config file";
 my $schema = SvnBuildStat::Schema->connect(
-  $config->db_dsn,
-  $config->db_user,
-  $config->db_password,
+  $cfg->val('db', 'dsn'),
+  $cfg->val('db', 'user'),
+  $cfg->val('db', 'password'),
   {AutoCommit => 1, debug => 1}
 );
 

Modified: svnbuildstat/trunk/script/svnbuildstat_update-bugs.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_update-bugs.pl	2008-04-15 14:20:40 UTC (rev 787)
+++ svnbuildstat/trunk/script/svnbuildstat_update-bugs.pl	2008-04-15 14:37:39 UTC (rev 788)
@@ -12,7 +12,7 @@
 use SvnBuildStat::Schema;
 
 
-my $cfg = Config::IniFiles->new( -file => $ENV{HOME}."/.svnbuildstat.ini" ) or die "Can't load config file";
+my $cfg = Config::IniFiles->new( -file => "../svnbuildstat.ini" ) or die "Can't load config file";
 my $schema = SvnBuildStat::Schema->connect(
   $cfg->val('db', 'dsn'),
   $cfg->val('db', 'user'),
@@ -41,7 +41,6 @@
       if (!($h{debbugsTag} && $h{debbugsTag} =~ /(pending|wontfix|unreproducible|moreinfo)/)&& $h{debbugsState} =~ /open/) {
 
 	my $sourcepackage = $schema->resultset('Sourcepackage')->search({name => $h{debbugsSourcePackage}})->first;
-        print $sourcepackage->id."\n";
 	my $severity = $schema->resultset('Severity')->find_or_create({name=>$h{debbugsSeverity}});
 	my $bug = $schema->resultset('Bug')->find_or_create({id => $h{debbugsID}});
 

Modified: svnbuildstat/trunk/script/svnbuildstat_update-repository.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_update-repository.pl	2008-04-15 14:20:40 UTC (rev 787)
+++ svnbuildstat/trunk/script/svnbuildstat_update-repository.pl	2008-04-15 14:37:39 UTC (rev 788)
@@ -2,7 +2,6 @@
 
 use strict;
 
-use lib '/home/goneri/local/share/perl/5.8.8';
 use LWP::Simple;
 use File::Basename;
 use File::Glob qw/:glob/;
@@ -17,14 +16,14 @@
 use SvnBuildStat::Common;
 use Logger::Syslog;
 use SvnBuildStat::Vcs;
-use DBIx::Class::QueryLog;
-use DBIx::Class::QueryLog::Analyzer;
+#use DBIx::Class::QueryLog;
+#use DBIx::Class::QueryLog::Analyzer;
 
-my $cfg = Config::IniFiles->new( -file => $ENV{HOME}."/.svnbuildstat.ini" ) or die "Can't load config file";
+my $cfg = Config::IniFiles->new( -file => "../svnbuildstat.ini" ) or die "Can't load config file";
 
 my $debmirror = $cfg->val('path', 'debmirror');
 my $repositorydir = $cfg->val('path', 'repositorydir');
-my $tarballdir = $cfg->val('path', 'tarball');
+my $tarballdir = $cfg->val('path', 'tarballdir');
 if (!-d $repositorydir) {
     die "repositorydir `'".$repositorydir."' doesn't exist\n";
 }
@@ -205,9 +204,9 @@
 $cfg->val('db', 'password'),
 {AutoCommit => 1, debug => 1}
 );
-my $ql = new DBIx::Class::QueryLog();
-   $schema->storage->debugobj($ql);
-       $schema->storage->debug(1);
+#my $ql = new DBIx::Class::QueryLog();
+#   $schema->storage->debugobj($ql);
+#       $schema->storage->debug(1);
 
 # It's not a joke since I'll do rm -Rf in this directory and don't want to trash
 # the system yet :)