sub getformdata {

	

	my ( $formbuf, $name, $value );

	

	if ( $ENV{'REQUEST_METHOD'} eq 'POST' ) {

		read ( STDIN, $formbuf[0], $ENV{'CONTENT_LENGTH'} );

	} else {

		$formbuf[0] = $ENV{'QUERY_STRING'};

	}

	

	if ( $formbuf[0] ) {

		

		&prterror ( '�Ăяo�������s���ł��B' ) 

		  if ( $ENV{'HTTP_HOST'} && ! ( $ENV{'HTTP_HOST'} =~ /$bbshost/i ) );

		

		$referer = $ENV{'HTTP_REFERER'};

		$referer =~ s/\+/ /g;

		$referer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack ( "C", hex ( $1 ) )/eg;

		

		foreach ( split ( /&/, $formbuf[0] ) ) {

			( $name, $value ) = split ( /=/ );



			$value =~ tr/+/ / ;

			$value =~ s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg;

			$value =~ s/~!/ ~!/g;



			$value =~ s/&/&/g;

			$value =~ s/"/"/g;

			$value =~ s/'/'/g;

			$value =~ s/</&lt;/g;

			$value =~ s/>/&gt;/g;



#			$value =~ s/\r\n/\r/g;

#			$value =~ s/\n/\r/g;

#			$value =~ s/\r$//;

			$value =~ s/\015\012/\015/g;

			$value =~ s/\012/\015/g;

			$value =~ s/\015$//g;



			$value =~ s/\,/\0/g;

			$FORM{$name} = $value;

		}

	}

}