support local configuration files in conf/{hostname}.yml

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@611 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/run.pl b/run.pl
index 38d27c8..62d3589 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -117,6 +117,16 @@ my $parallel = 0;
 my $only_links = 0;
 my $merge = 0;
 
+my $log = _new WebPAC::Common()->_get_logger();
+
+my $hostname = `hostname`;
+chomp($hostname);
+$hostname =~ s/\..+$//;
+if (-e "conf/$hostname.yml") {
+       $config = "conf/$hostname.yml";
+       $log->info("using host configuration file: $config");
+}
+
 GetOptions(
        "limit=i" => \$limit,
        "offset=i" => \$offset,
@@ -138,11 +148,10 @@ GetOptions(
 
 $config = LoadFile($config);
 
-print "config = ",dump($config) if ($debug);
+#print "config = ",dump($config) if ($debug);
 
 die "no databases in config file!\n" unless ($config->{databases});
 
-my $log = _new WebPAC::Common()->_get_logger();
 $log->info( "-" x 79 );