Droit, Ive a déjà essayé cette option, et Ive a perdu une quantité importante de cheveux. Si une certaine forme de programmation Perl âme-là pouvait m'aider, Im sûr que je pourrais demander à Santa pour vous laisser quelques biscuits à Noël.
Heres ce que je veux que le démon se faire:
@hosts = ('site1.com','site2.com');
&WriteToLog('STARTED');
for(;;){
foreach $host (@hosts) {
$socket = IO::Socket::INET->new("$host:80");
if (!$socket) {
&WriteToLog("HOST DOWN: $host");
exec("curl -u USERNAME:PASSWORD -d status=\"$host is DOWN\" http://twitter.com/statuses/update.json 1>/dev/null 2>/dev/null");
}else{
close($socket);
}
}
sleep(60);
}
&WriteToLog('STOPPED');
sub WriteToLog {
my($msg) = @_;
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$theTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year";
open (MYFILE, '>> /etc/twitter/monitor.log');
print MYFILE "$theTime $msg\n";
close (MYFILE);
}
- @hosts = ('site1.com','site2.com');
- &WriteToLog('STARTED');
- for(;;){
- foreach $host (@hosts) {
- $socket = IO::Socket::INET->new("$host:80");
- if (!$socket) {
- &WriteToLog("HOST DOWN: $host");
- exec("curl -u USERNAME:PASSWORD -d status=\"$host is DOWN\" http://twitter.com/statuses/update.json 1>/dev/null 2>/dev/null");
- }else{
- close($socket);
- }
- }
- sleep(60);
- }
- &WriteToLog('STOPPED');
- sub WriteToLog {
- my($msg) = @_;
- @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
- @weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
- ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
- $year = 1900 + $yearOffset;
- $theTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year";
- open (MYFILE, '>> /etc/twitter/monitor.log');
- print MYFILE "$theTime $msg\n";
- close (MYFILE);
- }
Bien obligé à ceux qui font gagner ma santé mentale restants.
Avril 19th, 2009, 7:51 pm
