#!/usr/bin/perl
#
$O_IP = '/usr/DDNS/IP.dat';
$IP = '/usr/DDNS/N_IP.dat';

system("ifconfig -ppp0 | grep addr >$IP");
open(INPUT,$IP);
	$c = <INPUT>;
	$start = index($c,"addr")+5;
	$end = index($c,"P-t-P")-2;
	$New_IP = substr($c,$start,($end-$start));
close(INPUT);

open (OUTPUT ,">$IP");
print OUTPUT $New_IP; 
close OUTPUT;

open INPUT,"$O_IP";
$Old_IP=<INPUT>;
close INPUT;

if ($New_IP ne $Old_IP) {
	open (OUTPUT ,">$O_IP");
	print OUTPUT $New_IP;
	close OUTPUT;

	print"Dynamic DNS => $New_IP\n";

	system("/usr/DDNS/gdipc.pl -f /usr/DDNS/.GnuDIP2");

}