酷!學園

#!/usr/bin/perl
$str = `/sbin/ifconfig tun0`;

if ($str =~ /-->\s(\d+\.\d+\.\d+\.\d+)\snetmask/){
        $dgw = $1;
}
if ($str =~ /Opened\sby\sPID\s(\d+)/){
        $pid = $1;
}

if ( !$pid ) {
        `/usr/sbin/ppp -ddial hinet`;
} else {
        use Net::Ping;
        $p = Net::Ping->new("icmp");
        if( !$p->ping($dgw)){
                `/bin/kill -9 $pid`;
                ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
                $mon+=1;
                open(LOG, '>> /etc/ppp/redial.log');
                print LOG "$mon-$mday=$hour:$min:$sec $dgw is dead\n";
                close(LOG);
                `/usr/sbin/ppp -ddial hinet`;
        }
}