すべてnik.cgiの編集です。
テンプレートファイルを使用することや、携帯からの閲覧は考慮に入れてません。
１、名前書き込み欄を作る。
3973行目辺り
$tmp .= qq| <tr>\n|;
$tmp .= qq| <td>\n|;
$tmp .= qq|<tt>タイトル</tt> \n|;
$tmp .= qq|<input type="text" size="60" name="tit" value="$in{'tit'}">\n|;
$tmp .= qq| </td>\n|;
$tmp .= qq| </tr>\n|;
辺りに書き込み欄を追加。
例）
$tmp .= qq| <tr>\n|;
$tmp .= qq| <td>\n|;
$tmp .= qq|<tt>名前</tt> \n|;
$tmp .= qq|<input type="text" size="60" name="hn" value="$in{hn}">\n|;
$tmp .= qq| </td>\n|;
$tmp .= qq| </tr>\n|;
２、プレビュー項目のところのHIDDENに名前の追加をする。
1342行目辺りとか、1394行目辺りとかの$in{'tit'}が書かれてあるところに追加する。
print qq|<input type="hidden" name="hn" value="$in{'hn'}">\n|;
３、修正用の場所に追加。
3503行目辺り
$in{'tit'} = $_[2];
$in{'tit'} =~ s/\"/"/g;
に追加する
$in{'tit'} = $_[2];
$in{'tit'} =~ s/\"/"/g;
$in{'hn'} = $_[17];
$in{'hn'} =~ s/\"/"/g;
４、その他修正
5184行目辺り
$in{'tit'} =~ s/"/\"/g;
に追加
$in{'tit'} =~ s/"/\"/g;
$in{'hn'} =~ s/"/\"/g;
５、記録データ追加
5217行目くらい
$kousin_data .= $in{'will'} ."\t";
$kousin_data .= $in{'willn'} ."\t";
$kousin_data .= $File_Sam ."\t";
$kousin_data .= "\n";
を
$kousin_data .= $in{'will'} ."\t";
$kousin_data .= $in{'willn'} ."\t";
$kousin_data .= $File_Sam ."\t";
$kousin_data .= $in{'hn'} ."\t";
$kousin_data .= "\n";
とする。
1325行目辺り
push(@line,"$in{'sort'}\t$in{'date'}\t$tmp_tit\t$comm\t"
."$in{'time'}\t$in{'kibun'}\t$in{'tenki'}\t$main_img\t"
."$main_W\t$main_H\t$in{'gaz'}\t"
."$File_Set\t"
."$theme_kakiko\t$in{'rank'}\t$in{'will'}\t$in{'willn'}\t$File_Sam\t\n");
を
push(@line,"$in{'sort'}\t$in{'date'}\t$tmp_tit\t$comm\t"
."$in{'time'}\t$in{'kibun'}\t$in{'tenki'}\t$main_img\t"
."$main_W\t$main_H\t$in{'gaz'}\t"
."$File_Set\t"
."$theme_kakiko\t$in{'rank'}\t$in{'will'}\t$in{'willn'}\t$File_Sam\t$in{'hn'}\t\n");
とする
６、表示する
1872行目辺り
$tmp .= qq| <th>|;
if ($kiji_top_c and $kiji_top_s) {
$kiji_top_s--;
$tmp .= qq|<font color="$kiji_top_c">$_[2]</font>|;
} else {
$tmp .= qq|<font color="$ti_c">$_[2]</font>|;
}
$tmp .= qq|</th>\n|;
この辺の好きな場所に表示するヤツをいれる
$tmp .= qq| <th>|;
if ($kiji_top_c and $kiji_top_s) {
$kiji_top_s--;
$tmp .= qq|<font color="$kiji_top_c">$_[2]</font>|;
} else {
$tmp .= qq|<font color="$ti_c">$_[2]</font>|;
}
$tmp .= qq|<br>名前：$_[17]\n|;
$tmp .= qq|</th>\n|;
以上でOK
|