Rozdiely pre iotta/iotta.pl medzi verziami 1.3 a 1.4
verzia 1.3, 2003/03/30 11:33:59 |
verzia 1.4, 2003/04/05 16:30:11 |
Riadok 31 sub init_conf { |
|
Riadok 31 sub init_conf { |
|
&GetOptions ("conf=s" => \@confs, "conffile=s" => \@fname); |
&GetOptions ("conf=s" => \@confs, "conffile=s" => \@fname); |
$conf = join ("\n", @confs); |
$conf = join ("\n", @confs); |
|
|
|
push @fname, "iotta.cf" if (!scalar @fname); |
for my $fname (@fname) { |
for my $fname (@fname) { |
$fname = "iotta.cf" unless $fname; |
|
print STDERR "loading configuration file $fname...\n"; |
print STDERR "loading configuration file $fname...\n"; |
|
|
open (CF, $fname); #|| die "couldn't open configuration file $fname\n"; |
open (CF, $fname); #|| die "couldn't open configuration file $fname\n"; |
Platon Group <platon@platon.sk> http://platon.sk/
|
|