textareaに入力した改行を自動送信メールは無効にしたい
STWさん (2021-05-21 11:03:28) test-mori.stworks.co.jp/mailform/
core.cgiのsub _POSTという関数の中に
$value =~ s///g;
がみあたりません。
試しに下記に $value =~ s/¥n//g; を追加したりしてみましたが、改行されてしまいました。
--------------------
sub _POST {
read(STDIN, $buffer, $ENV{’CONTENT_LENGTH’});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<br ¥/>/¥n/ig;
$value =~ s///g;
$value =~ s///g;
&_CheckProcess($name,$value);
if($_POST{$name} ne $null){
$_POST{$name} .= "¥n${value}";
}
else {
$_POST{$name} = $value;
push @ELEMENTS,$name;
}
}
&_POST_REBUILD;
}
--------------
すべての改行が取り除かれますが、取り除いては困るものも含めて取り除かれてしまう可能性もございます・・・。
とのことなので、できたとしても適切ではないので断念します。
ご教授ありがとうございました！