ファイル削除機能を追加するには？

質問

ネットサーフレスキューの「簡易型カード式データベース 」と言うCGIを使用しています。
これには、「新規登録」「修正」「登録者一覧」の項目はあるのですが、「登録削除」というのがありません。
ですので、「登録削除」を追加するにはどうしたら良いでしょうか？
登録したIDが、そのままファイル名として保存されるみたいです。

自分でできないかと、検索して調べてみてunlinkというのがあると分かりました。
これを使って、投稿者自身が自分のIDを削除できるようにできないかと、いろいろと試してみたのですが、あまり知識がないのでやっぱりダメでした。。。
削除機能がないと、間違って登録してしまったIDなどが、どんどんサーバにたまっていってしまう状態になってしまうので、どうしても削除機能が欲しいと思ってます。

削除の方法としては、「修正」のリンクからIDとパスワードを入力してログインしてから、修正ページの下に修正するか削除するかのプルダウンメニューがあり、それを登録者が選択して修正するか削除するかを決めれたらいいなと思います。
または、別に「削除」というリンクを作り、IDとパスワードを入力して、削除ボタンを押すと登録IDが削除できるようになっていてもいいと思います。

削除機能を追加するのは、とても難しい思うのでアドバイスを頂けるか不安ですが、よろしくお願いします。

最後に参考リンクを記載しておきます。
ネットサーフレスキュー：http://www.rescue.ne.jp/
（情報収集の項目にある、「簡易型カード式データベース 」です。）

回答No.1

nontatta · ベストアンサー

こんにちは。
拝見したところ、登録、修正、登録者一覧表示それぞれに
htmlファイルとcgiファイルが存在する形になっていますね。
ご質問の場合、修正のページに削除の機能を追加ということですので、
修正のhtmlファイル（correct.html）とcgiファイル（correct.cgi）ファイルの
両ファイルを編集する必要があります。
とりあえず、両ファイルに以下の修正を行えば、ご希望どおりの削除機能はつけられるかと思います。
htmlファイルの方は、とりあえずプルダウン式で記述しています。

+++correct.html+++
1.　17行目の　<input type=submit value="修正"></th>　を削除
2.　削除したところに　

　　<select name=type>
　　<option>修正
　　<option>削除
　　</select>
　　<th nowrap><input type=submit value="ok"></th>

　　を追加。

+++correct.cgi+++
1.　47行目　elsif (-z $file) { &error("データ異常"); }　の下に

　　if($FORM{'type'} eq '削除'){
　　　if(crypt($FORM{'PASSWORD'}, substr($encode_pwd,$salt,2)) eq $encode_pwd){
　　　　unlink "$basedir$FORM{'SIGN'}";
　　　　&error("削除完了");
　　　}else{
　　　　&error("パスワードエラー");
　　　}
　　}

　　を追加（挿入）。

後はファイルの拡張子に気をつけ、（.htmlと.cgi）上書き保存すれば大丈夫です。
大雑把ではありますが、以上で機能します。

がんばってください。

お礼

nontattaさん、アドバイスをして頂きありがとうございます。

こんなに複雑なことを、しなければならなかったのですね。。。
私には到底できないレベルだったみたいです。
こちらに質問して良かったと思います。
とても助かりました。
nontattaさん、本当にありがとうございました。

これで、この記事は終了したいと思います。

PS. 実はまた大きな壁に当たってしまいました（ーー；
がんばっていろいろと考えてみたのですが、どうしてもできなかったので、またこちらで質問させて頂きました。
nontattaさん、もしお時間があればまたアドバイスをお願い致します。