#!/usr/bin/perl
                                                                                                                                    
use Time::Local;
$st = "0";

while (1 ne 2)
{
    ($sec, $min, $hour, $day, $mon, $year) = localtime(time);
    $time = sprintf("%02d.%02d.%04d %02d:%02d.%02d", $day, $mon+1, $year+1900, $hour, $min, $sec);
    $ldate = sprintf("%04d%02d%02d", $year+1900, $mon+1, $day);
                                                                                                                                    
    $out = "";
    $out = `ifconfig |grep ppp`;
    if ($out eq "")
        {
#            system ("killall pppd xl2tpd");
            system ("poff -a");
            sleep 5;
#            system ("xl2tpd");
            system ("pon dsl-provider");
            sleep 10;
	    if ($st eq "0")
	    {
		$log = sprintf ("%s %s [reinet] VPN Connection lost", $time, $date);
		$st = "1";
		system ("echo $log >> /etc/ppp/inet.log");
#		printf ("$log \n");
	    } 

        }
        else
        {
    	    if ($st eq "1")
    	    {
		$log = sprintf ("%s %s [reinet] VPN Connection establised", $time, $date);
		$st = "0";
		system ("echo $log >> /etc/ppp/inet.log");
#		printf ("$log \n");
	    }
        }
    sleep 300;

}