罪と罰++二律背反

#!/usr/bin/perl
$querybuffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$querybuffer);
foreach $pair (@pairs) {
	($name, $value, $id, $pass) = split(/=/, $pair);
	if( $name eq "jumpto" ) {
		$jumpto = $value;	# 移動先
	}
}

if( $jumpto ne "-" ) {
	print "Location: $jumpto\n\n";
}
else {
	print "Content-type: text/html\n\n";
	print qq|<HTML>\n<HEAD><META HTTP-EQUIV="Content-Type"  CONTENT="text/html ; charset=Shift_JIS">\n<TITLE>移動先が未指定です </TITLE></HEAD>\n|;
	print qq|<BODY><H1>移動先が選択されていません。</H1><P>移動先を選択してからボタンをクリックして下さい。</P></BODY>\n|;
}

exit;
<form name="ore_" method="GET" action="./jump.cgi">

<input type=hidden name=id value="$id">
<input type=hidden name=pw value="$pass">
<input type=hidden name=mode value="$mode">
<select name="jumpto" size="1">
<option value="hist.cgi">情勢の軌跡</option>
<option value="chist.cgi">英雄の軌跡</option>
<option value="sekihist.cgi">覇権の軌跡</option>
</select>
<input type=submit value="決定">
</form>

$logfile	= "./logdata/hist_log.cgi";	# ログファイルのパス
$logfile	= "./logdata/chist_log.cgi" if($cmd==100);
$logfile	= "./logdata/sekihist_log.cgi" if($cmd==101);
<select name="cmd" size="1">
<option value="-1">情勢の軌跡</option>
<option value="100">英雄の軌跡</option>
<option value="101">覇権の軌跡</option>

  • <form name="ore_" method="$method" action="./hist.cgi">
    <input type="hidden" name="id" value="$id">
    <input type="hidden" name="pw" value="$pw">
    <input type="hidden" name="camp" value="$in{'camp'}">
    <select name="hist_num" class="button2" size="1">
    <option value="1">過去栄</option>
    <option value="2">石碑</option>
    <option value="3">仕官</option>
    </select>
    <input type=submit value="GO" class="button2" style="width:80px">
    </form>
# ログ読み込み
$hist_num	= $in{'hist_num'};	#過去栄表示番号
if($hist_num==1){$kfile=$logfile1}
elsif($hist_num==2){$kfile=$logfile2}
elsif($hist_num==3){$kfile=$logfile3}
else{$kfile=$logfile1}
open(IN,"$kfile") || &error("Open Error : $kfile");
my @lines = <IN>;
close(IN);



トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:30:42 (2738d)