PerlでSMTP-AUTH認証をするNoel Cafeで使用しているサーバーLolipopがパワーアップした。 いろいろ喜ばしいことではあるが、 自作CGIの改良が必要になってしまった。 Photo Blogでは 添付付きメール送信→Perl(自作) →Movable Type投稿→Twitpic投稿 →その他サービスへメールで投稿 という仕組みになっている。 「メールで投稿」をLolipopメールを使用しているのだが 認証方法がPOP before SMTPからSMTP-AUTHに変わった。 このために、スクリプトの書き換えが必要になった。 以下、Perl で SMTP-AUTH認証＋αの覚書。 おおよそのスクリプトは以下のとおり。 $smtp->to(…)の前に、$smtp->auth(…)を入れます。 (下の例では4行目です) (私はスクリプトがすっきりするので MIME::Entityを使用します。) use NET
