> > Kombinuje zeby to maxymalnie zautomatyzowac. =
Mam juz 3 skrypty ale i one
> nic
> > nie pomagaja. Czasem pomaga adsl-stop i =
adsl-start, czasem reset modemu,
> > czasem ifconfig eth0 down i potem up. No =
ale bywa tak ze musze jednak
> serwa
> > rebootnac. Musi byc jakas przyczyna takie =
zachowywania sie, tylko jaka
???
> >
> Gdzies ktos wczesniej mowil ze sa problemy z ppp =
tylko rozwiazania nie
> podali.
> Te zachowanie tez mnie strasznie denerwuje nie =
ma dnia zeby sie nie
zwiesilo
> w dodatku ten nieszczesny eDonkey - po 5min? =
Dziwne. Qrde chyba pojde na
> piwo... :-D
>
>
HEEHEE. Wlasnie odpalilem 4 skrypta ktory zadziala =
jak wczesniejsze 3 nie
pomoga. Ostatecznie resetuje on serwa. Kiedys go =
gdzies dorwalem z netu. Jak
ktos potrzebuje to przesylam :
#!/usr/bin/perl
sub shut
{
open (LOG, =
">>/var/log/shutdown.log");
print (LOG "@_[0]");
close LOG;
#komenda do wykoanania
`@_[1]`;
}
sub komunikat
{
$godzina = `date`;
chomp $godzina;
$text = "$godzina @_[0]\n";
return $text;
}
`ping -c 10 194.204.152.34`;
if ( $? == 0 )
{
$test = komunikat("Net OK");
shut("$test", "exit 0");
}
elsif ( $? == 512 )
{
$test = komunikat("Unkown host - =
reebot");
shut($test, "shutdown -r now");
}
elsif ( $? == 256 )
{
$test = komunikat("Host not found - =
reebot");
shut($test, "shutdown -r now");
}
else
{
$test = komunikat("Unkown error - =
reebot");
shut($test, "shutdown -r now");
}
Pozdrawiam
AS