Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 103 Rev 104
Line 30... Line 30...
30 
            '/opt/sendEmail/sendEmail',
30 
            '/opt/sendEmail/sendEmail',
31 
            '/opt/sendEmail/sendEmail.pl'
31 
            '/opt/sendEmail/sendEmail.pl'
32 
            );
 32 
            );
33 
   return $currentLocation if ( $currentLocation && -x $currentLocation );
 33 
   return $currentLocation if ( $currentLocation && -x $currentLocation );
34 
   # well, we didn't find it, so look around some more
 34 
   # well, we didn't find it, so look around some more
35 
   # we install it in /opt, so try there
 35 
   # Look through the possibles
36 
   foreach my $current ( @possibles ) {
 36 
   foreach my $current ( @possibles ) {
37 
      return $current if -x $current;
 37 
      return $current if -x $current;
38 
   }
 38 
   }
39 
   if ( &yesno( "You are asking for sendEmail, but I don't see it on the system\nWould you like me to automatically download and install" ) ) {
 39 
   if ( &yesno( "You are asking for sendEmail, but I don't see it on the system\nWould you like me to automatically download and install" ) ) {
40 
      my $path = `perl getSendEmail.pl`;
 40 
      my $path = `perl getSendEmail.pl`;
Line 132... Line 132...
132 
}
 132 
}
133 
 
 133 
 
134 
 
 134 
 
135 
&processParameters( @ARGV );
 135 
&processParameters( @ARGV );
136 
 
 136 
 
- 
 
 137 
 
137 
( $confDir, $sysinfo3 ) = &findConf( $sysinfo3 );
 138 
( $confDir, $sysinfo3 ) = &findConf( $sysinfo3 );
- 
 
 139 
 
138 
$sysinfo3 = $confDir . "/" . $sysinfo3;
 140 
$sysinfo3 = $confDir . "/" . $sysinfo3 if ( $confDir );
139 
 
 141 
 
140 
if ( -f $sysinfo3 && &yesno( "I found an existing configuration at $sysinfo3, modify it " ) ) {
 142 
if ( -f $sysinfo3 && &yesno( "I found an existing configuration at $sysinfo3, modify it " ) ) {
141 
   print "Loading defaults from existing config $sysinfo3\n";
 143 
   print "Loading defaults from existing config $sysinfo3\n";
142 
   $config = makeConfig( ( $sysinfo3 )  );
 144 
   $config = makeConfig( ( $sysinfo3 )  );
143 
   my $content = &showConf( $config );
 145 
   my $content = &showConf( $config );