|
发表于 2004-9-1 17:19:57
|
显示全部楼层
贴一个专门用于ADSL NAT方式上网的用户更新希网DDNS方法
你可以设置corn每半小时执行一次该脚本
#!/usr/bin/perl
require LWP::UserAgent;
$user="username";
$pass="password";
$domain="domain.3322.org";
$url = "http://".$user.":".$pass."\@members.3322.org/dyndns/update?system=dyndns&hostname=".$domain."&wildcard=OFF";
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
my $response = $ua->get($url);
if ($response->is_success) {
print $response->content; # or whatever
}
else {
die $response->status_line;
}
修改username, password, domain三个参数就可以用了 |
|