投稿

8月, 2005の投稿を表示しています

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

mail-entryについて質問がありましたので、ちょっと回答です。コメント欄にPerlのコードを書けないのでエントリーにしました。

他にも要望をいろいろいただいていますが、今回のは簡単そうだったので先に考えちゃいました。



頂いた質問は、写真を追記に表示させることは出来ないか、というものです。

408~421行目が以下のようになっていると思います。



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



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



<br/>if ((lc($comment_position) eq "style") && ($comment_style_html ne "")) {&l…

Mighty Mouse、これでBluetoothなら

Mighty Mouse

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

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