|
| カレッヂ |
質問者 むう
投稿日 2005/9/4(日) 09:28:36
こんにちは。
とあるゲームを自分で作ってみたのですが、
その登録画面で、入力をミスしてしまった時の用に、
ちゃんと考えられるミスには注意が出る用にしたいのですが、
何故かミスをしてしまっています。
ちなみにスクリプトはこんな感じです
（一応成功したかチェックするため、ミスしなかった場合の表示が変ですが＾＾；）
#!/usr/bin/perl
require "cgi-lib.pl";
&ReadParse();
$mode = $in{'mode'};
if($mode) { &$mode; }
&chara_make;
sub chara_make {
print <<"EOM";
content-type: text/html
<html>
<body background="bg.gif">
<h1>キャラクター作成画面</h1>
<br><br>
<form action="charamake.cgi" method="get">
<input type="hidden" name="mode" value="make_pre">
<table border=1>
<tr>
<td class="b1" colspan="2">
・キャラクターは一人１つのみです。もし、２重登録が発覚したら、予\告無く削除します。<br>
・不正行為はもちろん禁止です。発覚したら、同じく削除します。<br>
・F5連打や、更新ボタン連打も止めて下さい。サーバーが落ちます。これも発覚したら削除します。<br>
</td>
</tr>
<tr><td class="b1">ID</td>
<td>
<input type="text" name="id" size="10" value="$in{'id'}"><br>
△お好きな半角英数字を4〜8文字以内でご記入ください。
</td>
</tr>
<tr>
<td class="b1">パスワード</td>
<td>
<input type="password" name="pass" size="10" value="$in{'pass'}"><br>
△お好きな半角英数字を4〜8文字以内でご記入ください。
</td>
</tr>
<tr>
<td class="b1">パスワード変更用単語</td>
<td>
<input type="text" name="passchange" size="10" value="$in{'passchange'}"><br>
△パスワードを変更する時のパスワードです。かなり重要なので忘れないようにメモを取るようにお願いします。
</td>
</tr>
<tr>
<td class="b1">キャラクターの名前</td>
<td>
<input type="text" name="c_name" size="30" value="$in{'c_name'}"><br>
△作成するキャラクターの名前を入力してください。
</td>
</tr>
<tr>
<td class="b1">キャラクターの性別</td>
<td>
<input type="radio" name="sex" value="0">女
<input type="radio" name="sex" value="1" checked>男<br>
△作成するキャラクターの性別を選択してください。
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="submit" class="btn" value="これで登録">
</td>
</tr>
</form>
</table>
</body></html>
EOM
exit;
}
sub make_pre {
if ($in{'id'} =~ m/[^0-9a-zA-Z]/){
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
IDに半角英数字以外の文字が含まれています。
</body></html>
EOM
}
elsif ($in{'pass'} =~ m/[^0-9a-zA-Z]/){
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
パスワードに半角英数字以外の文字が含まれています。
}
elsif ($in{'id'} eq "" or length($in{'id'}) < 4 or length($in{'id'}) > 8) {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
IDは、4文字以上、8文字以下で入力して下さい。
}
elsif ($in{'pass'} eq "" or length($in{'pass'}) < 4 or length($in{'pass'}) > 8) {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
パスワードは、4文字以上、8文字以下で入力して下さい。
}
elsif ($in{'c_name'} eq "") {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
キャラクターの名前が未記入です
}
elsif($in{'sex'} eq "") {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
性別が選択されていません
}
elsif($in{'passchange'} eq "") {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
パスワード変更用単語が設定されていません\n";
}
else {
print <<"EOM";
content-type: text/html
テスト成功＾＾
EOM
exit;
}
exit;
}
exit;
どうでしょうか？
デバックしても全然分からないので・・・
ちなみにエラー内容は５００です。
設置場所はhttp://www.usamimi.info/~muu/cgi-bin/dbdcs/
です。
【プロバイダ】http://www.usamimi.info/~muu/ |
回答者 sim
[削除]
投稿日 2005/9/5(月) 13:28:25
http://www.usamimi.info/~muu/cgi-bin/dbdcs/のページを動かすと Can't locate hello-main.pl と出るのですが、どの部分がどのように動かないのでしょうか？ 記述された部分には構文エラーは無いので、cgi-lib.plが無いとかパールのパスが違うとかの問題だと思います。 |
質問者 ぁ�・ size31 maxlength30 style
[削除]
投稿日 2005/9/6(火) 08:07:48
とりあえず、アップしなおしました＾＾；ご迷惑をお掛けしました・・・ えーと、普通にちゃんとミス無しでフォームに入力すると、 ちゃんと「テスト成功＾＾」って出るのですが、 ミスを注意するようにしてあるかチェックするために全てミスしてみたりすると、 ５００エラーが起こってしまうのです。 このままだと、不正キャラクターとか作られそうなので、どうにかしたいのですが・・・ |
質問者 むう
[削除]
投稿日 2005/9/6(火) 08:08:52
↑の名前なんか変ですね・・・ すみません＾＾； |
回答者 sim
[削除]
投稿日 2005/9/6(火) 14:16:21
elsif ($in{'c_name'} eq "") {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
キャラクターの名前が未記入です
}
このような部分ですね。
elsif ($in{'c_name'} eq "") {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
キャラクターの名前が未記入です
EOM
}
このようにEOMで始まったらEOMで終わらせなくてはなりません。
ブロック内で必ず閉じれば良いんじゃないかと思います。
|
質問者 むう
[削除]
投稿日 2005/9/6(火) 16:44:30
ありがとうございます。ちゃんと表示されました＾＾
その後、データを保存するように、色々と追加したのですが、
また５００エラーが出ました。
ちなみにこんなスクリプトです。文字数の問題で途中からですが＾＾；
sub make_pre {
if ($in{'id'} =~ m/[^0-9a-zA-Z]/){
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
IDに半角英数字以外の文字が含まれています。
</body></html>
EOM
}
elsif ($in{'pass'} =~ m/[^0-9a-zA-Z]/){
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
パスワードに半角英数字以外の文字が含まれています。
</body></html>
EOM
}
elsif ($in{'id'} eq "" or length($in{'id'}) < 4 or length($in{'id'}) > 8) {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
IDは、4文字以上、8文字以下で入力して下さい。
</body></html>
EOM
}
elsif ($in{'pass'} eq "" or length($in{'pass'}) < 4 or length($in{'pass'}) > 8) {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
パスワードは、4文字以上、8文字以下で入力して下さい。
</body></html>
EOM
}
elsif ($in{'c_name'} eq "") {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
キャラクターの名前が未記入です
</body></html>
EOM
}
elsif($in{'sex'} eq "") {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
性別が選択されていません
</body></html>
EOM
}
elsif($in{'passchange'} eq "") {
print <<"EOM";
content-type: text/html
<html><body background="bg.gif">
パスワード変更用単語が設定されていません\n";
</body></html>
EOM
}
else {
$new_chara = "$in{'id'}<>$in{'pass'}<>$in{'passchange'}<>$in{'c_name'}<>$in{'sex'}<>";
open( FH, ">$in{'id'}.cgi");
print FH $new_chara;
close FH;
print <<"EOM";
content-type: text/html
<html><body>
<h1>登録完了画面</h1>
以下の内容で登録が完了しました。
<hr size=0>
<table border=1>
<tr>
<td class="b1">なまえ</td>
<td>$in{'c_name'}</td>
<td class="b1">性別</td>
<td>$in{'sex'}</td>
</tr>
</table>
<form action="top.cgi" method="post">
<input type="hidden" name=mode value=log_in>
<input type="hidden" name=id value="$in{'id'}">
<input type="hidden" name=pass value="$in{'pass'}">
<input type="submit" class="btn" value="ステータス画面へ">
</form>
</body></html>
EOM
exit;
}
exit;
}
exit;
こんな感じです。一体どこがおかしいのでしょうか？ |
回答者 sim
[削除]
投稿日 2005/9/6(火) 17:23:25
print <<"EOM"; content-type: text/html <html><body> この部分ですかね？ print <<"EOM"; content-type: text/html <html><body> このようにしてみてはいかがでしょうか。 |
質問者 むう
[削除]
投稿日 2005/9/10(土) 05:50:58
ありがとうございます＾＾ あの後うまくいきました。 その後にも色々と追加してみたのですが、やっぱり５００エラーが起こってしまいました・・・ やっぱり文は長いので、txtで文を出しますね。 http://www.usamimi.info/~muu/charamake.txt 度々迷惑を掛けますね、私＾＾； |
返信(回答)する
| Ｗｅｂ裏技 |