Determine connection status on Linux

[Sisyphus]

Hi,

Not entirely on-topic, I'm afraid, but how do I determine from a perl
script if I'm currently connected to the Internet ?

A system() command would be satisfactory, if I can just find out which
one to use

I'm having dificulty with Device::Modem - should I persevere ?

For making the connection manually, I use the kppp dialer on (Mandrake)
linux - which connects me through an external dialup modem.

Cheers,
Rob

 

[David Efflandt]

Hi,

Not entirely on-topic, I'm afraid, but how do I determine from a perl
script if I'm currently connected to the Internet ?

A system() command would be satisfactory, if I can just find out which
one to use

I'm having dificulty with Device::Modem - should I persevere ?

For making the connection manually, I use the kppp dialer on (Mandrake)
linux - which connects me through an external dialup modem.

#!/usr/bin/perl -w
if (system '/sbin/ifconfig ppp0 > /dev/null 2>&1') {
die "we are offline\n";
}
print "we are online\n";
# do something useful

 

[David Efflandt]

One other note is that if you specifically want to do something whenever
Linux pppd connects, do it from /etc/ppp/ip-up (or ip-up.local). This
runs whever pppd gets an IP address. But use full paths, because
environment is minimal (also note that anything there would run as root).

 

[Sisyphus]

One other note is that if you specifically want to do something whenever
Linux pppd connects, do it from /etc/ppp/ip-up (or ip-up.local). This
runs whever pppd gets an IP address. But use full paths, because
environment is minimal (also note that anything there would run as root).

Thanks David.

Cheers,
Rob

 

[Sisyphus]

#!/usr/bin/perl -w
if (system '/sbin/ifconfig ppp0 > /dev/null 2>&1') {
die "we are offline\n";
}
print "we are online\n";
# do something useful

And if offline, how to connect ?
I didn't ask initialy because I thought I had the answer to that with:
system 'kppp -c account';
but that command, while it establishes and keeps open a connection,
never exits. Put that in a perl script, and it never progresses beyond
that point.
I'm not so sure that's the expected behaviour of that system command - I
thought it *did* open the connection and exit the first time I ran it,
but it certainly won't now.

Anyway, thanks for any help on this.
(I've asked about this on the mandrake ng but they're being a little
slow to respond.)

Cheers,
Rob