sub decode{
	my $method = $ENV{'REQUEST_METHOD'};
	my $buffer_length = $ENV{'CONTENT_LENGTH'};
	
	if($method eq 'POST'){
		#if($buffer_length >= $comment_length){&message("文字数が多すぎますぜっ！");}
		read(STDIN,$buffer,$buffer_length);
	}else{
		$buffer = $ENV{'QUERY_STRING'};
	}
	
	my @data = split(/&/,$buffer);
	
	foreach $line(@data){
		my ($from_form,$value) = split(/=/,$line);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		
		&jcode'convert(*value,'sjis');
		
		$value =~ s/&/&/g;
		$value =~ s/</&lt;/g;
		$value =~ s/>/&gt;/g;
		$value =~ s/<>/&lt;&gt;/g;
		
		$value =~ s/\r\n/<br>/g;
		$value =~ s/\r/<br>/g;
		$value =~ s/\n/<br>/g;
		
		$FORM{$from_form} = $value;
	}
	
	$name = $FORM{name};
	$pass = $FORM{pass};
}