Subversion Repositories camp_sysinfo_client_3

Rev

Rev 54 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 54 Rev 55
Line 128... Line 128...
128 
}
 128 
}
129 
 
 129 
 
130 
 
 130 
 
131 
&processParameters( @ARGV );
 131 
&processParameters( @ARGV );
132 
 
 132 
 
133 
$sysinfo3 = findConf( $sysinfo3 );
 133 
( $confDir, $sysinfo3 ) = findConf( $sysinfo3 );
- 
 
 134 
$sysinfo3 = $confDir . "/" . $sysinfo3;
134 
 
 135 
 
135 
if ( -f $sysinfo3 && &yesno( 'I found an existing configuration, modify it ' ) ) {
 136 
if ( -f $sysinfo3 && &yesno( 'I found an existing configuration, modify it ' ) ) {
136 
   print "Loading defaults from existing config $sysinfo3\n";
 137 
   print "Loading defaults from existing config $sysinfo3\n";
137 
   $config = makeConfig( ( $sysinfo3 )  );
 138 
   $config = makeConfig( ( $sysinfo3 )  );
138 
   my $content = &showConf( $config );
 139 
   my $content = &showConf( $config );
Line 146... Line 147...
146 
&doTransports( $$config{'transports'} );
 147 
&doTransports( $$config{'transports'} );
147 
 
 148 
 
148 
print "The following is the configuration I'll write out\n" . '-'x40 . "\n";
 149 
print "The following is the configuration I'll write out\n" . '-'x40 . "\n";
149 
print &showConf( $config );
 150 
print &showConf( $config );
150 
print '-'x40 . "\n";
 151 
print '-'x40 . "\n";
- 
 
 152 
$confName = $confDir . '/' . $confName;
151 
print &writeConfig( $confDir, $confName, &showConf( $config ) ) if &yesno( "Write this configuration" );
 153 
print &writeConfig( $confName, &showConf( $config ) ) if &yesno( "Write this configuration to $confName" );
152 
 
 154 
 
153 
 
 155 
 
154 
print "sysinfo-client has been installed configured. You can return to\nthis screen at any time by running /opt/camp/sysinfo/config.pl\n";
 156 
print "sysinfo-client has been installed configured. You can return to\nthis screen at any time by running config.pl\n";
155 
 
 157 
 
156 
1;
 158 
1;