Net::Telnetで軽くハマる

Net::Telnetモジュールを使って会社のサーバに仕事をさせるスクリプトを書いていたら、
以前ログインできてたのに、サーバリプレース以後ログインできなくなった。
結構ハマってしまって放置していたのだが、今日ようやくFixできてスッキリ。
Net::Telnetでの通信のやりとりは、dump_log()メソッドでファイルに記録できるのね。

  # ホストに接続する
  $telnet->open( $hostname );
  
  # loginと出力されたらユーザ名を送信
  $telnet->waitfor('/login/i');
  $telnet->print( $username );
  
  # passwordと出力されたらパスワードを送信
  $telnet->waitfor('/password/i');
  $telnet->print( $password );
  
  # ターミナルタイプ設定
  $telnet->waitfor('/terminal type? /');
  $telnet->print( 'vt100' );
  
  # プロンプトが出力されるまで待つ
  $telnet->waitfor( $prompt );

上記太字部分がミソで、こいつを指定してやらないと、ログインプロンプトが返ってこない環境があるらしい。
これを設定してやらないと、

  unknown terminal type network
  Terminal type? 

とか言われるので、.bash_profileに'export TERM=vt100'とか書いてあげたりしないといけない(そこで入力待ち状態なのでプロンプトを待ってるwaitfor()がタイムアウトする)。

ようやくFixしたので、これを使ってリリース作業の自動化とかできたら楽だな～とか妄想中。(笑