Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use warnings;
use strict;

# v1.1.0 20161022 RWR
# use library sysinfoconf.pm for loading, editing and displaying config
#
# v1.2.0 20190108 RWR
# added UUID
#
# v1.3.0 20191107 RWR
# changed the screen to allow the user to see most of the values and decide what to edit
# then write the results.
# also, parameters are passed that allow the import of a file in old conf format

use Getopt::Long;


our $VERSION = '1.3.0';

# find our location and use it for searching for libraries
BEGIN {
   use FindBin;
   use File::Spec;
   use lib File::Spec->catdir($FindBin::Bin);
}

use sysinfoconf; # a library of shared routines with install.pl

my $config;

sub findSendEmail {
   my $currentLocation = shift;
   my @possibles = ( 
            '/usr/local/opt/sendEmail/sendEmail',
            '/usr/local/opt/sendEmail/sendEmail.pl',
            '/opt/sendEmail/sendEmail', 
            '/opt/sendEmail/sendEmail.pl' 
            );
   return $currentLocation if ( $currentLocation && -x $currentLocation );
   # well, we didn't find it, so look around some more
   # Look through the possibles
   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" ) ) {
      my $path = `perl getSendEmail.pl`;
      chomp $path;
      return $path;
   }
   return '';
}

sub userConfirmation {
   my $config = shift;
   my $temp;
   
   $$config{'clientName'} = &getAnswer( "Client Name ", ($$config{'clientName'}) );
   $$config{'serialNumber'} = &getAnswer( "Serial Number ", ($$config{'serialNumber'}) );
   $$config{'UUID'} = &getAnswer( "UUID ", ($$config{'UUID'}) );
   $$config{'hostname'} = &getAnswer( "Host Name ", ($$config{'hostname'}) );

   $temp = join( ",", @{ $$config{ 'moduleDirs' } } ) if $config->{ 'moduleDirs' };
   $temp = &getAnswer( "Locations to search for modules (comma separated) ", ($temp) );
   $$config{ 'moduleDirs' } = [ split( ',', $temp ) ];

   $temp = join( ",", @{ $$config{ 'scriptDirs' } } ) if $config->{'scriptDirs'};
   $temp = &getAnswer( "Locations to search for scripts (comma separated) ", ($temp) );
   $$config{ 'scriptDirs' } = [ split( ',', $temp ) ];

}

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} ) {
         my $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?" ) ) {
      my $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 showEntry {
   my ( $lineno, $prompt, $value ) = @_;
   $value = '' unless $value;
   return "$lineno. $prompt: $value\n";
}

sub displayEditScreen {
   my $config = shift;
   #print "\033[2J";    #clear the screen
   #print "\033[0;0H"; #jump to 0,0   
   print &showEntry( 1, 'Client Name', $config->{'clientName'} );
   print &showEntry( 2, 'Host Name', $config->{'hostname'} );
   print &showEntry( 3, 'Serial Number', $config->{'serialNumber'} );
   print &showEntry( 4, 'UUID', $config->{'UUID'} );
   print &showEntry( 5, 'Module Dirs', join( ',', $config->{'moduleDirs'} ?  @{ $config->{'moduleDirs'} } : () ) );
   print &showEntry( 6, 'Script Dirs', join( ',', $config->{'scriptDirs'} ?  @{ $config->{'scriptDirs'} } : () ) );
   print &showEntry( 7, 'Transports', '' );
   foreach my $key ( sort { $a <=> $b } keys %{ $config->{'transports'} } ) {
      print "\t$key\t" . $config->{'transports'}->{$key}->{'name'} . "\n";
   }
   print "Select Option to Edit, or 'Done' if finished [Done]: ";
   my $selection = <>;
   chomp $selection;
   $selection = 'd' unless $selection;
   return lc substr( $selection, 0, 1 );
}

sub getValue {
   my ( $prompt, $value ) = @_;
   print "$prompt [$value]: ";
   my $t = <>;
   chomp $t;
   return $t ? $t : $value;
}

sub editSelection {
   my $selection = shift;
   if ( $selection == 1 ) {
      $config->{'clientName'} = &getValue( 'Client Name', $config->{'clientName'} );
   } elsif ( $selection == 2 ) {
      $config->{'hostname'} = &getValue( 'Host Name', $config->{'hostname'} );
   } elsif ( $selection == 3 ) {
      $config->{'serialNumber'} = &getValue( 'Serial Number', $config->{'serialNumber'} );
   } elsif ( $selection == 4 ) {
      $config->{'UUID'} = &getValue( 'UUID', $config->{'UUID'} );
   } elsif ( $selection == 5 ) {
      my $t = join( ',', $config->{'moduleDirs'} ?  @{ $config->{'moduleDirs'} } : () );
      $t = &getValue( "Comma separated list of Module Directories\n\t", $t );
      my @t = split( ',', $t );
      $config->{'moduleDirs'} =  \@t;
   } elsif ( $selection == 6 ) {
      my $t = join( ',', $config->{'scriptDirs'} ?  @{ $config->{'scriptDirs'} } : () );
      $t = &getValue( "Comma separated list of Script Directories\n\t", $t );
      my @t = split( ',', $t );
      $config->{'scriptDirs'} =  \@t;
   } elsif ( $selection == 7 ) {
      print "Can not automatically do this at this time\nManually edit the file (press enter to continue)";
      my $t = <>;
   }
}

my @confFileName;
my $verbose;
my $help;
my $version;

# handle any command line parameters that may have been passed in
# verbose is incremental, so for example, -vv would give more info than -v
# there can be multiple files passed, and an entry can have a comma
# separated list. The files will be processed in order, with the last
# one passed in being the one that overrides everything.
GetOptions (
            "verbose|v+" => \$verbose, # verbosity level, 0-9
            'file|f=s'      => \@confFileName,
            'help|h'      => \$help
            ) or die "Error parsing command line\n";
                  
if ( $help ) { &help() ; exit; }
if ( $version ) { print "$0 version $VERSION\n"; exit; }

# if they passed something like -f file1,file2,file3, parse it out
@confFileName = split(/,/,join(',',@confFileName));

# look for the standard configuration file in the standard place
( $confDir, $sysinfo3 ) = &findConf( $sysinfo3 );
# add it at the tail end of the list
push @confFileName, $confDir . "/" . $sysinfo3 if ( $confDir );

print "Loading defaults from existing configs\n";
$config = &makeConfig( @confFileName  );

my $selection;
while ( ( $selection = &displayEditScreen( $config ) ) ne 'd' ) {
   &editSelection( $selection );
}

die;
#&userConfirmation( $config );

#use Data::Dumper;
#print Dumper( $config ); die;

&doTransports( $$config{'transports'} );

print "The following is the configuration I'll write out\n" . '-'x40 . "\n";
print &showConf( $config );
print '-'x40 . "\n";
$confName = $confDir . '/' . $confName;
print &writeConfig( $confName, &showConf( $config ) ) if &yesno( "Write this configuration to $confName" );


print "sysinfo-client has been installed configured. You can return to\nthis screen at any time by running config.pl\n";

1;