Subversion Repositories camp_sysinfo_client_3

Rev

Rev 228 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 228 Rev 229
Line 27... Line 27...
27 
   use FindBin;
 27 
   use FindBin;
28 
   use File::Spec;
 28 
   use File::Spec;
29 
   use lib File::Spec->catdir($FindBin::Bin);
 29 
   use lib File::Spec->catdir($FindBin::Bin);
30 
}
 30 
}
31 
 
 31 
 
- 
 
 32 
use Cwd qw(abs_path);
- 
 
 33 
 
- 
 
 34 
 
32 
use sysinfoconf; # a library of shared routines with install.pl
 35 
use sysinfoconf; # a library of shared routines with install.pl
33 
our %displayOrder;
 36 
our %displayOrder;
34 
 
 37 
 
- 
 
 38 
$binDir = abs_path(File::Spec->catdir($FindBin::Bin) );
- 
 
 39 
 
- 
 
 40 
 
35 
my $config;
 41 
my $config;
36 
 
 42 
 
37 
sub findSendEmail {
 43 
sub findSendEmail {
38 
   my $currentLocation = shift;
 44 
   my $currentLocation = shift;
39 
   my @possibles = (
45 
   my @possibles = (
Line 268... Line 274...
268 
my $selection;
 274 
my $selection;
269 
while ( ! $quiet && ( $selection = &displayEditScreen( $config ) ) ne 'd' ) {
 275 
while ( ! $quiet && ( $selection = &displayEditScreen( $config ) ) ne 'd' ) {
270 
   &editSelection( $selection );
 276 
   &editSelection( $selection );
271 
}
 277 
}
272 
 
 278 
 
273 
die Dumper($config) . "\n";
 279 
#die Dumper($config) . "\n";
274 
 
 280 
 
275 
my $testResults = &testConfig($config);
 281 
my $testResults = &testConfig($config);
276 
print "Error found in configuration file, manually run\n$0\n" if ( $testResults ne 'Ok' );
 282 
print "Error found in configuration file, manually run\n$0\n" if ( $testResults ne 'Ok' );
277 
print $testResults if $test || $testResults ne 'Ok';
 283 
print $testResults if $test || $testResults ne 'Ok';
278 
 
 284