From: Thomas H. <tho...@ve...> - 2007-12-30 13:18:18
|
I searched the archives and could not come up with anything. My problem = is the code file "internet_ip_update_larry.pl" stopped working. My = assumption is the website it gets info from (www.whatismyip.com) has = changed thier format. Can anyone confirm this and offer any advise? I = have made a notation on the line I feel needs work below: # Category=3DInternet #This will get you your actual IP address and display it in a TK = interface. =20 #This is very useful if MH is sitting behind a router and you need to = know your external IP address. #It monitors any changes in your IP address and can take action upon a = change. #Larry Roudebush=20 my $f_get_external_ip =3D "$config_parms{data_dir}/web/externalip.html"; $v_get_external_ip =3D new Voice_Cmd 'Check external IP address'; $p_get_external_ip =3D new Process_Item "get_url = http://www.whatismyip.com $f_get_external_ip"; if (said $v_get_external_ip or $New_Hour) { unlink $f_get_external_ip; start $p_get_external_ip; print_log 'Checking external IP address'; } if (done_now $p_get_external_ip) { my $html =3D file_read $f_get_external_ip; my ($externalip) =3D $html =3D~ = /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/; I ASSUME THIS LINE NEEDS = CHANGING print_log "External IP Address is: $externalip"; if ($Save{ip_address_server} eq $externalip) { #print_log "IP server address current"; &TkIpAddressLabel; -snip Thanks in advance! Tom |
From: Mark E. P. <me...@si...> - 2007-12-30 15:04:25
|
On 2007/12/30 08:17, Thomas Harding wrote: > I searched the archives and could not come up with anything. My problem is the code file "internet_ip_update_larry.pl" stopped working. My assumption is the website it gets info from (www.whatismyip.com) has changed thier format. Can anyone confirm this and offer any advise? I have made a notation on the line I feel needs work below: > > # Category=Internet > > #This will get you your actual IP address and display it in a TK interface. > #This is very useful if MH is sitting behind a router and you need to know your external IP address. > #It monitors any changes in your IP address and can take action upon a change. > #Larry Roudebush > my $f_get_external_ip = "$config_parms{data_dir}/web/externalip.html"; > $v_get_external_ip = new Voice_Cmd 'Check external IP address'; > $p_get_external_ip = new Process_Item "get_url http://www.whatismyip.com $f_get_external_ip"; > > if (said $v_get_external_ip or $New_Hour) { > unlink $f_get_external_ip; > start $p_get_external_ip; > print_log 'Checking external IP address'; > } > > if (done_now $p_get_external_ip) { > my $html = file_read $f_get_external_ip; > my ($externalip) = $html =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/; I ASSUME THIS LINE NEEDS CHANGING > print_log "External IP Address is: $externalip"; > if ($Save{ip_address_server} eq $externalip) { > #print_log "IP server address current"; > &TkIpAddressLabel; > > -snip whatismyip.com has apparently changed a few things. If you visit <http://www.whatismyip.com> and view the (html) source for the page, you see an obfuscated rendering of your IP address, then the following: <!--Please set your code to scrape your IP from www.whatismyip.com/automation/n09230945.asp Please set your code to hit this page at a REASONABLE pace. For more info, please see our "What's New" page.--> So try changing the URL to: http://www.whatismyip.com/automation/n09230945.asp and my guess is that it will work again.... You end up with a line like so (all as one line; beware of line breaks inserted by mailers and such): $p_get_external_ip = new Process_Item "get_url http://www.whatismyip.com/automation/n09230945.asp $f_get_external_ip"; I don't have time right now to test more myself, but my reading of the code makes me think this will do the trick. HTH, Mark |
From: Thomas H. <tho...@ve...> - 2007-12-30 15:24:11
|
That did it! Thanks for th help! ----- Original Message ----- From: "Mark E. Perkins" <me...@si...> To: "The main list for the MisterHouse home automation program" <mis...@li...> Sent: Sunday, December 30, 2007 10:04 AM Subject: Re: [mh] IP update stopped working > On 2007/12/30 08:17, Thomas Harding wrote: >> I searched the archives and could not come up with anything. My problem >> is the code file "internet_ip_update_larry.pl" stopped working. My >> assumption is the website it gets info from (www.whatismyip.com) has >> changed thier format. Can anyone confirm this and offer any advise? I >> have made a notation on the line I feel needs work below: >> >> # Category=Internet >> >> #This will get you your actual IP address and display it in a TK >> interface. >> #This is very useful if MH is sitting behind a router and you need to >> know your external IP address. >> #It monitors any changes in your IP address and can take action upon a >> change. >> #Larry Roudebush >> my $f_get_external_ip = "$config_parms{data_dir}/web/externalip.html"; >> $v_get_external_ip = new Voice_Cmd 'Check external IP address'; >> $p_get_external_ip = new Process_Item "get_url http://www.whatismyip.com >> $f_get_external_ip"; >> >> if (said $v_get_external_ip or $New_Hour) { >> unlink $f_get_external_ip; >> start $p_get_external_ip; >> print_log 'Checking external IP address'; >> } >> >> if (done_now $p_get_external_ip) { >> my $html = file_read $f_get_external_ip; >> my ($externalip) = $html =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/; >> I ASSUME THIS LINE NEEDS CHANGING >> print_log "External IP Address is: $externalip"; >> if ($Save{ip_address_server} eq $externalip) { >> #print_log "IP server address current"; >> &TkIpAddressLabel; >> >> -snip > > whatismyip.com has apparently changed a few things. If you visit > > <http://www.whatismyip.com> > > and view the (html) source for the page, you see an obfuscated rendering > of > your IP address, then the following: > > > <!--Please set your code to scrape your IP from > www.whatismyip.com/automation/n09230945.asp Please set your code to hit > this page at a REASONABLE pace. For more info, please see our "What's > New" > page.--> > > So try changing the URL to: > > http://www.whatismyip.com/automation/n09230945.asp > > and my guess is that it will work again.... You end up with a line like > so > (all as one line; beware of line breaks inserted by mailers and such): > > $p_get_external_ip = new Process_Item "get_url > http://www.whatismyip.com/automation/n09230945.asp $f_get_external_ip"; > > I don't have time right now to test more myself, but my reading of the > code > makes me think this will do the trick. > > HTH, > Mark > > ------------------------------------------------------------------------- > This SF.net email is sponsored by: Microsoft > Defy all challenges. Microsoft(R) Visual Studio 2005. > http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ > ________________________________________________________ > To unsubscribe from this list, go to: > http://sourceforge.net/mail/?group_id=1365 > |