117 |
my $only_links = 0; |
my $only_links = 0; |
118 |
my $merge = 0; |
my $merge = 0; |
119 |
|
|
120 |
|
my $log = _new WebPAC::Common()->_get_logger(); |
121 |
|
|
122 |
|
my $hostname = `hostname`; |
123 |
|
chomp($hostname); |
124 |
|
$hostname =~ s/\..+$//; |
125 |
|
if (-e "conf/$hostname.yml") { |
126 |
|
$config = "conf/$hostname.yml"; |
127 |
|
$log->info("using host configuration file: $config"); |
128 |
|
} |
129 |
|
|
130 |
GetOptions( |
GetOptions( |
131 |
"limit=i" => \$limit, |
"limit=i" => \$limit, |
132 |
"offset=i" => \$offset, |
"offset=i" => \$offset, |
148 |
|
|
149 |
$config = LoadFile($config); |
$config = LoadFile($config); |
150 |
|
|
151 |
print "config = ",dump($config) if ($debug); |
#print "config = ",dump($config) if ($debug); |
152 |
|
|
153 |
die "no databases in config file!\n" unless ($config->{databases}); |
die "no databases in config file!\n" unless ($config->{databases}); |
154 |
|
|
|
my $log = _new WebPAC::Common()->_get_logger(); |
|
155 |
$log->info( "-" x 79 ); |
$log->info( "-" x 79 ); |
156 |
|
|
157 |
|
|