WebSVN – camp_sysinfo_client_3 – Diff – /configure.pl

 #!/usr/bin/env perl
+use warnings;
 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' );
 my @scriptDirs = ( '/opt/camp/sysinfo/scripts', '/etc/camp/scripts' );
-my $iSendReports = {};
+my $transports = {}; # holds transportation mechanisms
 # the following are keys which are specific to the different transport channels
+my %sendTypes = (
-my @sendEmailScriptKeys = ( 'mailTo', 'mailSubject','mailCC','mailBCC','mailServer','mailFrom','logFile','otherCLParams','tls','smtpUser','smtpPass', 'sendEmailScriptLocation' );
+                  'SendEmail' =>    { 'sendScript' => 'sendEmailScript',
-my @sendHTTPKeys = ( 'URL', 'urlVarName' );
+                                      'keys' =>
+                                      [
+                                        'mailTo',
+                                        'mailSubject',
+                                        'mailCC',
+                                        'mailBCC',
+                                        'mailServer',
+                                        'mailFrom',
+                                        'logFile',
+                                        'otherCLParams',
+                                        'tls',
+                                        'smtpUser',
+                                        'smtpPass',
+                                        'sendEmailScriptLocation'
+                                      ],
+                                    },
+                  'HTTP Upload' =>  { 'sendScript' => 'upload_http',
+                                      'keys' =>
+                                      [
+                                        'URL',
+                                        'key for report',
+                                        'key for date',
+                                        'key for hostname',
+                                        'key for client',
+                                        'key for serial number'
+                                      ]
+                                    }
+                );
 sub showConf {
    my $conf;
    $conf .= "\$clientName = '" . $clientName . "';\n";
-   $conf .= "\$serialNumber = '" . $serialNumber . "';\n";
+   $conf .= "\$serialNumber = '" . ( defined( $serialNumber ) ? $serialNumber : '' ) . "';\n";
    $conf .= "\$hostname = '" . $hostname . "';\n";
    $conf .= "\@moduleDirs = ('" . join( "','", @moduleDirs ). "');\n";
    $conf .= "\@scriptDirs = ('" . join( "','", @scriptDirs ). "');\n";
-   foreach my $key ( keys %$iSendReports ) {
+   $conf .= &transportsToConfig();
-      $conf .= "\$\$iSendReports{'$key'} = '" . $$iSendReports{$key} . "';\n";
-   }
    return $conf;
+}
+sub transportsToConfig {
+   my $config;
+   foreach my $priority ( sort { $a <=> $b } keys %$transports ) {
+      my $name = $$transports{ $priority }{'-name-'};
+      $config .= "# Tranport $name at priority $priority\n";
+      my $thisOne = $$transports{ $priority };
+      foreach my $key ( sort keys %$thisOne ) {
+         # if they are wanting variable substitution, surround with double quote
+         # otherwise, use single quote
+         if ( $$thisOne{$key} =~ m/(\$hostname)|(\$reportDate)|(\$clientName)|(\$serialNumber)/ ) {
+            $config .= "\$\$transports{$priority}{'$key'} = \"$$thisOne{$key}\";\n";
+         } else {
+            $config .= "\$\$transports{$priority}{'$key'} = '$$thisOne{$key}';\n";
+         }
+      } # foreach
+   } # foreach
+   return $config;
+} # transportsToConfig
 # prompt the user for a response, then allow them to enter it
 # the first response is considered the default and is printed
 # in all caps if more than one exists
 # first answer is used if they simply press the Enter
 # key. The response is returned all lower case if more than one
 # exists.
 # it is assumed
 sub getAnswer {
    my ( $prompt, @answers ) = @_;
+   $answers[0] = '' unless defined( $answers[0] );
    my $default = $answers[0];
    my $onlyOneAnswer = scalar( @answers ) == 1;
    print $prompt . '[ ';
    $answers[0] = uc $answers[0] unless $onlyOneAnswer;
    print join( ' | ', @answers ) . ' ]: ';
    $temp = join( ',',@scriptDirs );
    $temp = &getAnswer( "Locations to search for scripts (comma separated) ", ($temp) );
    @scriptDirs = split( ',', $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} ) );
