PerlのNet::UPnP::ControlPointを使って、ルータの情報を取りに行くための簡単なPerlスクリプトを書いてみた。 中身は、ほとんど http://www.geekpage.jp/programming/perl-network/get-ppp-external-ipaddr.php と同じようなもの。(参考にさせていただきました。) テスト環境ではうまくいって、CentOS5.4実機に乗せてみたら何も返ってこない。 ファイアウォールをあけなきゃいけないと、UPnPが使っているのは1900番(ssdp)なので他のhttpとかftpとかと同じ感じにacceptの設定してみた。 でも動かない。 ファイアウォールを停止させれば動くのは確認したので間違いなくファイアウォール関係だと思う。 そのマシンはルータとして使っているわけでもなんでもない、ローカルネット内のただのマシンだか