Mobile-bozu

« Mighty Mouse、これでBluetoothなら | メイン | 頓挫しております »

2005年08月27日

mail-entry、追記欄に画像を出す改造

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;

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

投稿者 osho : 2005年08月27日 20:25

トラックバック

このエントリーのトラックバックURL:
http://www.mobile-bozu.com/mt/mt-tb.cgi/297

このリストは、次のエントリーを参照しています: mail-entry、追記欄に画像を出す改造:

» メールでの画像を追記に･･･ from tubuyaki.net
メールで更新が出来るようになり、とっても、ハッピーなのですが・・・ 私のブログっ... [続きを読む]

トラックバック時刻: 2005年08月29日 18:41

コメント

投稿者 na2mi : 2005年08月27日 23:34

投稿者 osho : 2005年08月28日 08:49

投稿者 na2mi : 2005年08月28日 10:31

コメントしてください