#!/usr/bin/perl
use Jcode;

sub convert_jp {
	my ($text, $code) = @_;
	my ($jptext);
	$code =~ tr/a-z/A-Z/;
	if($code eq "ISO-2022-JP"){
		$jptext = Jcode->new($text)->jis;
	}elsif($code eq "SHIFT_JIS"){
		$jptext = Jcode->new($text)->sjis;
	}elsif($code eq "EUC-JP"){
		$jptext = Jcode->new($text)->euc;
	}
	($jptext);
}

sub urldecode{
	my ($text, $code) = @_;

	$text =~ s/\\x([0-9a-f][0-9a-f])/\%$1/gi;
	$text =~ s/%([0-9a-f][0-9a-f])/pack("C",hex($1))/egi;
	($text);
}

sub urldecode_convertjp{
	my ($text, $code) = @_;
	chomp($text);

	$text =~ s/^([^<]*)</convert_jp(urldecode($1),$code)."<"/ge;
	$text =~ s/>([^<]*)$/">".convert_jp(urldecode($1),$code)/ge;
	$text =~ s/>([^<]*)</">".convert_jp(urldecode($1),$code)."<"/ge;
	$text =~ s/^([^<]*)$/convert_jp(urldecode($1),$code)/ge;
	($text . "\n");
}

$conv = 0;
$code = "";
while(<>){
	if(/<meta http-equiv="Content-Type" content="text\/html; charset=(.*)">/i){
		$code = $1;
	}
	
	$conv = 1 if /<h2><a NAME="req">/;
	$conv = 1 if /<h2><a NAME="ref">/;
	$conv = 1 if /<h2><a NAME="search.">/;
	if(/<hr>/){
		$conv = 0;
	}
	if($conv == 1){
		print urldecode_convertjp($_, $code);
	}else{
		print;
	}
}