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!