#!/usr/bin/perl

use strict;


my $jcode = './jcode.pl';
my @LinkURL = ('http://www.kyuun.co.jp/error.html','http://www.lok-nagoya.com/',);

require $jcode;
my $LinkData = &decode;

if($LinkData->{'mode'}){ print "Location:$LinkURL[$LinkData->{'mode'}]\n\n"; }
else{ print "Location:$LinkURL[0]\n\n"; }


exit;


# サブルーチン ------------------------------------------------------------------------------------
sub decode{
my $Inport = $ENV{'QUERY_STRING'};
my ($Form,@Key,@in,$key,$val);
@in = split(/&/, $Inport);
  foreach(@in){
    ($key, $val) = split(/=/);
    $key =~ tr/+/ /;
    $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $val =~ tr/+/ /;
    $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    
    &jcode'convert(*key, 'sjis');
    &jcode'convert(*val, 'sjis');
    
    # タグ排除
    $key =~ s/&/&/g;
    $key =~ s/"/"/g;
    $key =~ s/</&lt;/g;
    $key =~ s/>/&gt;/g;
    $val =~ s/&/&amp;/g;
    $val =~ s/"/&quot;/g;
    $val =~ s/</&lt;/g;
    $val =~ s/>/&gt;/g;
	$val =~ s/\r\n/<br \/>/g;
	$val =~ s/\r/<br \/>/g;
	$val =~ s/\n/<br \/>/g;
    
#    $Form->{$key} .= "\0" if (defined($Form->{$key}));
    $Form->{$key} .= $val;
  }
  
  return $Form;
}