DynamicDNS.pl

1. 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 = @_;

while (1) {

# Get external IP from local router depending on make and model my $ip = getIP $::routerIP, $::routerModel;

# If IP changed, update DNS servers 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; }