48 lines
906 B
Perl
Executable File
48 lines
906 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
print "Running on " . `hostname`;
|
|
|
|
my $return = system("screen -list");
|
|
print "screen RETURN: $return\n";
|
|
|
|
if ($return eq "-1") {
|
|
if (-e "/etc/gentoo-release") {
|
|
system "emerge app-misc/screen";
|
|
} else {
|
|
system "yum install screen -y";
|
|
system "cat /etc/redhat-release";
|
|
}
|
|
system "ifconfig";
|
|
}
|
|
|
|
my $return = system("bc --version");
|
|
print "bc RETURN: $return\n";
|
|
|
|
if ($return eq "-1") {
|
|
if (-e "/etc/gentoo-release") {
|
|
system "emerge bc";
|
|
} elsif (-e "/etc/redhat-release") {
|
|
system "yum install bc -y";
|
|
} else {
|
|
system "apt-get install bc";
|
|
}
|
|
system "ifconfig";
|
|
}
|
|
|
|
my $return = system("git --version");
|
|
print "git RETURN: $return\n";
|
|
exit;
|
|
|
|
if ($return eq "-1") {
|
|
if (-e "/etc/gentoo-release") {
|
|
system "emerge git";
|
|
} elsif (-e "/etc/redhat-release") {
|
|
system "yum install git -y";
|
|
} else {
|
|
system "apt-get install git";
|
|
}
|
|
system "ifconfig";
|
|
}
|