Administrace komentářů

No tak dobře...

#!/usr/bin/perl
use Net::Ping;

my @ping_targets = ("192.168.2.8", "192.168.2.4", "192.168.2.1");
my $patience = 6;    # times
my $timeout = 1;     # seconds, waiting for a single ping response
my $periodicity = 5; # seconds, between "ping bursts"


my $num_timeouts = 0;

#my $p = Net::Ping->new();
my $p = Net::Ping->new("icmp",$timeout);

while (1)
{
   my $still_alive = 0;

   foreach my $ping_target (@ping_targets)
   {
      if ($p->ping($ping_target))
      {
         print "Okay, $ping_target reachable \n";
         $still_alive++;
      }
      else
      {
         print "Target $ping_target unreachable!\n";
      }
   }

   if ($still_alive == 0)
   {
      print "All targets dead...\n";
      $num_timeouts++;
   }

   if ($num_timeouts == $patience)
   {
      print "Shutdown!\n";
      #system("shutdown -h now");
      exit 1;
   }
   else
   {
      sleep($periodicity);
   }
}

Dejte tomu jméno třeba shutdown.pl, klidně v domovském adresáři roota (/root/) protože to stejně bude muset ve finále běžet pod rootem.

Můžete to vyzkoušet napřed spustit na příkazové řádce. Vlastní shutdown je zakomentovaný (křížek znamená komentář), místo něj je tam exit. Skript je naschvál ukecaný - ty kecy můžete v ostrém nasazení přesměrovat třeba do /dev/null nebo zakomentovat.

Spustit na příkazové řádce to jde buď explicitně "perl shutdown.pl", nebo když tomu dáte správná práva (třeba "chmod 700 shutdown.pl") tak to můžete spustit i jako obecný spustitelný soubor "./shutdown.pl", interpreter je uvedený v prvním řádku skriptu.

Pro ostré použití odkomentujte ten shutdown a zavěste to někam do startovacích skriptů, třeba pokud má Vaše distro /etc/rc.local:

nohup /root/shutdown.pl >/dev/null &

nebo

nohup /root/shutdown.pl >>/var/log/auto-shutdown.log &
# ale trochu si upravte hlášky, které skript vypisuje. Třeba ať vypisuje jenom ten shutdown. 
# Plus si tam můžete přidat třeba ještě před shutdownem system("date");, abyste věděl, kdy to udělal.

Nohup znamená, že skript nemá chcípnout, když skončí jeho nadřízený proces. Ampersand na konci znamená, že má proces běžet "na pozadí". Vlastně to dohromady dává jednoduchého "démona".

Ohledně WoL: pokud jde o probuzení počítače ze stavu "vypnuto" (ACPI S5), tak bych věřil tomu, že to bude spolehlivé. Pokud jde o probuzení ze stavu "suspend", tam je to otázka - suspend/resume není dodnes úplně spolehlivý. Pro správnou funkci WoL může být potřeba v systémovém BIOS Setupu povolit "probouzení pomocí signálu PME#" = jeden drát v PCI sběrnici se jmenuje Power Management Event, active low, a funguje podobně jako ATX power button. Plus v některých BIOSech jde někde v sekci "power management" nastavit konkrétní zařízení resp. interruptové linky, které taky můžou probudit počítač (ale to bude spíš irelevantní).

No a nakonec potřebujete nějaký softík, který spustíte na libovolné pracovní stanici, a který pošle serveru "magický paket" (tj. ne jakýkoli paket, ale zprávu v konkrétním well-known formátu WakeOnLan).

http://cs.wikipedia.org/wiki/Wake_on_LAN