#!/usr/bin/perl

# This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 United States License.
# http://herselfswebtools.com
# Linda MacPhee-Cobb"


# a tool to get non static ip address when
#you have a router installed, this also works if you do not
#have a router. 

#this assumes you are running linux and sendmail if you are 
#using windows you will have to figure out how to send mail 
#from windows.

#get current ip address 
use LWP::Simple;
use Mail::Mailer;

#get page with ip info
$html = get( 'http://checkip.dyndns.org' );

print $html;


#email notification of ip address
open (MAIL, '| /usr/lib/sendmail -t -oi');


print MAIL << "EOF";
From: getipProgram\@localhost
To: root\@localhost
Subject: Today\'s IP Address
$html
EOF


close MAIL;