2005年8月アーカイブ

mail-entryについて質問がありましたので、ちょっと回答です。コメント欄にPerlのコードを書けないのでエントリーにしました。
他にも要望をいろいろいただいていますが、今回のは簡単そうだったので先に考えちゃいました。

頂いた質問は、写真を追記に表示させることは出来ないか、というものです。
408～421行目が以下のようになっていると思います。

if ($comment eq "") { # 画像が添付されていない場合 $comment = $mail_body; } elsif ((lc($comment_position) eq "style") && ($comment_style_html ne "")) { # style指定 <cgi_云々>を$云々（変数）に置換 $comment_style_html =~ s/<cgi_(¥w+)>/¥$$1/g; $comment = $comment_style_html; } elsif (lc($comment_position) eq "top") { # top指定 $comment = $mail_body."<br />¥n".$comment; } elsif (lc($comment_position) eq "bottom" || 1) { # bottom指定 $comment .= "<br />¥n".$mail_body; }

そこを、以下のように書き換えてみてください。

if ((lc($comment_position) eq "style") && ($comment_style_html ne "")) { # style指定 <cgi_云々>を$云々（変数）に置換 $comment_style_html =~ s/<cgi_(¥w+)>/¥$$1/g; $ex_comment = $comment_style_html; } elsif (lc($comment_position) eq "top") { # top指定 $ex_comment = $ex_comment."<br />¥n".$comment; } elsif (lc($comment_position) eq "bottom" || 1) { # bottom指定 $ex_comment .= "<br />¥n".$comment; } $comment = $mail_body;

こうすると、たぶん追記欄に画像が出るようになると思います。でもテストしてないのでほんとに出来るか分かりません。違ってたら教えてください（汗）
そんな事情ですので、エントリーする画像と文章はちゃんととっておいてください。

Mighty Mouse

ついにアップルから望みどおりのマウスがっ！
お盆進行中でもこれは更新せねば！

とまで思ったのに、残念ながらBluetoothではありませんでした・・・Bluetooth版、いつか出るかなぁ