下記のperl スクリプトをディレクトリ
/etc/ppp/ip-up.d/
の下に適当な名前(例 dhsupdate)で格納します
chmod +x dhsupdate
として実行権をつけておけばpppdでの接続でこのスクリプトが
実行されます
<![CDATA[
#!/usr/bin/perl
use strict;
# 下記４行を自分の環境に合わせます
my $USER="user"; #DHS ユーザ名
my $PASS="passwd"; #DHS パスワード
my $HOST="hogehoge"; # ホスト名
my $DOMAIN="dyn.dhs.org"; # ドメイン名 (2y.net / dyn.dhs.org )
#
#
my $DHSURL="members.dhs.org/nic/hosts"; # DHSのURL
use LWP::UserAgent; # モジュールLWP を使います
#
my $ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
#ユーザ名パスワードを記入した形でのアクセスするURLリクエスト
my $req = new HTTP::Request POST => "http://${USER}:${PASS}\@${DHSURL}";
# content_type を指定
$req->content_type('application/x-www-form-urlencoded');
# Form へ入力する
$req->content("hostscmd=edit&hostscmdstage=2&type=4&updatetype=Online\
&ip=${PPP_LOCAL}&submit=Update&domain=${DOMAIN}&hostname=${HOST}");
# 実際にURLへアクセス
my $res = $ua->request($req);
#
# 終了コード （ステータス確認しないなら不要）
$res->is_success;
]]></plaintext></body>