($name, $value, $id, $pass) = split(/=/, $pair); if( $name eq "jumpto" ) { $jumpto = $value; # 移動先 }
print "Location: $jumpto\n\n";
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|;