#!/usr/bin/perl -w
use IO::SOCKET::INET;

##CALL IP FROM SYSTEM##
$ipconfig=`ipconfig`;
$ipconfig=~/(.*IP.*\: )(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;


##CHECK IF CURRENT IP IS SAME AS LAST IP##
open(LAST,">last_ip_info.txt") or die "couldn't open last status file.
+  reason:$!\n";
@last=<LAST>;
close(LAST);
#if($last[0]eq$2)
    #{
    #    print 'current IP is the same as last IP';
    #}
    #else
    #{
        &mail_ip($2);
    #}
    

##PRINT OUT CURRENT IP##
#print "IP\:"."$2".":IP\n";
open(LAST,">last_ip_info.txt") or die "couldn'topen last status file$!
+\n";
print LAST "$2\n";
close(LAST);


#################
###SUBROUTINES###
#################
sub mail_ip
    {
        my$ip=@_[0];
        $smtpaddr='jman.g3d.com';
        $mail_to='jrock@jman.g3d.com';
        $mail_from='nehalspc@exario.net';
        $hostname='nehal';

        $sock = new IO::Socket::INET (PeerAddr => "$smtpaddr",
            PeerPort => 25,
            Proto    => 'tcp',
            );
        die "Socket could not be created. Reason: $!\n" unless $sock;
        
        while($line=<$sock>)
            {
                print "$line\n";
                if($line=~/220/)
                    {
                        last;
                    }
            }
        print $sock "helo $hostname\n";
        print "helo $hostname\n";
        while($line=<$sock>)
            {
            print "$line\n";
            if($line=~/250/)
                {
                    last;
                }
            }
        print $sock "MAIL FROM: $mail_from <$mail_from>\n";
        print "MAIL FROM: $mail_from <$mail_from>\n";
        while($line=<$sock>)
            {
                print "$line\n";
                if($line=~/250/)
                {
                    last;
                }
            }
        print $sock "RCPT FROM: $mail_to <$mail_to>\n";
        print "RCPT FROM: $mail_to <$mail_to>\n";
        while($line=<$sock>)
            {
                print "$line\n";
                if($line=~/250/)
                    {
                        last;
                    }
            }
        print $sock "DATA\n\n";
        print "DATA\n\n";
        while($line=<$sock>)
            {
                print "$line\n";
                if($line=~/354/)
                    {
                        last;
                    }
            }
        print $sock "\r\n.\r\n";
        print ".\n";
        while($line=<$sock>)
            {
                print "$line\n";
                if($line=~/250/)
                    {
                        last;
                    }
            }
        print $sock "QUIT\n";
        print "QUIT\n";
        while($line=<$sock>)
            {
                print "$line\n";
                if($line=~/221/)
                    {
                        last;
                    }
            }
        close ($sock);
    }
[download]