","/dev/null";
open STDERR, ">","/dev/null";
$0 = "ConfigServer Version Check";
my @downloadservers = ("https://download.configserver.com", "https://download2.configserver.com");
system("mkdir -p /var/lib/configserver/");
system("rm -f /var/lib/configserver/*.txt /var/lib/configserver/*error");
my $cmd;
if (-e "/usr/bin/curl") {$cmd = "/usr/bin/curl -skLf -m 120 -o"}
elsif (-e "/usr/bin/wget") {$cmd = "/usr/bin/wget -q -T 120 -O"}
else {
open (my $ERROR, ">", "/var/lib/configserver/error");
print $ERROR "Cannot find /usr/bin/curl or /usr/bin/wget to retrieve product versions\n";
close ($ERROR);
exit;
}
my $GET;
if (-e "/usr/bin/GET") {$GET = "/usr/bin/GET -sd -t 120"}
my %versions;
if (-e "/etc/csf/csf.pl") {$versions{"/csf/version.txt"} = "/var/lib/configserver/csf.txt"}
if (-e "/etc/cxs/cxs.pl") {$versions{"/cxs/version.txt"} = "/var/lib/configserver/cxs.txt"}
if (-e "/usr/local/cpanel/whostmgr/docroot/cgi/configserver/cmm.cgi") {$versions{"/cmm/cmmversion.txt"} = "/var/lib/configserver/cmm.txt"}
if (-e "/usr/local/cpanel/whostmgr/docroot/cgi/configserver/cse.cgi") {$versions{"/cse/cseversion.txt"} = "/var/lib/configserver/cse.txt"}
if (-e "/usr/local/cpanel/whostmgr/docroot/cgi/configserver/cmq.cgi") {$versions{"/cmq/cmqversion.txt"} = "/var/lib/configserver/cmq.txt"}
if (-e "/usr/local/cpanel/whostmgr/docroot/cgi/configserver/cmc.cgi") {$versions{"/cmc/cmcversion.txt"} = "/var/lib/configserver/cmc.txt"}
if (-e "/etc/osm/osmd.pl") {$versions{"/osm/osmversion.txt"} = "/var/lib/configserver/osm.txt"}
if (-e "/usr/msfe/version.txt") {$versions{"/version.txt"} = "/var/lib/configserver/msinstall.txt"}
if (-e "/usr/msfe/msfeversion.txt") {$versions{"/msfeversion.txt"} = "/var/lib/configserver/msfe.txt"}
if (scalar(keys %versions) == 0) {
unlink $0;
exit;
}
unless ($ARGV[0] eq "--nosleep") {
system("sleep",int(rand(60 * 60 * 6)));
}
for (my $x = @downloadservers; --$x;) {
my $y = int(rand($x+1));
if ($x == $y) {next}
@downloadservers[$x,$y] = @downloadservers[$y,$x];
}
foreach my $server (@downloadservers) {
foreach my $version (keys %versions) {
unless (-e $versions{$version}) {
if (-e $versions{$version}.".error") {unlink $versions{$version}.".error"}
my $status = system("$cmd $versions{$version} $server$version");
# print "$cmd $versions{$version} $server$version\n";
if ($status) {
if ($GET ne "") {
open (my $ERROR, ">", $versions{$version}.".error");
print $ERROR "$server$version - ";
close ($ERROR);
my $GETstatus = system("$GET $server$version >> $versions{$version}".".error");
} else {
open (my $ERROR, ">", $versions{$version}.".error");
print $ERROR "Failed to retrieve latest version from ConfigServer";
close ($ERROR);
}
}
}
}
}