ISDN Status

Folgendes Problem, ich möchte das mir ein Perl Script eine rotees Bild anzeigt (off.gif) wenn die Verbindung steht soll es eine grüne Lamoe anzeigen (on.gif).

Das Script sollte eigentlich nur überprüfen ob die Meldung bei isdnctrl ippp0 -> connected to ??? heißt oder ob es not connected ausgibt. Je nach Verbindung soll es dann eine grüne bzw. rote Lampe anzeigen (gif-Datei)

[mightymike99]

#!/usr/bin/perl
      2 Mit meinen wenigen Perl-Kenntnissen wuerde ich das tun:
      3
      4
      5 my $CONNECT_STRING;
      6 my $CONNECTED;
      7
      8 $CONNECT_STRING="connected to";
      9
     10 open (ISDNCTRL,"isdnctrl ippp0|");
     11 $CONNECTED=0;
     12 while (< ISDNCTRL >)
     13    { if (/$CONNECT_STRING/) { $CONNECTED=1; } }
     14
     15 if ($CONNECTED)     { print "connected"; }
     16 unless ($CONNECTED) { print "NOT connected"; }

Die Leerzeichen bei "< ISDNCTRL >" kommen da natuerlich nicht hin, unten bei "< PSOUT >" auch nicht!

oder fuer analoges modem:
[code]
#!/usr/bin/perl -w
2 #Mit meinen wenigen Perl-Kenntnissen wuerde ich das tun:
3 #

      4
      5 use strict;
      6
      7 my $CONNECT_STRING;
      8 my $CONNECTED;
      9
     10 $CONNECT_STRING="pppd";
     11
     12 open (PSOUT,"ps ax|");
     13 $CONNECTED=0;
     14
     15 while (< PSOUT >)
     16    { if (/$CONNECT_STRING/) { $CONNECTED=1; } }
     17
     18 if ($CONNECTED)     { print "Gruene Lampe leuchtet!\n"; }
     19 unless ($CONNECTED) { print "Rote Lampe leuchtet!\n"; }

Aber wofuer? Bei KDE sind solche tools doch automatisch eingerichtet!

mightymike99

[Dieser Beitrag wurde von mightymike99 am 18. Januar 2001 editiert.]