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

$life = system("ifconfig -ppp0 | grep addr >$IP");

#接続が切れてたときの処理、ifの括弧は接続が繋がってると1、切れると256みたいです
if(length($life) > 1)
{
	#フレッツＡＤＳＬの接続コマンド
	system("/usr/local/bin/start-pppoe");
	
	#一応少し時間を取る
	sleep 5;
	
	#ifconfig やり直し
	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");

}