Subversion Repositories camp_sysinfo_client_3

#! /usr/bin/env perl

our $VERSION = '1.0';

use strict;
use warnings;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin);

my $sourceDir = File::Spec->catdir($FindBin::Bin);
chdir $sourceDir;

my $verbose = 0;

# 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 ) . ' ]: ';
   my $thisAnswer = <>;
   chomp $thisAnswer;
   $thisAnswer = $default unless $thisAnswer;
   return $thisAnswer;
}


sub yesno {
   my ( $prompt, $default ) = @_;
   $default = 'yes' unless $default;
   my $answer = &getAnswer( $prompt, $default eq 'yes' ? ('yes','no' ) : ('no', 'yes') );
   return lc( substr( $answer, 0, 1 ) ) eq 'y';
}


# hash to set up os specific rules
my %operatingSystems = (
                  'debian' => {
                     'regex'  => '(debian|mx|devuan)',
                     'install' => 'apt-get -y install libyaml-tiny-perl',
                  },
                  'ipfire' => {
                     'regex'  => 'ipfire',
                     'install' => 'mkdir YAML ; cp Tiny.pm.gz YAML; gunzip YAML/Tiny.pm.gz',
                  },
                  'freebsd' => {
                     'regex' => 'freebsd',
                     'install' => 'echo y | pkg install p5-YAML-Tiny',
                  },
                  'opnsense' => {
                     'fileexists' => '/conf/config.xml',
                     'install' => 'gunzip Tiny.pm.gz ; mkdir YAML ; mv Tiny.pm YAML',
                  },
                  
                );


my $os = `./determineOS`;

die "Could not determine operating system, manual installation required\n" unless $os;

eval( 'use YAML::Tiny' );
if ( $@ ) { # we need to install YAML::Tiny
   if ( &yesno( "You need YAML::Tiny but it is not installed\nI can install it with the command\n$operatingSystems{$os}{install}\nOk" ) ) {
      print "Please wait while I do the installation\nIt will take a minute\n";
      `$operatingSystems{$os}{'install'}`;
   }
}

#print "perl install-sysinfo-client.pl --os=$os\n";
exec "perl install-sysinfo-client.pl --os=$os";