掲示板に投稿編集機能付けたい

質問

jewel
http://www.groo-web.com/jewel.html
こちらの掲示板を独学でカスタマイズして使ってますが、
投稿編集機能が無いので、付けようと奮闘しています。

書き込み時にデフォルトで削除PASSを入力するようになっています。
それを利用して投稿編集機能を付けたいのですが、
ご教授願います。

以下がユーザーの記事削除処理の部分ですが、
elsif ($in{'action'} eq 'usr_kill') { &kill_action; }##←始めの部分

記事表示部分↓↓↓
<FORM method="$method" action="$cgifile">
<INPUT type="hidden" name="action" value="usr_kill">
<INPUT type="hidden" name="sex" value="$in{'sex'}">
<BR>
<TABLE cellspacing="0" width="200" border="0">
<TR align="left"><TD nowrap colspan="3"><B>【記事削除フォーム】</B></TD></TR>
<TR><td nowrap align="right">記事No/</TD>
<TD><input size="4" type="text" name="number"></TD></TR>
<TR><td nowrap align="right">パスワード/</TD>
<TD nowrap><INPUT size="10" type="password" name="pass">
<INPUT type="submit" value="削除"></TD></TR>
</TABLE></FORM>

下の方にあるルーチン↓↓↓
###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
## SUB >>> ユーザー記事削除処理
###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
sub kill_action {
if ($in{'number'} eq "") { &error("記事Noを入力してください"); }
elsif ($in{'number'} =~ /\D/) { &error("記事Noは半角数字で入力してください"); }
elsif ($in{'pass'} eq "") { &error("パスワードを入力してください"); }

&lock1;
if ($in{'sex'} eq '0') { &mens_read("lock2"); }
elsif ($in{'sex'} eq '1') { &ladys_read("lock2"); }

#--パスワードを暗号化--#
$crypted = crypt($in{'pass'}, "xx");

#--削除対象データが見つかるまでループ--#
$flag1 = 0;
$flag2 = 0;
foreach $line (@DATA) {
($no,$name,$mail,$age,$state,$comment,$hoop,$risou,$max,$date,$H_A,$m_pass,$looks) = split(/\,/, $line);
if ($in{'number'} eq "$no") {
$flag1 = 1;
chomp $m_pass;
if ($crypted eq "$m_pass" || $in{'pass'} eq "$master_key") {
$flag2 = 1;
$line =~ s/.*\n//;
last;
} else { &lock2; &error("パスワードが一致しません"); }
}
}

#--削除対象Noが見つからなかった場合のエラー処理ー--#
unless ($flag1) { &lock2; &error("記事No$in{'number'}が見つかりません"); }

if ($flag2) {
if ($in{'sex'} eq "0") {
if (!open(OUT,">$mensfile")) {
&lock2;
&error("$mensfile ファイルオープンエラー");
}
print OUT @DATA;
close(OUT);
}
elsif ($in{'sex'} eq "1") {
if (!open(OUT,">$ladysfile")) {
&lock2;
&error("$ladysfile ファイルオープンエラー");
}
print OUT @DATA;
close(OUT);
}
&lock2;

#--削除に成功したら完了メッセージを表示--#
&html_head;
&title;

print <<"HERE";
<CENTER><TABLE width="560">
<TR><TD bgcolor="$top_t_bgc"><CENTER>
<FONT color="$top_t_color"><B>削除完了！</B></FONT>
</CENTER></TD></TR></TABLE><BR><BR>
<FORM method="post" action="$cgifile">
<TABLE cellspacing="0" cellpadding="5" border="1">
<TR><TD nowrap bgcolor="#ffffd9" align="center">
<B>記事No$in{'number'}を削除しました。</B><BR><BR>
<INPUT type="submit" value=" TOP "></TD></TR>
</TABLE></FORM>
HERE

&html_footer;
exit;
}

exit;
}

これに以下を追加して作ることは可能なんでしょうか？
elsif ($in{'action'} eq 'edit') { &edit; }
または
elsif ($in{'action'} eq 'edit2') { &edit2; }

なんとかできるように教えて下さい。お願いします。

回答No.1

pipipi523 · ベストアンサー

削除と再登録が簡単に出来れば修正と同じことだと思いますので、

elsif ($in{'action'} eq 'edit') { &edit; }
を追加したらeditの内容は
kill_actionの削除処理を行った後に削除したデータを基にvalueやselectedを使って入力済みの状態にしたin_dataの処理を入れたらOKだと思います

お礼

お名前入れるの忘れてしまいました。申し訳ありません。

無事に修正機能を付けることに完成致しました！
少しだけ表示をアレンジして、インライン・フレームの中に取り込めました。

本当に一から教えて頂いて、本当に勉強になりました。
pipipi523さん、本当に有難うございました。

しかし、たかが修正機能と思いきや、
こんなに長い記述が必要だったとは驚きました。

現在まで独学で三年掛けて、HTML、CSS、JavaScript、ホームページビルダー、
ムーバブルタイプ、ムーバブルタイプ・カスタマイズとマスターして来て、
先月に初めて本格的にCGIに手を付け出してここまで来ましたが、
簡単なように見えて、このCGI(Perl)が一番手こずっていることに気づきました。

事情があって書籍も買いに行けず、ネットだけでやって来ましたが、
今回これほどの作業を完成させることができたのは、pipipi523さんのお陰です。

やはり、pipipi523さんがそれ程詳しいのは、その筋の学校出か、お仕事なのでしょうか？
独学でそこまで来られたとしたら、余程の頭脳の持ち主とお察し致します。

これで、ほぼ全ての機能を取り込むことができ、
素晴らしい掲示板になったと感じております。
本当に有難うございました。

私も、困っている方にアドバイスして上げられるよう、
もっともっと磨きを掛けて勉強して行こうと思った次第です。
今回は、pipipi523さんの貴重なお時間を費やして頂いて、
本当に有難うございました！(^^)/

あと一つだけ、
デザイン的なことに関してどうしてもできないことが発生したのですが、
それはまた新しい質問として載せたいと思います。

もし、お暇があれば、アドバイスの程、宜しくお願い致します。
今回は、本当に有難うございました。
まさに、私の中で、本当の勇者様です。

今後とも、お体に気を付けて頑張って下さい！(^^)/

補足

レス有難うございます。

しかし、初心者なもので、
どういうふうに入れれば良いのか↓↓↓
＞kill_actionの削除処理を行った後に削除したデータを基に
＞valueやselectedを使って入力済みの状態にしたin_dataの処理を
＞入れたらOKだと思います。
ちなみに、個別の削除画面というのは出ず、投稿欄の下にある窓に削除パスと記事番号を入れると、そのまま削除されるようになっています。

修正というと記事個別の画面が必要なのではないでしょうか？
editのルーチンを作らないと駄目なんでしょうかねえ・・？

できれば文で詳しく説明して、
そのままコピヘできるようにしてもらいたいです。
わがままで申し訳かりませんが、お願いします。