Hi ho,
ungetestet (mangels zeit 
würde ich es mal so probieren....
#!/usr/bin/perl
my $SVDRP='perl /usr/local/src/VDR/svdrpsend.pl -d 127.0.0.1';
my $ROUTER='192.168.0.1';
my $RET=qx (/bin/ping -c 2 $ROUTER);
if ($RET =~ /ttl=/i) { qx ($SVDRP MESG 'OK');}
else {qx ($SVDRP MESG 'Fehler: Keine Netzwerkverbindung');}sollte so eigentlich klappen...natürlich Pfade anpassen bei den qx-Befehlen.
Gruß
rob.
Hi,
wieso nicht den Exit-Status von ping auswerten ? Macht sich doch einfacher 
Hier etwas entsprechendes:
#!/usr/bin/perl -w
use strict;
use warnings;
my $SVDRP = "svdrpsend -d 127.0.0.1";
my $ROUTER = "192.168.0.1";
if (!system "ping -c2 $ROUTER &>/dev/null") {
exit 0;
}
else {
!system "$SVDRP MESG \"Fehler: Keine Netzwerkverbindung !\" &>/dev/null" or exit 1;
}
exit 0;Gruß,
Matze
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!