perl script erweitern

[onetwo]

guten tag und hallo,

nach langer suche hab ich endlich ein script gefunden welches die verbindung zu meinem provider überwacht und bei bedarf wieder herstellt, leider sind bei meiner adsl verb. (österreich) meinstens mehrere schritte notwendig da die verbindung nicht vom provider getrennt wird sondern irgendwo in der "letzten meile" ein problem besteht welches den abbruch bewirkt.

das script schaut so aus:

#!/usr/bin/perl

while (1) {
if (-e '/var/run/ppp0.pid'){
sleep 60;
}
else { system "/etc/rc.config.d/adsl start";}}

ich würde es gerne noch im else zweig um folgendes erweitern:

aufruf des restart routine für das modem:
/etc/rc.config.d/restart_ant
30 sekunden wartezeit und dann die einwahl mit /etc/rc.config.d/adsl start

eventuell ist es auch möglich im script ein paar "echos" einzubauen, ich hab aber null ahnung von perl ...


danke schon mal im vorraus

Roman

[anda_skoa]

Das hätte im Scriptsprachen Forum sicher besser gepasst :)

Ciao,
_

[onetwo]

ja sorry, hab es auch zu spät bemerkt, hoffe ihr verzeiht ...

[anda_skoa]

Ja sicher :)

Aber es gibt sicher einige Perlkundige, die dieses Forum nicht lesen.

Es ist in deinem eigenen Interesse, wenn du dein Problem dort nochmal postest.

Ciao,
_

Nachtrag:
Ich sehe du hast das schon gemacht ;)

[joey.brunner]

Hi,

wenn du keine Ahnung von Perl hast, dann ruf in Perl einfach die Shell auf:

#!/usr/bin/perl -w

while (1) {
if (-e '/var/run/ppp0.pid')
{
sleep 60;
}
else {
# Hier nun auch einige "Echos":
print "Starte Modem neu\n";
system "/etc/rc.config.d/restart.ant";
print "Warte ein bisschen\n";
sleep 30;
print "Einwahl":
system "/etc/rc.config.d/adsl start";
}
}

Sollte hinhauen, falls nicht, kannst du die Systemaufrufe in Klammern packen
system("....");
Gutes Gelingen

Joey