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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-12 20:39:19 +0000 (Wed, 12 Dec 2007)
New Revision: 581

Modified:
   svnbuildstat/trunk/script/svnbuildstat_update-repository.pl
Log:
new default location for the config file : ~/.svnbuildstat.ini


Modified: svnbuildstat/trunk/script/svnbuildstat_update-repository.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_update-repository.pl	2007-12-12 20:28:39 UTC (rev 580)
+++ svnbuildstat/trunk/script/svnbuildstat_update-repository.pl	2007-12-12 20:39:19 UTC (rev 581)
@@ -10,17 +10,19 @@
 use File::Copy;
 use File::stat;
 use Config::IniFiles;
-use lib '/home/sites/svnbuildstat.debian.net/svnbuildstat/lib';
+use lib '../lib';
 use SvnBuildStat::Schema;
-use SvnBuildStat::Config;
 use SvnBuildStat::Common;
 use Logger::Syslog;
 use SvnBuildStat::Vcs;
 
-my $cfg = Config::IniFiles->new( -file => "../svnbuildstat.ini" ) or die "Can't load config file";
+my $cfg = Config::IniFiles->new( -file => $ENV{HOME}."/.svnbuildstat.ini" ) or die "Can't load config file";
 
 my $debmirror = $cfg->val('path', 'debmirror');
 my $repositorydir = $cfg->val('path', 'repositorydir');
+if (!-d $repositorydir) {
+ 	die "repositorydir `'".$repositorydir."' doesn't exist\n";
+}
 chdir $repositorydir or die;