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;