ぜろちゃんねる掲示板＠総合質問スレ

313 ：名無しさん＠０ちゃんねる：2003/02/16 03:58 ID:???

>>311
GetRightText関数のことかな？　見たとこメール欄のデータは渡っていないので
$mail変数を使っても意味ないね。引数を増やすか$FORMINFO{'mail'}を使うか
WriteMessage関数に入れてみるか。まぁ適当にやってみ。

314 ：名無しさん＠０ちゃんねる：2003/02/16 04:00 ID:???

あと正規表現を使ったほうがいいな。sageで書き込めんからね。

315 ：307：2003/02/16 04:56 ID:???

>312
admin.cgiで設定していたから問題ないと思うのですが････

316 ：7M. ◆7M./4Uw. ：2003/02/16 13:10 ID:???

おまけ：ウチのスクリプトでのpreの処理方法↓

if ($FORM{'mail'} =~ /pre/) {
$FORM{'MESSAGE'} = qq|<pre>$FORM{'MESSAGE'}</pre>|;
$FORM{'MESSAGE'} =~ s/ <br> / <br>/g;
} elsif ($FORM{'mail'} =~ /teletype/) {
$FORM{'MESSAGE'} = qq|<tt>$FORM{'MESSAGE'}</tt>|;
}

317 ：7M. ◆7M./4Uw. ：2003/02/16 13:13 ID:???

0chぽく書くならこんな感じか。
if ($FORMINFO{'mail'} =~ /pre/) {
$FORMINFO{'MESSAGE'} = qq|<pre>$FORMINFO{'MESSAGE'}</pre>|;
$FORMINFO{'MESSAGE'} =~ s/ <br> / <br>/g;
} elsif ($FORM{'mail'} =~ /teletype/) {
$FORMINFO{'MESSAGE'} = qq|<tt>$FORMINFO{'MESSAGE'}</tt>|;
}

あと（省略されました…全て（略））の部分に
</tt></pre>を入れとか無いと省略されたときindex.html上でタグが閉じないから注意。