Initial commit.

2021-05-24 22:18:33 +03:00
commit e2954d55f4
3701 changed files with 330017 additions and 0 deletions
--- a/cron.daily/csget
+++ b/cron.daily/csget
@@ -0,0 +1,90 @@
+#!/usr/bin/perl
+###############################################################################
+# Copyright 2006-2020, Way to the Web Limited
+# URL: http://www.configserver.com
+# Email: sales@waytotheweb.com
+###############################################################################
+use strict;
+use warnings;
+use diagnostics;
+
+if (my $pid = fork) {
+	exit 0;
+} elsif (defined($pid)) {
+	$pid = $$;
+} else {
+	die "Error: Unable to fork: $!";
+}
+chdir("/");
+close (STDIN);
+close (STDOUT);
+close (STDERR);
+open STDIN, "<","/dev/null";
+open STDOUT, ">","/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);
+				}
+			}
+		}
+	}
+}