XREA の SSH 用のホスト登録を自動で処理する

  XREA に SSH で接続する際は，以下のようにホストを登録する必要があります．

  

  一度登録してしまえば 30 日は有効になるのですが，IP アドレスが変更になった場合や複数のサーバを使い分けている場合にとても不便なので，自動でホスト情報を登録するスクリプトを WWW::Mechanize を利用して書いてみました．

#!/usr/bin/env perl

use strict;
use warnings;
use WWW::Mechanize;

my $url = 'XREA の管理画面の URL';
my $userid = 'ID';
my $passwd = 'パスワード';

# ログイン画面
my $mech = WWW::Mechanize->new();
$mech->get($url);

$mech->form_number(1);
$mech->set_fields('id' => $userid, 'pass' => $passwd);
$mech->click_button('name' => 'explain');

# ログイン直後の画面
$mech->form_number(1);
$mech->click_button('name' => 'telnet');

# ホスト情報登録画面
$mech->form_number(6); # 5 -> 6 に変更になった (2008-02-22)
$mech->click_button('name' => 'ssh2');

  エラー時の処理などは一切行っていませんのでご注意を．