-      }
-   } elsif ( $temp eq 'http' ) {
-      $$iSendReports{'sendScript'} = 'upload_http.pl';
-      # get rid of mail keys
-      delete @{$iSendReports} { @sendEmailScriptKeys };
-      for $key ( @sendHTTPKeys ) {
-         $$iSendReports{$key} = &getAnswer( "For key $key", ( $$iSendReports{$key} ) );
-      }
-   } elsif ( $temp eq 'sendmail' ) {
-      $iSendReports = {}; # null out the script
-   } else {
-      $$iSendReports{'sendScript'} = $temp;
-      delete @{$iSendReports} { @sendEmailScriptKeys, @sendHTTPKeys };
-      print "Unknown script, please manually configure\n";
-   }
+}
 # simply attempts to detect the operating system so we can do OS
 # specific actions at the end.
 sub getOperatingSystem {
       print BACKUP "$backupDir\n" if $backupDir;
+   }
    close BACKUP;
    # set all modules with ipfire or unix in the name to run
+   my $moduleDir = $moduleDirs[0];
-   opendir $moduleDir, $moduleDirs[0];
+   opendir $moduleDir, $moduleDir;
    my @modules = grep { /^((ipfire)|(unix))/ } readdir $moduleDir;
    closedir $moduleDir;
