CGI掲示板カスタマイズ～メッセージ送信の上にプロフを付けたい。

質問

現在、CGI掲示板のカスタマイズ中ですが、この掲示板は、投稿者の名前をクリックすると、メッセージ送信フォームが出るようになっています。
そこでこの送信フォーム画面の上部に、その投稿者の文章を表示したく、観覧処理や出力処理の中から必要そうな記述を抜き出し、送信フォーム表示処理の中のルーチンに取り込み、なんとか表示させることには成功したのですが、、その人物の投稿内容ではなく、なぜか１番目の投稿者の内容なのです。以下がそのメッセージ送信フォーム表示処理の内容です。
###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
## SUB >>> メール送信フォーム表示処理
###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
sub mailform {
if ($in{'sex'} eq '0') {
if(!open(IN,"$mensfile")) { &error("$mensfile ファイルオープンエラー"); }
}
elsif ($in{'sex'} eq '1') {
if (!open(IN,"$ladysfile")) { &error("$ladysfile ファイルオープンエラー"); }
}

if ($in{'sex'} eq "0") { $word_color = "$boy_color"; }
elsif ($in{'sex'} eq "1") { $word_color = "$girl_color"; }

if ($in{'sex'} eq "0") { $word_color = "$boy_color"; }
elsif ($in{'sex'} eq "1") { $word_color = "$girl_color"; }
if ($in{'sex'} eq "0") { $image = "image/otoko.gif"; }
elsif ($in{'sex'} eq "1") { $image = "image/onna.gif"; }

#--生年月日から年齢を計算--#
$nenrei = "";
unless ($noage) {
$nenrei = $year - $age_y;
if ($age_m > $month) { $nenrei = $nenrei - 1; }
if ($age_m == $month) {
if ($age_d > $mday) { $nenrei = $nenrei - 1; }
}
}

#--メール送信可能数の設定--#
if ($max) { $max = "$max通まで"; }
else { $max = "無制限"; }

$i = 0;
$allno = 0;
while (<IN>) {
($no,$name,$mail,$age,$state,$comment,$hoop,$risou,$max,$date,$H_A,$m_pass,$looks) = split(/\,/,);
($age_y,$age_m,$age_d,$noage) = split(/<>/, $age);
($street,$title) = split(/<>/, $state);
$i++;
$allno++;
if ($i < $start) { next; }
if ($i > $end) { next; }

if ($in{'sex'} eq '0') { $name_color = "$m_namecolor"; }
if ($in{'sex'} eq '1') { $name_color = "$l_namecolor"; }
&member_view;
}
close(IN);

～～～～↑↑↑追加部分↑↑↑～～～～～～～～

&html_head;
&title;

print <<"HERE";
<TABLE width="580">
<TR><TD bgcolor="$top_t_bgc"><CENTER>
<FONT color="$top_t_color"><B>メッセージ送信フォーム</B></FONT>
</TD></TR></TABLE>

～～～～↓↓↓追加部分↓↓↓～～～～～～～～

<TABLE width="98%" cellspacing="0" cellpadding="5" border="$table_border">
<TR><TD bgcolor="$table_bgc">
■<FONT color="$title_color">[<B>$no</B>] <B>$title</B></FONT><BR>
■お名前/ <B>$name</B>さん $date<BR>
■住所/ $street 年齢/ $age_y年$age_m月$age_d日生まれ（$nenrei歳）<BR>
■希望/ $risou <FONT color="$word_color">[$hoop]</FONT> ■メール制限数/ <FONT color="$word_color">[$max]</FONT><BR>
<FONT color="$word_color">$comment</FONT></TD></TR></TABLE>

<TABLE height="$kiji_sp" border="0"><TR><TD></TD></TR></TABLE>
HERE

～～～～↑↑↑追加部分↑↑↑～～～～～～～～
以下は元からある送信フォーム。文字数オーバーのため省略
～～～ここまでが送信処理のルーチンですが、
この上部の方の記述をどう記したら、その人物の投稿文が出せるのか、宜しくお願い致します。

回答No.3

calltella

最初からご使用のＣＧＩを聞けばよかったですね。
一番簡単な方法はjewel.cgiの328行目を下記に書き換えてください。
<A href="$cgifile?action=mailform&sex=$in{'sex'}&number=$no&to_name=$name&comment=$comment"><B>$name</B></A>さん $date

そして963行目からのHTMLのコメントを表示したい部分に
$in{'comment'}
と記述してください。

後はやってみればわかると思いますので応用してください。

補足

手間をお掛けして申し訳ありません。
何度もありがとうございます。
＞そして963行目からのHTMLのコメントを表示したい部分に
＞$in{'comment'}と記述してください。
こちらは、タイトルとコメントだけきちんと表示させられるようになりましたが、
＞<A href="$cgifile?action=mailform&sex=$in{'sex'}
＞&number=$no&to_name=$name&comment=$comment"><B>$name</B></A>さ＞ん $date
こちらを挿入すると、元の閲覧画面で文字化けや、ホスト表示されたりと、とてもじゃないですが見られる画面ではありません。
うーむ・・・