#! /usr/local/bin/perl
# ----------------------------------------------------------- #
# プルダウンメニュー用フリーCGI
# ----------------------------------------------------------- #
# 特に書き換える必要はありません。ただし、お使いのサーバに
# よっては、１行目の『/usr/local/bin/perl』の部分を書き換え
# る必要がある場合があります。どう書き換えるべきかは、サーバ
# によって異なりますので、サーバ管理者などにお尋ね下さい。
# ----------------------------------------------------------- #
# このCGIをダウンロード後、ファイル名を「jump.cgi」に変更し
# て、アスキーモード（テキストモード）でアップロードして下さ
# い。サーバ上で属性（パーミッション）を 755 に変更すると、
# 使用可能になります。
# ----------------------------------------------------------- #
# 仕様：
# URLとして「-」（半角ハイフン）だけが渡されると、「移動先を
# 選択してからボタンをクリックして下さい」というメッセージが
# 表示されます。
# ----------------------------------------------------------- #
$querybuffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$querybuffer);
foreach $pair (@pairs) {
($name, $value) = 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|\n\n移動先が未指定です\n|;
print qq|移動先が選択されていません。
移動先を選択してからボタンをクリックして下さい。
\n|;
}
exit;