112 |
|
|
113 |
'The syslog facility to use', |
'The syslog facility to use', |
114 |
SyslogFacility => 'daemon', |
SyslogFacility => 'daemon', |
115 |
|
|
116 |
|
'IP address for udp server (leave empty for all local addresses)', |
117 |
|
UDPIP => '', |
118 |
|
|
119 |
|
'Port number for udp connections, set to 0 to disable', |
120 |
|
UDPPort => 0, |
121 |
|
|
122 |
); |
); |
123 |
|
|
124 |
our %ConfigFileData=(); |
our %ConfigFileData=(); |
125 |
our %CommandLine=(); |
our %CommandLine=(); |
126 |
our %Defaults=(); |
our %Defaults=(); |
|
our %ExtraKeys=(); |
|
127 |
our %Modes=(); |
our %Modes=(); |
128 |
|
|
129 |
for(my $i=0;$i<scalar(@DEFAULTS);$i+=3) |
for(my $i=0;$i<scalar(@DEFAULTS);$i+=3) |
150 |
next if($DEFAULTS[$i+1] eq 'Help'); |
next if($DEFAULTS[$i+1] eq 'Help'); |
151 |
push(@keys,$DEFAULTS[$i+1]); |
push(@keys,$DEFAULTS[$i+1]); |
152 |
} |
} |
|
push(@keys,keys %ExtraKeys); |
|
|
|
|
153 |
|
|
154 |
foreach my $mode ('',keys %Modes) |
foreach my $mode ('',keys %Modes) |
155 |
{ |
{ |
281 |
$key=$p; |
$key=$p; |
282 |
} |
} |
283 |
} |
} |
|
|
|
|
if($k=~/^HeaderTemplate(\d+)$/i) |
|
|
{ |
|
|
$key="HeaderTemplate$1"; |
|
|
$ExtraKeys{$key}=1; |
|
|
} |
|
284 |
|
|
285 |
&usage("Unknown parameter name '$kOrig'") unless(defined($key)); |
&usage("Unknown parameter name '$kOrig'") unless(defined($key)); |
286 |
|
|
336 |
my $val=$2; |
my $val=$2; |
337 |
$val='' unless(defined($val)); |
$val='' unless(defined($val)); |
338 |
|
|
339 |
if($key=~/^HeaderTemplate\d+$/) |
unless(exists($Defaults{$key})) |
340 |
{ |
{ |
341 |
$ExtraKeys{$key}=1; |
&usage("Unknown configuration file parameter name '$key$mode'"); |
342 |
} |
} |
343 |
else |
if($key eq 'ConfigFileLocation') |
344 |
{ |
{ |
345 |
unless(exists($Defaults{$key})) |
&usage("'ConfigFileLocation' parameter not allowed in configuration file!"); |
|
{ |
|
|
&usage("Unknown configuration file parameter name '$key$mode'"); |
|
|
} |
|
|
if($key eq 'ConfigFileLocation') |
|
|
{ |
|
|
&usage("'ConfigFileLocation' parameter not allowed in configuration file!"); |
|
|
} |
|
346 |
} |
} |
347 |
|
|
348 |
$val=~s/^--/-/; |
$val=~s/^--/-/; |