CGI RESCUEの簡易予約システムYoYackerの改造

質問

「CGI RESCUE」というサイトの
　「簡易予約システムYoYacker」(下記URL)で、
　［削除］ボタンの隣に、新たに［訂正］ボタンを設けるには、
　yoyaku.cgiファイルのどこをどう書き換えれば良いですか？

　http://www.rescue.ne.jp/cgi/yoyaku/

　ほとんど理想的なプログラムだったのですが、
　内容が、後から一部変更になったりすることが多くて、
　訂正の度に、いったん削除し、また最初から全て入力
　し直すという作業が大変でした。

　分かる方よろしくお願いいたします m(_ _)m

　ちなみに、わたしは、HTMLは少し分かりますが、
　Perlのことはゼンゼン分かりません。。。

回答No.1

pipipi523 · ベストアンサー

前回修正ファイル(QNo.2352386)に適当に修正処理を入れてみました・・
(前回同様修正は後ろから。行がずれていたら近辺を探してみてください)
■181行目
elsif ($in{'year'} ne "" && $in{'month'} ne "") { # 指定のカレンダー年月指定
省略
}
else { # デフォルトのカレンダー年月指定(今月)
↓追加
elsif ($in{'year'} ne "" && $in{'month'} ne "") { # 指定のカレンダー年月指定
省略
}
elsif ($in{'action'} eq "modify") {#修正処理追加

if ($in{'DEL'} eq "") { &error("何もチェックされていません。"); }
(@target)=split("\0",$in{'DEL'});
if(@target>1){ &error("２箇所以上チェックされています。"); }
#予約ファイルを読み出す
open(FILE,"$DATA$target[0]$ext");
while (<FILE>) {
chomp;
($key,$val) = split(/\t/,$_,2);
if ($key eq "admin") { $UNAME = $val;}
if ($key eq "pwd") { $PWD = $val;}
if ($key eq "rem") { $REM = $val;}
}
close(FILE);
if ($in{'pwd'} eq $PWD) { unlink "$DATA$target[0]$ext"; }
else {&error("パスワードが違っています。"); }
($heya,$jikan,$jikan2)=split('/',$target[0]);
$lyear = substr($jikan,0,4);
$lmonth = substr($jikan,4,2);
$lmday = substr($jikan,6,2);
}
else { # デフォルトのカレンダー年月指定(今月)

■204行目
#桁数形成
if ($nmonth < 10) { $nmonth = "0$nmonth"; }
↓修正
#桁数形成
if (length($nmonth)<2) { $nmonth = "0$nmonth"; }

■251行目
print <<"EOF";
<form method="POST" action="$address">
～省略～
EOF
↓変更
if($now_year == $lyear){$moji="selected";$moji2="";}else{$moji="";$moji2="selected";}
print <<"EOF";
<form method="POST" action="$address">
予\約する日 <select name="yyear" size=1>
<option value="$now_year" $moji>$now_year
<option value="$next_year" $moji2>$next_year
</select>年
<select name="ymonth" size=1>
EOF

■264行目
if ($_ == $mon +1) { $moji = " selected"; } else { $moji = ""; }
↓修正
if ($_ == $lmonth) { $moji = " selected"; } else { $moji = ""; }

■267行目
if ($_ == $mday) { $moji = " selected"; } else { $moji = ""; }
↓修正
if ($_ == $lmday) { $moji = " selected"; } else { $moji = ""; }

■290行目
print "<OPTION VALUE=$_>$_</OPTION>\n";
↓修正
if ($_ == $jikan2) { $moji = " selected"; } else { $moji = ""; }
print "<OPTION VALUE=$_$moji>$_</OPTION>\n";

■301行目
print "<option value=\"$HEYA[$n]\">$HEYA_NAME[$n]</option>\n";
↓修正
if ($HEYA[$n] eq $heya) { $moji = " selected"; } else { $moji = ""; }
print "<option value=\"$HEYA[$n]\"$moji>$HEYA_NAME[$n]</option>\n";

■307行目
予\約者 <input type=text size=30 name="uname"><br>
パスワード <input type=password size=10 name="pwd"><br>
備考 <input type=text size=60 name="rem"><p>
↓修正
予\約者 <input type=text size=30 name="uname" value=\"$UNAME\"><br>
パスワード <input type=password size=10 name="pwd" value=\"$PWD\"><br>
備考 <input type=text size=60 name="rem" value=\"$REM\"><p>

■340行目
<input type=hidden name="action" value="delete">
↑削除

■404行目
削除する予\約にチェックしパスワードを指定してボタンを押してください。<br>
～省略～
EOF
↓修正
修正／削除する予\約にチェックしパスワードを指定してボタンを押してください。<br>
パスワード <input type=password name=pwd size=10>
<input type="radio" name="action" value="modify" checked>修正
<input type="radio" name="action" value="delete">削除
<input type=submit value="修正/削除">
EOF

お礼

だー(*o*) ピピピさん、有難うございます!!!
というか、すみません。何度も恐縮です。。。
（ って言いつつ少し期待してました(ォィ) ）

>> 前回修正ファイルに適当に修正処理を

ここ読んでハッとしました。そうかぁ(>_<)
きっと前回の修正内容も踏まえてじゃないと、
（他の人が答えてくれてたとしても）うまく
ゆかなかったでしょうね??? アホでした；

それはそーと早速 書き直したところ、またまた
思い通りになりましてスッカリ満足しております。
おかげ様で、どんどんラクになっちゃって…
笑いが止まりません（？）

ピピピさん、ブラボーヽ(^o^)丿有難うございました♪