OS and Software > All Things Unix > new automation address for a script to find public ip?

new automation address for a script to find public ip?

 
#!/usr/bin/perl
$IP_FILE = "/home/ipemail.result";
 
my $newip = `wget http://automation.whatismyip.com/n09230945.asp -O - -q`;
my $oldip = getoldip();
 
my $send_to = "To: my\@email-here.com\n";
my $reply_to = "Reply-to: my\@email-here.com\n";
my $from = "From: my\@email-here.com\n";
my $subject = "Subject: IP Address: $newip\n";
my $content = "<h1>$newip</h1>";
if($newip ne $oldip)
{
   writenewip($newip);
   unless(open (MAIL, "|/usr/sbin/sendmail my\@email-here.com"))
   {
      print "error.\n";
      warn "Error starting sendmail: $!";
   }
   else{
      print MAIL $from;
      print MAIL $reply_to;
      print MAIL $subject;
      print MAIL $send_to;
      print MAIL "Content-type: text/html\n\n";
      print MAIL $content;
      close(MAIL) || warn "Error closing mail: $!";
      print "Mail sent\n";
   }
}
 
sub writenewip
{
   my($newip) = @_;
   print ("new IP = $newip\n");
   open IPFILE, ">$IP_FILE";
   print IPFILE "$newip\n";
   close IPFILE;
}
 
sub getoldip
{
   open IPFILE, "$IP_FILE";
   my($line) = 0;
   while ( <IPFILE> )
   {
      chomp;
      $line = $_;
   }
   close IPFILE;
   return($line);
}
 
 

Hi, feel free to use my site.

Change this:

my $newip = `wget http://automation.whatismyip.com/n09230945.asp -O - -q`;
 

my $newip = `wget https://www.packetmail.net/myip.php -O - -q`;
 

Seems the PHP was stripped despite using the code tags. Using HTML entities below.

<?php echo htmlentities(getenv("REMOTE_ADDR"))."\n"; die; ?>

reply to aa2k
In case it helps, here's what's still working from an old list I have:

»checkip.dyndns.org/
»checkip.dyndns.org:8245/
»dynamic.zoneedit.com/checkip.html
»dynupdate.no-ip.com/ip.php

This list was about a dozen addresses a dozen years ago.

reply to aa2k
Hi,

Just for fun, I thought I'd take your concept and re-write the script using »checkip.dhndns.org:

wget --quiet -O - http://checkip.dyndns.org | sed -e 's/^.*Current IP Address: //g' -e 's/<.*$//g'
 

reply to aa2k
Thanks guys!! this helps me a lot!!!! I really appreciate it.

reply to aa2k
if you want u can use »box.houkouonchi.jp/ip.php too. A real simple PHP script I wrote and the machine is at a data center and pretty much on/accessible 365 days a year.
--
300/150 mbit Bonded Verizon FiOS connection FTW!

reply to aa2k
For several years, I have been using a script that queries my router and/or dsl modem (when I was on dsl). The script has to be tailored to the particular router. For some routers, I had to use an expect script, because I could only get that info from the router after login. Other routers will give out WAN information without login, so I just piped the output of "lynx" to a sed script to extract the wanted information.

This all avoids having to go outside the LAN.

Before I started doing it that way, my script simply did an SSH login to a work computer, which then did "echo $SSH_CLIENT" and I extracted my public IP info from that.

And then there's the page "http://www.dslreports.com/whois" at DSLR which gives your IP address. Maybe "lynx" or "wget" of that page will provide what you want.
--
AT&T Uverse; Zyxel NBG334W router (behind the 2wire gateway); openSuSE 12.2; firefox 18.0

reply to aa2k
If you have an PHP enable website somewhere create a page called, say, ip.php with the following contents:
php code:

<?
echo $_SERVER[REMOTE_ADDR];
?>