'd. bodnar 7-17-07
'revised to use PHP code on DGB.com to get ip

'uses php code to get ip and vmailer to email to gmail if changed

CLS
SHELL "copy ip.txt ip_old.txt"

SHELL "wget http://davebodnar.com/showip2.php -O ip.txt"
OPEN "i", 1, "ip.txt"
        LINE INPUT #1, c$
CLOSE #1
PRINT a$

OPEN "a", 1, "trace.log"
PRINT #1, DATE$, TIME$, c$
CLOSE #1

OPEN "i", 1, "ip_old.txt"
LINE INPUT #1, old$
CLOSE #1
PRINT "new ip, old ip", c$, old$
IF c$ = old$ THEN
        PRINT "same"
  ELSE
        PRINT "changed"
        GOTO sendit:
END IF
END


sendit:
CLOSE
OPEN "o", 1, "email.txt"
PRINT #1, "To:bodnar@gmail.com"
PRINT #1, "From:DaveBodnar@verizon.net"
PRINT #1, "Subject: NEW IP " + c$ + " " + DATE$ + " " + TIME$
PRINT #1, " "
PRINT #1,


PRINT #1, "New IP address as of ", DATE$, " ", TIME$
PRINT #1, "now: ", c$
CLOSE


SHELL "vmailer email.txt outgoing.verizon.net bodnar@gmail.com davebodnar@verizon.net davebodnar password99"