#!/usr/local/bin/perl

# Copyright(C) りゅういち
# セレクトフォーム・デ・ショートカット(CGI Ver)
# 全行解説付き

# フォーム入力値を $buffer に置き換え
$buffer = $ENV{'QUERY_STRING'};

	# URL以外の情報はさらば！
	$buffer=~s/&x=.*//;$buffer=~s/&//;

	# フォーム入力値 $buffer が $name(フォームの名前)=$value(内容) で区切られていると解釈
	($name,$value) = split(/=/, $buffer);

	# フォーム内容をデコード
	$value =~ tr/+/ /;$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

	# $FORM{$name} に $value 内容を入れる
	$FORM{$name} = $value;

# $url にフォーム link 内容を入れる
$url=$FORM{'link'};

# $url の URL にジャンプ
print "Location: $url\n\n";

# おわり
exit;