#!/usr/bin/perl
### Check connectivity and restart pppd (C) I.S. 2005

use warnings;
use Net::Ping;

$ip1 = "1.1.1.1";                 ### TEST 1
$ip2 = "2.2.2.2";                 ### TEST 2

$p = Net::Ping->new("icmp");

if (! $p->ping($ip1) ){
  if (! $p->ping($ip2) ){  
    open(F, "ps ax |");
    while(<F>){
      if ( (grep (/ddial/, $_)) && (!grep (/grep/, $_)) ){
        $_ =~ s#^\s*(\w+).+$#$1#;
        kill 9, $_;
      }
    }
    close(F);
    system("ppp -ddial pppoe&");  ### Restart Daemon
  }
}
$p->close();

### EOF