Here’s a script I wrote in perl (yes perl) that checks your ip and will email you if the ip changes. Because I’m using private IP’s, I need to check via an external server. What I want to know is if my IP changes, because if it does, I probably need to restart my IRC Bot. Because of the private IP mess, I need to use an external to get my external IP. I use a simple PHP script on my server from Fivebean to tell me the IP.
\nThe PHP is:<\/p>\n
<?php\necho $_SERVER['REMOTE_ADDR'];\n?><\/pre>\nStick that somewhere that’s not on your local LAN.
\nNow, make a batch file with this
\nperl ip_checker.pl location_of_previous_php_script file_to_write_some_info_to<\/code><\/p>\nCoincidentally, I think it would be best if I maybe removed those option and just put them in the configuration section of the perl script . . .<\/p>\n
Copy this and save this within the same place as that bat file, using the name ip_checker.pl. Make sure you have Net::SMTP::SSL installed in your perl modules.<\/p>\n
use LWP::Simple;\nuse Net::SMTP::SSL;\n\nuse warnings; use strict;\nsub text;\n\n#texting information\n#configure whether to send alerts.\u00a0 Email based\n################################\n######Script configuration######\n################################\n################################\n#####Options Confiugration######\n################################\nmy $send_alert = 'true'; #set true to allow messages to be sent informing you of changes to the local IP\n################################\n#####Email send information#####\n################################\n\nmy $email_from = '';\nmy $email_password = '';\nmy $send_to= '';\nmy $email_host ='smtp.gmail.com'; #something link that anyway\n\n################################\n##End of Configuration Section##\n################################\n\nif (@ARGV ne 2){\n\u00a0\u00a0\u00a0 die 'Usage: perl ipchecker.pl (URL To Retrieve External IP From) (File to ReadWrite LastCurrent IP From)n';\n}\n\nmy $ip_bouncer = shift;\nmy $read_file_location = shift;\nmy $current_ip = get($ip_bouncer); die \"Couldn't get it!\" unless $current_ip;\nmy $old_ip; my $new_ip;\n\nmy $read_file; my $print_file;\n\nopen OLD_IP, \"$read_file_location\" or die \"$!\"; #open with write rights\n$old_ip = <OLD_IP>;\nclose OLD_IP;\nopen OLD_IP, \">$read_file_location\" or die \"$!\"; #open with write rights\n\nprint \"Current IP Address: $current_ip n\";\nprint \"Last IP Address: $old_ip n\";\nprint OLD_IP $current_ip;\nclose OLD_IP;\n\nif ($current_ip ne $old_ip){\u00a0 #ne is a string comparison of equal or not == is numeric comparison\n\u00a0\u00a0\u00a0 #\/&text ($host, $from, $password, $message );\n\u00a0\u00a0\u00a0 print \"Alert!\u00a0 IP address has changedn\";\n\u00a0\u00a0\u00a0 if ($send_alert eq 'true'){\n\u00a0\u00a0\u00a0 print \"Sending Alert!n\";\n\u00a0\u00a0\u00a0 my $desired_message = \"IP Change $current_ip\";\n\u00a0\u00a0\u00a0 &text ( $send_to, $email_host, $email_from, $email_password, $desired_message);\n\u00a0\u00a0\u00a0 print \"Alert Sentn\";\n\u00a0\u00a0\u00a0 }\n} else {\n\u00a0\u00a0\u00a0 print \"All is welln\";\n\u00a0\u00a0\u00a0 }\n\nsub text { # ($to, $host, $from, $password, $message )\n\u00a0\u00a0\u00a0 #mostly from http:\/\/robertmaldon.blogspot.com\/2006\/10\/sending-email-through-google-smtp-from.html\n\u00a0\u00a0\u00a0 #modified to suit my needs\n\n\u00a0\u00a0\u00a0 my $to = shift;\n\u00a0\u00a0\u00a0 my $host = shift;\n\u00a0\u00a0\u00a0 my $from = shift;\n\u00a0\u00a0\u00a0 my $password = shift;\n\u00a0\u00a0\u00a0 my $message = shift;\n\n\u00a0\u00a0\u00a0 my $smtp;\n\u00a0\u00a0\u00a0 if (not $smtp = Net::SMTP::SSL->new($host,\n\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 Port=> 465,\n\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 Debug => 1,\n\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0 ) ) { die \"Couldn't connect\" };\n\u00a0\u00a0\u00a0 $smtp->auth($from, $password) || die \"Authentication failed!n\";\n\n\u00a0\u00a0\u00a0 $smtp->mail($from.\"n\" );\u00a0\u00a0\u00a0\u00a0 # use the sender's address here\n\u00a0\u00a0\u00a0 $smtp->to($to.\"n\" );\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # recipient's address\n\u00a0\u00a0\u00a0 $smtp->data();\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # Start the mail\n\n\u00a0\u00a0\u00a0 # Send the header.\n\u00a0\u00a0\u00a0 $smtp->datasend(\"To: $to n\" );\n\u00a0\u00a0\u00a0 $smtp->datasend(\"From: $from n\" );\n\u00a0\u00a0\u00a0 $smtp->datasend(\"Subject: Server Alertn\");\n\u00a0\u00a0\u00a0 $smtp->datasend('Content-Type: text\/plain; charset=ISO-8859-1;' . \"nn\");\n\u00a0\u00a0\u00a0 # Send the body.\n\u00a0\u00a0\u00a0 $smtp->datasend(\"Automated Server Message n\", $message, \"n\");\n\u00a0\u00a0\u00a0 $smtp->dataend();\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # Finish sending the mail\n\u00a0\u00a0\u00a0 $smtp->quit;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # Close the SMTP connection\n}\n<\/code><\/pre>\nSchedule every 6 hours or so. I did it with the scheduled jobs thingy in windows server 2003.<\/p>\n
Sorry for the poor write up, hit me up in the comments if you need help setting this up or if you have other general questions. Right now, I have to go mess with a wordpress theme in need of fixin . . . .<\/p>\n
use warnings; use strict;
\nsub text;<\/p>\n#texting information
\n#configure whether to send alerts.\u00a0 Email based
\n################################
\n######Script configuration######
\n################################
\n################################
\n#####Options Confiugration######
\n################################
\nmy $send_alert = ‘true’; #set true to allow messages to be sent informing you of changes to the local IP
\n################################
\n#####Email send information#####
\n################################<\/p>\nmy $email_from = ”;
\nmy $email_password = ”;
\nmy $send_to= ”;
\nmy $email_host =’smtp.gmail.com’; #something link that anyway<\/p>\n################################
\n##End of Configuration Section##
\n################################<\/p>\nif (@ARGV ne 2){
\ndie ‘Usage: perl ipchecker.pl (URL To Retrieve External IP From) (File to ReadWrite LastCurrent IP From)n’;
\n}<\/p>\nmy $ip_bouncer = shift;
\nmy $read_file_location = shift;
\nmy $current_ip = get($ip_bouncer); die “Couldn’t get it!” unless $current_ip;
\nmy $old_ip; my $new_ip;<\/p>\nmy $read_file; my $print_file;<\/p>\n
open OLD_IP, “$read_file_location” or die “$!”; #open with write rights
\n$old_ip = <OLD_IP>;
\nclose OLD_IP;
\nopen OLD_IP, “>$read_file_location” or die “$!”; #open with write rights<\/p>\nprint “Current IP Address: $current_ip n”;
\nprint “Last IP Address: $old_ip n”;
\nprint OLD_IP $current_ip;
\nclose OLD_IP;<\/p>\nif ($current_ip ne $old_ip){\u00a0 #ne is a string comparison of equal or not == is numeric comparison
\n#\/&text ($host, $from, $password, $message );
\nprint “Alert!\u00a0 IP address has changedn”;
\nif ($send_alert eq ‘true’){
\nprint “Sending Alert!n”;
\nmy $desired_message = “IP Change $current_ip”;
\n&text ( $send_to, $email_host, $email_from, $email_password, $desired_message);
\nprint “Alert Sentn”;
\n}
\n} else {
\nprint “All is welln”;
\n}<\/p>\nsub text { # ($to, $host, $from, $password, $message )
\n#mostly from http:\/\/robertmaldon.blogspot.com\/2006\/10\/sending-email-through-google-smtp-from.html
\n#modified to suit my needs<\/p>\nmy $to = shift;
\nmy $host = shift;
\nmy $from = shift;
\nmy $password = shift;
\nmy $message = shift;<\/p>\nmy $smtp;
\nif (not $smtp = Net::SMTP::SSL->new($host,
\nPort=> 465,
\nDebug => 1,
\n) ) { die “Couldn’t connect” };
\n$smtp->auth($from, $password) || die “Authentication failed!n”;<\/p>\n$smtp->mail($from.”n” );\u00a0\u00a0\u00a0\u00a0 # use the sender’s address here
\n$smtp->to($to.”n” );\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # recipient’s address
\n$smtp->data();\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # Start the mail<\/p>\n# Send the header.
\n$smtp->datasend(“To: $to n” );
\n$smtp->datasend(“From: $from n” );
\n$smtp->datasend(“Subject: Server Alertn”);
\n$smtp->datasend(‘Content-Type: text\/plain; charset=ISO-8859-1;’ . “nn”);
\n# Send the body.
\n$smtp->datasend(“Automated Server Message n”, $message, “n”);
\n$smtp->dataend();\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # Finish sending the mail
\n$smtp->quit;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # Close the SMTP connection<\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"Here’s a script I wrote in perl (yes perl) that checks your ip and will email you if the ip changes. Because I’m using private IP’s, I need to check via an external server. What I want to know is if my IP changes, because if it does, I probably need to restart my IRC… <\/p>\n