Subversion Repositories camp_sysinfo_client_3

#

# 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;

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 ) = @_;

   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

# add it at the tail end of the list

push @confFileName, $confDir . "/" . $sysinfo3 if ( $confDir );

print "Loading defaults from existing configs\n";

die;