| Line 268... |
Line 268... |
| 268 |
|
268 |
|
| 269 |
# attempt to locate the operating system.
|
269 |
# attempt to locate the operating system.
|
| 270 |
# if found, will set some defaults for it.
|
270 |
# if found, will set some defaults for it.
|
| 271 |
sub setUpOperatingSystemSpecific {
|
271 |
sub setUpOperatingSystemSpecific {
|
| 272 |
my ( $install, $operatingSystems, $os ) = @_;
|
272 |
my ( $install, $operatingSystems, $os ) = @_;
|
| 273 |
$os = &determineOS( $operatingSystems ) unless $os;
|
273 |
print "They passed $os in as the \$os\n" if $verbose > 2;
|
| 274 |
if ( $os ) {
|
274 |
if ( $os ) {
|
| 275 |
# We found the OS, set up some defaults
|
275 |
# We found the OS, set up some defaults
|
| 276 |
$$install{'os'} = $os;
|
276 |
$$install{'os'} = $os;
|
| 277 |
print "Setting keys for operating system\n" if $verbose > 2;
|
277 |
print "Setting keys for operating system\n" if $verbose > 2;
|
| 278 |
foreach my $key ( keys %{$$operatingSystems{ $os }} ) {
|
278 |
foreach my $key ( keys %{$$operatingSystems{ $os }} ) {
|
| Line 505... |
Line 505... |
| 505 |
|
505 |
|
| 506 |
if ( $help ) { &help() ; exit; }
|
506 |
if ( $help ) { &help() ; exit; }
|
| 507 |
if ( $version ) { print "$0 version $VERSION\n"; exit; }
|
507 |
if ( $version ) { print "$0 version $VERSION\n"; exit; }
|
| 508 |
&setDryRun( $dryRun ); # tell the library whether this is a dry run or not
|
508 |
&setDryRun( $dryRun ); # tell the library whether this is a dry run or not
|
| 509 |
|
509 |
|
| - |
|
510 |
$os = `$sourceDir/determineOS` unless $os;
|
| 510 |
# figure out if we know our operating system and set up special stuff for it
|
511 |
# figure out if we know our operating system and set up special stuff for it
|
| 511 |
$os = &setUpOperatingSystemSpecific( \%install, \%operatingSystems, $os );
|
512 |
$os = &setUpOperatingSystemSpecific( \%install, \%operatingSystems, $os );
|
| 512 |
|
513 |
|
| 513 |
&validateLibraries( \%libraries, $os );
|
514 |
&validateLibraries( \%libraries, $os );
|
| 514 |
|
515 |
|