因為有免費的 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;
沒有留言:
張貼留言