#!/usr/bin/perl

$buffer = $ENV{'QUERY_STRING'};             # 引数を$bufferに格納する
($name,$value) = split( /=/ , $buffer );    #フォーム名と内容に分割

if($name eq 'ite_category' && $value =~ /^[A-H]$/){
	@category_data_a = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H');
	@category_data_1 = ('10', '11', '12', '13', '14', '15', '16', '17');
	for($i = 0; $i < 8; $i++){
		if(@category_data_a[$i] eq $value){
			print "Location: http://www.winds-fishing.co.jp/products/list.php?category_id=@category_data_1[$i]\n\n";
		}
	}
}

print "Location: http://www.winds-fishing.co.jp/\n\n";