torrentrage - torrentrage - cronjobs - SOURCE CODE

#!/usr/bin/perl

###
# Crontab 
# env EDITOR=joe crontab -e
# */1 * * * * /usr/bin/perl /opt/torrentrage/cronjobs/mysqlrestart.pl
###

use strict;
use LWP::Simple qw ($ua head get);


$ua->timeout(10);
my $webpage	='http://www.torrentrage.com/';


open(R,"/proc/loadavg");
	my $loadavg = do { local( $/ ) ; <R> } ;
close R;

my @loadavg		= split(" ",$loadavg);

if ( $loadavg[0] >= 35 ) {
	#print "load to high";
	system("/etc/init.d/mysql restart");
#	system("/etc/init.d/apache2 restart");
	system("renice 5 `pidof mysqld`");
	system("renice 5 `pidof apache2`");
	system("renice 5 `pidof perl`");
	system("renice 5 `pidof ruby`");
};

if (head($webpage)){
	print "$webpage exists and server is up!\n";
	my $inhalt=get("http://www.pornrage.com/porntube.php");
	if ( $inhalt =~ /Too many connections/ig ){
		system("/etc/init.d/mysql restart");
	};
	#print $inhalt;
} else {
	print "nono, $webpage ist grad nicht erreichbar\n";
#	system("/etc/init.d/apache2 restart");
#	system("/etc/init.d/apache2 start");
};


# Wenn mysql sich mit restart nicht richtig restarten lsst (=fail) dann einfach /var/run/mysqld/mysqld.pid lschen und dann neu starten




... [truncated, 1 more lines] ...