Derecho, Ive ya ha probado esto, y Ive perdido una cantidad considerable de pelo. Si algún tipo de programación Perl alma por ahí me podría ayudar, Im seguro de que podría pedir a Santa a dejar algunas galletas esta Navidad.
Heres lo que desea que el demonio que hacer:
@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);
- }
Muy agradecido a los que salvar a mi cordura restantes.
Abril 19th, 2009, 7:51 pm
