マルチライン化改造

複数行入力可能なレス枠と、レス毎にスペースを空けた見やすい画面を表示します。petit.cgiを改造して下さい。

petit0.cgiはオリジナルファイル

petit.cgiが改造後のファイルです。

但し、Ver１．６Ｂからは「マルチライン化<->シングルライン切り替え可能」なpetit.cgiが標準になります。

改造点１、レスの表示

****** petit0.cgi

print "<table border=0 width=100% cellspacing=0><tr>\n";
print "<td><font color=$rc><b>$rname</b> ＞ $rcom ";
print "<small>($rd)</small></font></td></tr></table>\n";

print "<table border=0 width=100% cellspacing=0><tr>\n";
print "<td><font color=$rc><b>$rname</b> ： ";
print "<small>$rd</small>\n";
print "<blockquote>$rcom</blockquote></font></td></tr></table>\n";

}

改造点２、レス枠
****** ****** petit0.cgi

print "名前<input type=text name=name size=$nam_wid2 value=\"$c_name\">\n";
print "レス<input type=text name=comment size=$subj_wid>\n";
print "文字色<select name=color>\n";

foreach (0 .. $#COLORS) {

print "名前<input type=text name=name size=$nam_wid2 value=\"$c_name\">\n";

print "文字色<select name=color>\n";

foreach (0 .. $#COLORS) {

改造点３、レス枠

****** ****** petit0.cgi

}
print "</select> 削除キー<input type=text name=pwd size=4 value=\"$c_pwd\">\n";
print "<input type=submit value=\"返信する\"></form></center><hr>\n";

}

}
print "</select> 削除キー<input type=text name=pwd size=4 value=\"$c_pwd\">\n";
print "<input type=submit value=\"返信する\">\n";
print "<br>レス<textarea cols=\"$com_wid\" rows=3 name=comment wrap=\"$wrap\"></textarea>\n";
print "</form></center><hr>\n" ;

}