Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

package sysinfoconf;

use warnings;

use Exporter;

our @ISA = qw( Exporter );

our @EXPORT = qw( $clientName $serialNumber $hostname @moduleDirs @scriptDirs 

                  $transports $sysinfo3 %sendTypes $binDir $modulesDir

                  $scriptsDir $confDir $binName $confName

                  &showConf &transportsToConfig &getAnswer &yesno  

                  &writeConfig &processParameters

                );

$clientName = '';

$serialNumber = '';

$hostname = '';

@moduleDirs = ( '/opt/camp/sysinfo-client/modules', '/etc/camp/sysinfo-client/modules' );

@scriptDirs = ( '/opt/camp/sysinfo-client/scripts', '/etc/camp/sysinfo-client/scripts' );

$transports = {}; # holds transportation mechanisms

# the following are keys which are specific to the different transport channels

$sysinfo3 = '/etc/camp/sysinfo-client/sysinfo-client.conf';

$binDir = '/opt/camp/sysinfo-client';

$modulesDir = $binDir . '/modules';

$scriptsDir = $binDir . '/scripts';

$confDir = '/etc/camp/sysinfo-client';

$binName = 'sysinfo-client';

$confName = 'sysinfo-client.conf';

%sendTypes = ( 

                  'SendEmail' =>    { 'sendScript' => 'sendEmailScript',

                                      '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 = '" . ( defined( $serialNumber ) ? $serialNumber : '' ) . "';\n";

   $conf .= "\$hostname = '" . $hostname . "';\n";

   $conf .= "\@moduleDirs = ('" . join( "','", @moduleDirs ). "');\n";

   $conf .= "\@scriptDirs = ('" . join( "','", @scriptDirs ). "');\n";

   $conf .= &transportsToConfig();

   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 ) {

         $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 ) . ' ]: ';

   $thisAnswer = <>;

   chomp $thisAnswer;

   $thisAnswer = $default unless $thisAnswer;

   return $thisAnswer;

}

sub yesno {

   my $prompt = shift;

   my $answer = &getAnswer( $prompt, ('yes','no' ) );

   return lc( substr( $answer, 0, 1 ) ) eq 'y';

}

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;

   `chmod 600 $filename`;

   $return .= "Configuration successfully written to $filename\n";

   return $return;

}

sub processParameters {

   while ( my $parameter = shift ) {

      if ( $parameter eq '-v' ) {

         print "$main::VERSION\n";

         exit;

      }

   } # while

}

1;