#!/usr/bin/perl

$mail_to = 'SOME_ADDRESS@yahoo.com';
$tmp_file = '/tmp/ppp_status_report';
$ONLINE = '/tmp/ONLINE';

@ppp_status = `ifconfig ppp0`; #Grab the dynamic IP address
if (defined(@ppp_status))
        {
                         @ppp_status[1] =~ /(addr\:[\S+]{4,15})/;
                         $ppp_line = $1;
                        
                    if ( -f $tmp_file )
                        {
                                open(TMP,"$tmpfile");
                                $line_tmp = <TMP>;
                                close(TMP);
                                if ($ppp_line == $line_tmp) {next;}
                                else
                                {
                                 open(TMP,">$tmp_file");
                                 print TMP $ppp_line;

                                 close(TMP);
                                                                               
                                
                                open(TMP,">$ONLINE");                          
                               
                                close(TMP);
                                system ("mail -s \"PPP Address for MYBOX\" $mail_to \<$tmp_file");
                                }
                                                                               
                         
                        }
                    else
                        {

                        open(TMP,">$tmp_file");
                        print TMP $ppp_line;
                        close(TMP);
                
                open(TMP,">$ONLINE");
                close(TMP);                system ("mail -s \"PPP Address for MYBOX\" $mail_to \<$tmp_file");
                 }
                 system("/usr/bin/fetchmail");
        }
else
        {
                if ( -f $ONLINE)
                 {
                         unlink($ONLINE);
                         unlink($tmp_file);
                 }
        }