| Line 506... |
Line 506... |
| 506 |
&processParameters( @ARGV );
|
506 |
&processParameters( @ARGV );
|
| 507 |
|
507 |
|
| 508 |
# load the configuration file
|
508 |
# load the configuration file
|
| 509 |
|
509 |
|
| 510 |
#die "Searching for $configurationFile in = \n" . join( "\n", @confFileSearchPath ) . "\n";
|
510 |
#die "Searching for $configurationFile in = \n" . join( "\n", @confFileSearchPath ) . "\n";
|
| 511 |
eval ( &loadConfigurationFile( $configurationFile, @confFileSearchPath) );
|
511 |
eval ( &loadConfigurationFile( $configurationFile, @confFileSearchPath) ) or die "Could not load config: $@\n";
|
| 512 |
die Dumper( \%configuration ) . "\n" if $TESTING > 4;
|
512 |
die Dumper( \%configuration ) . "\n" if $TESTING > 4;
|
| 513 |
|
513 |
|
| 514 |
# user did not define a serial number, so make something up
|
514 |
# user did not define a serial number, so make something up
|
| 515 |
$configuration{'serialNumber'} = '' unless $configuration{'serialNumber'};
|
515 |
$configuration{'serialNumber'} = '' unless $configuration{'serialNumber'};
|
| 516 |
# oops, no client name (required) so tell them and exit
|
516 |
# oops, no client name (required) so tell them and exit
|