#-----------------------------------------------------------
# フォームデコード
#-----------------------------------------------------------
sub parse_form {
my $cgi = shift;
my %in;
foreach ( $cgi->param() ) {
my $val = $cgi->param($_);
if ($_ ne 'upfile') {
# 無効化
$val =~ s/&/&/g;
$val =~ s/</g;
$val =~ s/>/>/g;
$val =~ s/"/"/g;
$val =~ s/'/'/g;
# 改行変換
$val =~ s/\r\n/
/g;
$val =~ s/\n/
/g;
$val =~ s/\r/
/g;
}
$in{$_} = $val;
}
return %in;
}