トリオモデム制御

宅内LAN

トリオモデムに接続するハードを変えたりすると、DHCP再要求を行っても答えてくれない模様。グローバルアドレスの複数配布を防ぐため？なのかな。手抜きな実装な気もするけど…。
モデムを再起動(ブラウザで設定画面を開き実行or電源アダプタのさしなおし)すると直るけど、設定画面のHTMLをみると非常に単純なのでスクリプトを作成した。
BASIC認証して特定URLに対してPOSTするだけ。他の操作も簡単なので暇なときに全部書いちゃいましょ。

LWP::UserAgent->new->request(
  HTTP::Request->new(
    'POST',
    'http://172.16.255.254/restart.html',
    HTTP::Headers->new(
      Authorization => 'Basic '.encode_base64("$name:$pswd"))));