#!/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>
# ログ読み込み
$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);
