|
|
发表于 2005-7-24 22:34:39
|
显示全部楼层
这是hefish用perl写的3322的客户段.可以解决局域网内3322无法识别公网ip的问题.
转自chinaunix论坛 作者:hefish
代码:
hefish@lylib:~$ cat 3322.pl
#!/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三个参数就可以用了。 |
|