Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use warnings;

$main::VERSION = '1.0';

my $thisDir = `pwd`;

chomp $thisDir;

my $targetDir = '/opt/camp/sysinfo-client';

my $modulesDir = $targetDir . '/modules';

my $scriptsDir = $targetDir . '/scripts';

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

# an extremely basic installer for sysinfo-client

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

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

   while ( my $parameter = shift ) {

      if ( $parameter eq '-v' ) {

         print "$main::VERSION\n";

         exit;

      }

   } # while

}

&processParameters( @ARGV );

if ( &yesno( "I am getting ready to remove sysinfo-client from the system\nOk?" ) ) {

   my $removeConfig = &yesno( "Do you want me to remove the configuration also?" );

   print "Uninstalling ";

   print "and removing config" if $removeConfig;

   `rm -fRv $targetDir`;

   `rm -fRv $confDir` if $removeConfig;

   unlink(  '/etc/fcron.daily/sysinfo.cron',

            '/etc/cron.daily/sysinfo',

            '/usr/local/bin/sysinfo-client' 

          );

   print "\nStandard sysinfo-client removed\n";

} else {

   print "Uninstalled aborted\n"

}

exit 1;