old-benchmark-code/loadbot/prep.pl

#!/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";

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 -y install git";
	}
	system "ifconfig";
}

if ( ! -e "benchmarks") {
	my $return = system("git clone http://69.55.54.144/benchmarks/.git/");
} else {
	chdir "benchmarks";
	my $return = system("git pull");
}