#!/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);