DynamicDNS.pl

Legacy: This article describes a concept that has been superseded in the course of ongoing development on the Organic Design wiki. Please do not develop this any further or base work on this concept, now this page is for historic record only.

<perl>

1. !/usr/bin/perl
2. Get last IP from local wiki log on startup

$::IP = ; if (wikiRawPage($::wiki, $::wikilog) =~ /^.+to ([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)/sm) { $::IP = $1; logAdd "Last IP obtained from Network Log: $::IP"; }

1. Get current external IP address from router

sub getIP { my $router = shift; my $model = shift; my $ip = ;

if ($model eq 'Dynalink:RTA230') { my $url = "http://admin:$::pwd2\@$routerIP/wancfg.cmd?action=view"; $ip = $1 if $::client->get($url)->content =~ /(\d+\.\d+\.\d+\.\d+)/; }

elsif ($model eq 'LinkSys:WAG54G') { my $url = "http://admin:$::pwd2\@$routerIP/Status_Router.asp"; $ip = $1 if $::client->get($url)->content =~ /IP Address.+?(\d+\.\d+\.\d+\.\d+)/sm; }

elsif ($model eq 'Dlink:DSL-G604T') { my $url = "http://admin:$::pwd2\@$routerIP/cgi-bin/webcm"; my %form = ( getpage => '../html/status/deviceinfofile.htm', 'var:mycon' => 'connection0', 'var:conid' => 'encaps0' ); $ip = $1 if $::client->post($url,\%form)->content =~ /IP Address.+?IP Address.+?(\d+\.\d+\.\d+\.\d+)/sm; } else { logAdd "No rules for router model: $model" }

$ip eq '0.0.0.0' ?  : $ip; }

sub updateDNS { my $ip = shift; my $domain = shift; my @subDomains = @_; my $comment = "External IP has changed to $ip"; my @succeeded = (); my @failed = (); for my $subDomain (@subDomains) { my $url = $domain =~ /\.co\.nz$/  ? "http://ADunkley:$::pwd3\@dynamic.zoneedit.com/auth/dynamic.html?host=$subDomain.$domain"  : "http://dynamicdns.park-your-domain.com/update?host=$subDomain&domain=$domain&password=$::pwd3"; $::client->get($url)->is_success ? push(@succeeded,"$subDomain.$domain") : push(@failed,"$subDomain.$domain"); } if ($#failed >= 0) { $comment .= ', DNS updates failed!'; my $od = 'http://www.organicdesign.co.nz/wiki/index.php'; wikiLogin($od,$::peer,$::pwd1); wikiPageAppend( $od, 'user_talk:nad', "\n----\n$comment.\n\nThese domains failed:\n*".join("\n*",@failed)."\n:--~~"."~~\n", "Sorry to bother you, but I need help updating some domains :-/" ); } # update the IP log on the wiki logAdd $comment; wikiLogin($::wiki, $::peer, $::pwd1); wikiPageAppend($::wiki, $::wikilog, "\n*".localtime()." : $comment", $comment);

$#failed < 0; }

1. update IP with zoneedit.com/namecheap.com if changed

sub dynamicDNS { $::routerIP = shift; $::routerModel = shift; $::domain = shift; @::subDomains = @_;

# Loop forever checking IP from router every 10 seconds and updating DNS if changed while (1) { my $ip = getIP $::routerIP, $::routerModel; if ($ip && ($ip ne $::IP)) { $::IP = $ip if updateDNS $ip, $::domain, @::subDomains } sleep 10; } }

1. Call this to do an immediate manual update (called from [[commands.pl]])

sub UpdateNow { my $ip = getIP $::routerIP, $::routerModel; $::IP = $ip if updateDNS $ip, $::domain, @::subDomains; } </perl