-   foreach my $module (@modules) {
+   foreach my $module ( @modules) {
-      `chmod 0700 $MODULES_DIR/$module`;
+      `chmod 0700 $moduleDir/$module`;
+   }
    print "All IPFire specific modules have been enabled\n";
+}
 # some debian specific things
 sub debian {
-   `ln -s /opt/camp/sysinfo/sysinfo-client /etc/cron.daily/sysinfo.cron`
+   `ln -s /opt/camp/sysinfo/sysinfo-client /etc/cron.daily/sysinfo`
       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`;
+      }
+   }
    print "All debian specific modules have been enabled\n";
+}
+sub setUpTransport {
+   my ($priority, $transport, $fields, $type ) = @_;
+   $priority = getAnswer( 'Priority', $priority );
+   $$transport{'sendScript'} = $$fields{'sendScript'} unless $$transport{'sendScript'};
+   $$transport{'-name-'} = $type unless $$transport{'-name-'};
+   my $allKeys = $$fields{'keys'};
+   foreach my $key ( @$allKeys ) {
+      if ( $key eq 'sendEmailScriptLocation' && ! -e $$transport{$key} ) {
+         $temp = &findSendEmail( $$transport{$key} );
+         $$transport{$key} = $temp if $temp;
+      }
+      $$transport{$key} = &getAnswer( "$key ", $$transport{$key} ? $$transport{$key} : '' );
+   }
+   return ( $priority, $transport );
+}
+sub showAllTransports {
+   foreach my $priority ( sort { $a <=> $b } keys %$transports ) {
+      print '='x40 . "\n";
+      &showTransports( $priority, $$transports{ $priority } );
+      print '='x40 . "\n";
+   }
+}
+sub showTransports {
+   my ( $priority,$thisOne )  = @_;
+   print $$thisOne{'-name-'} . " has priority $priority\n";
+   foreach my $key ( sort keys %$thisOne ) {
+      next if $key =~ m/^-.*-$/;
+      print "$key = $$thisOne{$key}\n";
+   }
+}
+sub doTransports {
+   my ( $transports ) = @_;
+   foreach my $priority ( sort { $a <=> $b } keys %$transports ) {
+      if ( &yesno( $$transports{$priority}{'-name-'} . " has a priority of $priority, edit it?") ) {
+         #print Dumper( $sendTypes{$$transports{$priority}{'-name-'}} );
+         #die;
+         my ( $newpriority,$temp ) = &setUpTransport( $priority, $$transports{$priority}, $sendTypes{$$transports{$priority}{'-name-'}} );
+         if ( $newpriority != $priority ) {
+            delete $$transports{$priority};
+            $priority = $newpriority;
+         }
+         $$transports{$priority} = $temp;
+      } # if
+   }
+   foreach my $priority ( sort { $a <=> $b } keys %$transports ) {
+      print '='x40 . "\n";
+      &showTransports( $priority, $$transports{ $priority } );
+      print '='x40 . "\n";
+   }
+   while ( &yesno( "Would you like to add any other transport mechanisms?" ) ) {
+      $newType = &getAnswer( 'Type of Transport? ', keys %sendTypes );
+      my ( $priority,$temp ) = &setUpTransport( 99, {}, $sendTypes{$newType}, $newType );
+      $$transports{$priority} = $temp;
+   }
+   foreach my $priority ( sort { $a <=> $b } keys %$transports ) {
+      print '='x40 . "\n";
+      &showTransports( $priority, $$transports{ $priority } );
+      print '='x40 . "\n";
+   }
+}
 sub writeConfig {
    my ($path,$filename,$content) = @_;
    my $return;
    `mkdir -p $path` unless -d $path;
    $filename = $path . '/' . $filename;
    close CONF;
    $return .= "Configuration successfully written to $filename\n";
    return $return;
+}
-# See if existing configuration. If so, offer to load it
+sub convertSysinfo2 {
-if ( -f $sysinfo3 && &yesno( 'I found an existing configuration, modify it ' ) ) {
-   print "Loading defaults from existing config $sysinfo3\n";
    my $client_name;
+   my $iMailResults;
+   my $mailTo;
+   my $mailSubject;
+   my $mailCC;
+   my $mailBCC;
+   my $mailServer;
+   my $mailServerPort;
+   my $mailFrom;
+   my $SENDMAIL;
+   my $clientName;
+   my $serialNumber;
+   my $hostname;
+   my $transports = {}; # holds transportation mechanisms
-   open SEED, "<$sysinfo3" or die "Could not open $sysinfo3: $!\n";
+   open SEED, "<$sysinfo2" or die "Could not open $sysinfo2: $!\n";
    my $temp = join( '', <SEED> );
    close SEED;
    eval( $temp );
+   if ( $iMailResults ) {
+      $temp = {};
-} else { # nope, so see if an old sysinfo2 or a seed file exists
+      $$temp{'-name-'} = 'SendEmail';
-   if ( -f $sysinfo2 && &yesno( 'Old sysinfo 2 config exists, load it for defaults' ) ) {
+      $$temp{'mailTo'} = $mailTo if $mailTo;
-      print "Loading defaults from sysinfo2 config $sysinfo2\n";
+      $$temp{'$mailFrom'} = $mailFrom if $mailFrom;
-      my $client_name;
+      $$temp{'mailCC'} = $mailCC if $mailCC;
-      open SEED, "<$sysinfo2" or die "Could not open $sysinfo2: $!\n";
+      $$temp{'mailServer'} = $mailServer if $mailServer;
-      my $temp = join( '', <SEED> );
+      $$temp{'mailServer'} .= ":$mailServerPort" if $mailServerPort;
-      close SEED;
+      $$transports{'1'} = $temp;
-      eval( $temp );
+   }
-      $clientName = $client_name if ( $client_name );
+   $clientName = $client_name if ( $client_name );
+   return ( $clientName,$hostname,$serialNumber,$transports );
-   }
+}
+sub loadConfig {
+   # See if existing configuration. If so, offer to load it
-   if ( -f $seedFile  && &yesno( 'An installation seed file was found, load it' ) ) {
+   if ( -f $sysinfo3 && &yesno( 'I found an existing configuration, modify it ' ) ) {
-      print "Loading seed file $seedFile\n";
+      print "Loading defaults from existing config $sysinfo3\n";
+      my $client_name;
-      open SEED, "<$seedFile" or die "Could not open $seedFile: $!\n";
+      open SEED, "<$sysinfo3" or die "Could not open $sysinfo3: $!\n";
       my $temp = join( '', <SEED> );
       close SEED;
       eval( $temp );
+   } else { # nope, so see if an old sysinfo2 or a seed file exists
+      if ( -f $sysinfo2 && &yesno( 'Old sysinfo 2 config exists, load it for defaults' ) ) {
+         print "Loading defaults from sysinfo2 config $sysinfo2\n";
+         # NOTE: the return values are all placed into globals!!!!
+         ( $clientName,$hostname,$serialNumber,$transports ) = &convertSysinfo2();
+      }
+      # seed files are expected to be in the correct format already
+      if ( -f $seedFile  && &yesno( 'An installation seed file was found, load it' ) ) {
+         print "Loading seed file $seedFile\n";
+         open SEED, "<$seedFile" or die "Could not open $seedFile: $!\n";
+         my $temp = join( '', <SEED> );
+         close SEED;
+         eval( $temp );
+      }
+   }
+}
+&loadConfig();
 unless ( $hostname ) {
    $hostname = `hostname -f`;
    chomp $hostname;
+}
 &userConfirmation();
+&doTransports( $transports );
 print "The following is the configuration I'll write out\n" . '-'x40 . "\n";
 print &showConf(  );
 print '-'x40 . "\n";
-print &writeConfig( $configPath, $configFile, &showConf() ) 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 eq 'ipfire';

Subversion Repositories camp_sysinfo_client_3

(root)/configure.pl @ 17 – Rev 14 → 16