perl script for logging external ip address and analysing changes from its logfile

1 files changed, 6 insertions, 0 deletions

diff --git a/externalIp.pl b/externalIp.pl
new file mode 100644
index 0000000..2220d9d
--- /dev/null
+++ b/externalIp.pl
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+
+($ip=`wget -q -O - http://checkip.dyndns.org`)=~s/\n$//;
+$ip=~s/.*[^\d](\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})[^\d].*/$1/;
+($date=`date`)=~s/\n$//;
+print "$date\n$ip\n";