XREA の SSH 用のホスト登録を自動で処理する
2007-06-19-1: [Perl]
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');
エラー時の処理などは一切行っていませんのでご注意を．
