2007年5月14日 星期一

DynDNS IP 更新

自己有在使用 https://www.dyndns.com/ 的服務
因為有免費的 Domain Name 可以使用~ :P
剛剛寫了一個簡單的 Perl Script
打算放到 crontab 裡面定時跑一下來更新 IP
#!/usr/bin/perl

use warnings;
use strict;
use LWP::Simple;

my ($username,$password,$hostname) = qw(username password some.domain.name);

my $html = get("http://checkip.dyndns.com");

my $ip = $1 if $html =~ m/(\d+\.\d+\.\d+\.\d+)/;

if ($ip) {
$html = getprint("http://$username:$password\@members.dyndns.org/nic/update?system=dyndns&hostname=$hostname&myip=$ip&wildcard=NOCHG&mx=NOCHG&backmx=NOCHG&");
print "\n";
}

1;

沒有留言: