[OT] Problem z cronem i skryptem perlowym
Witam Witam Nie jest to problem stricte Lms-owy ale pewno ktoś się znajdzie kto ma trochę dobrych pomysłów. Mianowicie mam skrypt w perlu który pinguje mi apki w sieci i wysyła smsa jeżeli jakiś nie odpowiada, spisuje się oki ale wpadłem na pomysł co by w phpie dorobić sobie mały panel aby nie edytować pliku ręcznie i dopisywać ipki tylko aby php dopisywał mi do pliku. Jak pomyślał tak zrobił, tylko że teraz mam problem, że poprawionego skryptu cron nie uruchamia w logach jest że co minute go uruchamia ale nie widać skutków Poniżej część skryptu: #!/usr/bin/perl use Net::Ping; #use HTTP::Request; use LWP::Simple; open(pingme, "pingme.txt"); @host_array = <pingme>; close(pingme); open(counter, "pingcount.txt"); @count_array = <counter>; close(counter); open(phones, "pingphones.txt"); @phones_array = <phones>; close(phones); @dead_hosts = (""); @dead_hosts1 = (""); @dead_hosts2 = (""); @dead_hosts3 = (""); for($dead_count = 0; $dead_count < 4; $dead_count++) { $p = Net::Ping -> new("icmp"); foreach $host (@host_array) { #print $host . ": "; if ($p -> ping($host,10)) { #print "Host is alive\n"; } else { #print "Host is dead\n"; if($dead_count == 0) { push(@dead_hosts,'+',$host); } if($dead_count == 1) { push(@dead_hosts1,'+',$host); } if($dead_count == 2) { push(@dead_hosts2,'+',$host); } if($dead_count == 3) { push(@dead_hosts3,'+',$host); } } } $p -> close(); } #print @dead_hosts; #print @dead_hosts."" if @dead_hosts."" > 1; if (@dead_hosts."" > 1 && @dead_hosts1."" > 1 && @dead_hosts2."" > 1 && @dead_hosts3."" > 1) { $tmp = $count_array[1] - 1; if($count_array[0] < $tmp) { $count_array[0] = $count_array[0] + 1; } pozdrawiam Bogdan !DSPAM:486740ee119451068017541!
uczestnicy (1)
-
Bogdan Rusin