| 101 |
rodolico |
1 |
#! /usr/bin/env perl
|
|
|
2 |
|
|
|
3 |
our $VERSION = '1.0';
|
|
|
4 |
|
|
|
5 |
use strict;
|
|
|
6 |
use warnings;
|
|
|
7 |
|
|
|
8 |
use FindBin;
|
|
|
9 |
use File::Spec;
|
|
|
10 |
use lib File::Spec->catdir($FindBin::Bin);
|
|
|
11 |
|
|
|
12 |
my $sourceDir = File::Spec->catdir($FindBin::Bin);
|
|
|
13 |
chdir $sourceDir;
|
|
|
14 |
|
|
|
15 |
my $verbose = 0;
|
|
|
16 |
|
|
|
17 |
# prompt the user for a response, then allow them to enter it
|
|
|
18 |
# the first response is considered the default and is printed
|
|
|
19 |
# in all caps if more than one exists
|
|
|
20 |
# first answer is used if they simply press the Enter
|
|
|
21 |
# key. The response is returned all lower case if more than one
|
|
|
22 |
# exists.
|
|
|
23 |
# it is assumed
|
|
|
24 |
sub getAnswer {
|
|
|
25 |
my ( $prompt, @answers ) = @_;
|
|
|
26 |
$answers[0] = '' unless defined( $answers[0] );
|
|
|
27 |
my $default = $answers[0];
|
|
|
28 |
my $onlyOneAnswer = scalar( @answers ) == 1;
|
|
|
29 |
print $prompt . '[ ';
|
|
|
30 |
$answers[0] = uc $answers[0] unless $onlyOneAnswer;
|
|
|
31 |
print join( ' | ', @answers ) . ' ]: ';
|
|
|
32 |
my $thisAnswer = <>;
|
|
|
33 |
chomp $thisAnswer;
|
|
|
34 |
$thisAnswer = $default unless $thisAnswer;
|
|
|
35 |
return $thisAnswer;
|
|
|
36 |
}
|
|
|
37 |
|
|
|
38 |
|
|
|
39 |
sub yesno {
|
|
|
40 |
my ( $prompt, $default ) = @_;
|
|
|
41 |
$default = 'yes' unless $default;
|
|
|
42 |
my $answer = &getAnswer( $prompt, $default eq 'yes' ? ('yes','no' ) : ('no', 'yes') );
|
|
|
43 |
return lc( substr( $answer, 0, 1 ) ) eq 'y';
|
|
|
44 |
}
|
|
|
45 |
|
|
|
46 |
|
|
|
47 |
# checks various flags to
|
|
|
48 |
sub determineOS {
|
|
|
49 |
my $operatingSystems = shift;
|
|
|
50 |
my $os = shift;
|
|
|
51 |
my $osType;
|
|
|
52 |
# first, look through our entries for fileexists
|
|
|
53 |
unless ( $os ) {
|
|
|
54 |
foreach $osType ( keys %$operatingSystems ) {
|
|
|
55 |
next unless defined $operatingSystems->{$osType}->{'fileexists'};
|
|
|
56 |
if ( -e $operatingSystems->{$osType}->{'fileexists'} ) {
|
|
|
57 |
return $osType;
|
|
|
58 |
} # if
|
|
|
59 |
} # foreach
|
|
|
60 |
} # unless
|
|
|
61 |
# next, look for uname and see if that gives us a clue
|
|
|
62 |
unless ( $os ) {
|
|
|
63 |
my $osString = `uname -a`;
|
|
|
64 |
foreach $osType ( keys %$operatingSystems ) {
|
|
|
65 |
next unless defined $operatingSystems->{$osType}->{'regex'};
|
|
|
66 |
print "Checking if OS is $osType in $osString\n" if $verbose > 2;
|
|
|
67 |
if ( $osString =~ m/$$operatingSystems{$osType}{'regex'}/i ) {
|
|
|
68 |
print "Yes, it is $osType\n" if $verbose > 2;
|
|
|
69 |
return $osType;
|
|
|
70 |
}
|
|
|
71 |
} # foreach
|
|
|
72 |
} # unless
|
|
|
73 |
return '';
|
|
|
74 |
}
|
|
|
75 |
|
|
|
76 |
|
|
|
77 |
# hash to set up os specific rules
|
|
|
78 |
my %operatingSystems = (
|
|
|
79 |
'debian' => {
|
|
|
80 |
'regex' => '(debian|mx|devuan)',
|
|
|
81 |
'install' => 'apt-get -y install libyaml-tiny-perl',
|
|
|
82 |
},
|
|
|
83 |
'ipfire' => {
|
|
|
84 |
'regex' => 'ipfire',
|
|
|
85 |
'install' => 'mkdir YAML ; cp Tiny.pm.gz YAML; gunzip YAML/Tiny.pm.gz',
|
|
|
86 |
},
|
|
|
87 |
'freebsd' => {
|
|
|
88 |
'regex' => 'freebsd',
|
|
|
89 |
'install' => 'pkg install p5-YAML-Tiny',
|
|
|
90 |
},
|
|
|
91 |
'opnsense' => {
|
|
|
92 |
'fileexists' => '/conf/config.xml',
|
|
|
93 |
'install' => 'gunzip Tiny.pm.gz ; mkdir YAML ; mv Tiny.pm YAML',
|
|
|
94 |
},
|
|
|
95 |
|
|
|
96 |
);
|
|
|
97 |
|
|
|
98 |
|
|
|
99 |
my $os = determineOS( \%operatingSystems );
|
|
|
100 |
|
|
|
101 |
die "Could not determine operating system, manual installation required\n" unless $os;
|
|
|
102 |
|
|
|
103 |
eval( 'use YAML::Tiny' );
|
|
|
104 |
if ( $@ ) { # we need to install YAML::Tiny
|
|
|
105 |
if ( &yesno( "You need YAML::Tiny but it is not installed\nI can install it with the command\n$operatingSystems{$os}{install}\nOk" ) ) {
|
|
|
106 |
print "Please wait while I do the installation\nIt will take a minute\n";
|
|
|
107 |
`$operatingSystems{$os}{'install'}`;
|
|
|
108 |
}
|
|
|
109 |
}
|
|
|
110 |
|
|
|
111 |
print "perl install-sysinfo-client.pl os=$os\n";
|
|
|
112 |
#exec "perl install-sysinfo-client.pl os=$os";
|