今日も朝はつらかった。休日なら寝たいだけ寝てゆっくり起きてゆっくりしていればいいが、平日はそうは問屋が卸さない。８時過ぎに起きたときは、ものすごく辛かった。辛いけど会社には行かねばならぬ。なんとか支度をして朝食を食べて会社へ。遅刻しても朝食は抜かしてはいけない。三食バランスよくきちんと食べないと、かえって太りやすくなる。

今日は９時半くらいに会社に着いた。定時を過ぎてはいるが、最近にしては早い方だ。これでも行くときはかなりしんどい。そして仕事を進めようとするが、これがなかなか進まない。けっこう難解なプログラムをエンハンスしているのだが、ちょっとはまっている。

リモートホストのsshdが許可しているプロトコル（SSH1、SSH2）と認証方式を取得する、というPerlのパッケージを作っているのだが、Net::SSH::Perl::Auth というモジュールの supported( [ $auth_id [, $server_supports ] ]) というメソッドを使ってやろうとしている。CPANのDESCRIPTIONによると、

With two arguments, $auth_id and $server_supports, returns true if the auth represented by $auth_id is supported both by Net::SSH::Perl and by the sshd server. The list of methods supported by the server should be in $server_supports, a bit mask sent from the server during the session identification phase.

ということなのだが、$auth_idというのは他のメソッドで一覧を取得できるものの、$server_supports というのがうまく取得できない。sshの通信で取得できるはずなのだが、どうもうまくいかん。ググってもなかなか「これ」という情報にたどり着かないし。

はあ、早く明日になって会社に行って続きがやりたいよう。