WebSVN – camp_sysinfo_client_3 – Diff – /configure.pl

 #!/usr/bin/env perl
 my $seedFile = 'sysinfo-client.seed';
 my $sysinfo2 = '/etc/sysinfo/sysinfo.conf';
 my $sysinfo3 = '/etc/camp/sysinfo-client.conf';
+my $configPath = '/etc/camp';
+my $configFile = 'sysinfo-client.conf';
 my $clientName = '';
 my $serialNumber = '';
 my $hostname;
 my @moduleDirs = ( '/opt/camp/sysinfo/modules', '/etc/camp/modules' );
    $conf .= "\$serialNumber = '" . $serialNumber . "';\n";
    $conf .= "\$hostname = '" . $hostname . "';\n";
    $conf .= "\@moduleDirs = ('" . join( "','", @moduleDirs ). "');\n";
    $conf .= "\@scriptDirs = ('" . join( "','", @scriptDirs ). "');\n";
    foreach my $key ( keys %$iSendReports ) {
-      $conf .= "\$\$iSendReports{'$key'} = \"" . $$iSendReports{$key} . "\";\n";
+      $conf .= "\$\$iSendReports{'$key'} = '" . $$iSendReports{$key} . "';\n";
+   }
    return $conf;
+}
 # prompt the user for a response, then allow them to enter it
+}
 sub yesno {
    my $prompt = shift;
    my $answer = &getAnswer( $prompt, ('yes','no' ) );
-   return lc( substr( $answer, 1, 1 ) ) ne 'y';
+   return lc( substr( $answer, 0, 1 ) ) eq 'y';
+}
+sub findSendEmail {
+   my $currentLocation = shift;
+   my @possibles = ( '/opt/sendEmail/sendEmail', '/opt/sendEmail/sendEmail.pl' );
+   return $currentLocation if ( $currentLocation && -x $currentLocation );
+   # well, we didn't find it, so look around some more
+   # we install it in /opt, so try there
+   foreach my $current ( @possibles ) {
+      return $current if -x $current;
+   }
+   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" ) ) {
+      $path = `perl getSendEmail.pl`;
+      chomp $path;
+      return $path;
+   }
+   return '';
+}
 sub userConfirmation {
    my $temp;
    $temp = &getAnswer( "How do you want to send the reports ", ('sendEmailScript', 'http', 'sendmail' ) );
    if ( $temp eq 'sendEmailScript' ) {
       $$iSendReports{'sendScript'} = 'sendEmailScript';
+      $$iSendReports{'sendEmailScriptLocation'} = &findSendEmail( $$iSendReports{'sendEmailScriptLocation'} );
       # get rid of http keys
       delete @{$iSendReports} {@sendHTTPKeys};
       for $key ( @sendEmailScriptKeys ) {
          $$iSendReports{$key} = &getAnswer( "For key $key", ( $$iSendReports{$key} ) );
+      }
    `ln -s /opt/camp/sysinfo/sysinfo-client /etc/cron.daily/sysinfo.cron`
       if &yesno( 'Add link to cron.daily' );
    if ( `dpkg --get-selections | grep  sysinfo-client | grep install`
       && &yesno ('It looks like sysinfo version 2 is installed via apt, should I remove it' ) ) {
       if ( &yesno( 'Back up old configuration? ') ) {
-         `tar -czvf /root/sysinfo.2.config.tgz /etc/sysinfo`
+         `tar -czvf /root/sysinfo.2.config.tgz /etc/sysinfo`;
          print "Old configuration copied to /root/sysinfo.2.config.tgz\n";
+      }
       `apt-get -y --purge remove sysinfo-client`;
       print "There may be some unused packages now. You can remove them with\napt-get autoremove\n\n";
+   }
       `chmod 0700 $MODULES_DIR/$module`;
+   }
    print "All debian specific modules have been enabled\n";
+}
+sub writeConfig {
+   my ($path,$filename,$content) = @_;
+   my $return;
+   `mkdir -p $path` unless -d $path;
+   $filename = $path . '/' . $filename;
+   if ( -e $filename ) {
+      `cp $filename $filename.bak` if ( -e $filename );
+      $return .= "Old config copied to $filename.bak\n";
+   }
+   open CONF,">$filename" or die "Could not write to $filename: $!\n";
+   print CONF $content;
+   close CONF;
+   $return .= "Configuration successfully written to $filename\n";
+   return $return;
+}
 # See if existing configuration. If so, offer to load it
 if ( -f $sysinfo3 && &yesno( 'I found an existing configuration, modify it ' ) ) {
    print "Loading defaults from existing config $sysinfo3\n";
    my $client_name;
    open SEED, "<$sysinfo3" or die "Could not open $sysinfo3: $!\n";
 &userConfirmation();
 print "The following is the configuration I'll write out\n" . '-'x40 . "\n";
 print &showConf(  );
 print '-'x40 . "\n";
-print "Ok, I'll write it\n" if &yesno( "Write this configuration" );
+print &writeConfig( $configPath, $configFile, &showConf() ) if &yesno( "Write this configuration" );
 my $os = &getOperatingSystem();
 if ( $os && &yesno( "I recognize this system, may I automatically set up a few things" ) ) {
-   &ipFire() if $os = 'ipfire';
+   &ipFire() if $os eq 'ipfire';
-   &debian() if $os = 'debian';
+   &debian() if $os eq 'debian';
+}
 print "sysinfo-client has been installed configured. You can return to\nthis screen at any time by running /opt/camp/sysinfo/config.pl\n";
 ;

Subversion Repositories camp_sysinfo_client_3

(root)/configure.pl @ 12 – Rev 11 → 12