mail-entry、追記欄に画像を出す改造
mail-entryについて質問がありましたので、ちょっと回答です。コメント欄にPerlのコードを書けないのでエントリーにしました。 他にも要望をいろいろいただいていますが、今回のは簡単そうだったので先に考えちゃいました。 頂いた質問は、写真を追記に表示させることは出来ないか、というものです。 408～421行目が以下のようになっていると思います。 if ($comment eq "") { # 画像が添付されていない場合 $comment = $mail_body; } elsif ((lc($comment_position) eq "style") && ($comment_style_html ne "")) { # style指定 を$云々（変数）に置換 $comment_style_html =~ s/ /¥$$1/g; $comment = $comment_style_html; } elsif (lc($comment_position) eq "top") { # top指定 $comment = $mail_body." ¥n".$comment; } elsif (lc($comment_position) eq "bottom" || 1) { # bottom指定 $comment .= " ¥n".$mail_body; } そこを、以下のように書き換えてみてください。 if ((lc($comment_position) eq "style") && ($comment_style_html ne "")) { # style指定 を$云々（変数）に置換 $comment_style_html =~ s/ /¥$$1/g; $ex_comment = $comment_style_html; } elsif (lc($comment_position) eq "top") { # top指定 $ex_comment = $ex_comment." ¥n".$comment; } elsi...