I've been looking for a script that can retrieve your IP address from http://www.whatismyip.com (or a similar website)
I found this while searching the forums but it doesn't seem to work anymore.
Can anybody help? Thanks in advance
IRC::add_command_handler("myip","myip");
sub myip {IRC::print qx'/bin/sh -c "wget -q -O - http://checkip.dyndns.org/ | cut -d \" \" -f 6 | cut -d \< -f 1"'}
use LWP::Simple;
my $url = "http://checkip.dyndns.org/";
my $ip = get $url;
$ip =~ s/<html><head><title>Current IP Check<\/title><\/head><body>Current IP Address: |<\/body><\/html>\r\n//g;
Users browsing this forum: No registered users and 1 guest