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!
