| Line 51... |
Line 51... |
| 51 |
$$config{'clientName'} = &getAnswer( "Client Name ", ($$config{'clientName'}) );
|
51 |
$$config{'clientName'} = &getAnswer( "Client Name ", ($$config{'clientName'}) );
|
| 52 |
$$config{'serialNumber'} = &getAnswer( "Serial Number ", ($$config{'serialNumber'}) );
|
52 |
$$config{'serialNumber'} = &getAnswer( "Serial Number ", ($$config{'serialNumber'}) );
|
| 53 |
$$config{'UUID'} = &getAnswer( "UUID ", ($$config{'UUID'}) );
|
53 |
$$config{'UUID'} = &getAnswer( "UUID ", ($$config{'UUID'}) );
|
| 54 |
$$config{'hostname'} = &getAnswer( "Host Name ", ($$config{'hostname'}) );
|
54 |
$$config{'hostname'} = &getAnswer( "Host Name ", ($$config{'hostname'}) );
|
| 55 |
|
55 |
|
| 56 |
$temp = join( ",", @{ $$config{ 'moduleDirs' } } ) if $$config{ 'moduleDirs' };
|
56 |
$temp = join( ",", @{ $$config{ 'moduleDirs' } } ) if $config->{ 'moduleDirs' };
|
| 57 |
$temp = &getAnswer( "Locations to search for modules (comma separated) ", ($temp) );
|
57 |
$temp = &getAnswer( "Locations to search for modules (comma separated) ", ($temp) );
|
| 58 |
$$config{ 'moduleDirs' } = [ split( ',', $temp ) ];
|
58 |
$$config{ 'moduleDirs' } = [ split( ',', $temp ) ];
|
| 59 |
|
59 |
|
| 60 |
$temp = join( ",", @{ $$config{ 'scriptDirs' } } );
|
60 |
$temp = join( ",", @{ $$config{ 'scriptDirs' } } ) if $config->{'scriptDirs'};
|
| 61 |
$temp = &getAnswer( "Locations to search for scripts (comma separated) ", ($temp) );
|
61 |
$temp = &getAnswer( "Locations to search for scripts (comma separated) ", ($temp) );
|
| 62 |
$$config{ 'scriptDirs' } = [ split( ',', $temp ) ];
|
62 |
$$config{ 'scriptDirs' } = [ split( ',', $temp ) ];
|
| 63 |
|
63 |
|
| 64 |
}
|
64 |
}
|
| 65 |
|
65 |
|
| Line 132... |
Line 132... |
| 132 |
}
|
132 |
}
|
| 133 |
|
133 |
|
| 134 |
|
134 |
|
| 135 |
&processParameters( @ARGV );
|
135 |
&processParameters( @ARGV );
|
| 136 |
|
136 |
|
| 137 |
( $confDir, $sysinfo3 ) = findConf( $sysinfo3 );
|
137 |
( $confDir, $sysinfo3 ) = &findConf( $sysinfo3 );
|
| 138 |
$sysinfo3 = $confDir . "/" . $sysinfo3;
|
138 |
$sysinfo3 = $confDir . "/" . $sysinfo3;
|
| 139 |
|
139 |
|
| 140 |
if ( -f $sysinfo3 && &yesno( 'I found an existing configuration, modify it ' ) ) {
|
140 |
if ( -f $sysinfo3 && &yesno( "I found an existing configuration at $sysinfo3, modify it " ) ) {
|
| 141 |
print "Loading defaults from existing config $sysinfo3\n";
|
141 |
print "Loading defaults from existing config $sysinfo3\n";
|
| 142 |
$config = makeConfig( ( $sysinfo3 ) );
|
142 |
$config = makeConfig( ( $sysinfo3 ) );
|
| 143 |
my $content = &showConf( $config );
|
143 |
my $content = &showConf( $config );
|
| 144 |
}
|
144 |
}
|
| 145 |
|
145 |
|