287
$var =~ s/\>/>/g;
287
$var =~ s/\>/>/g;
288
$var =~ s/\"/\"/g;
288
$var =~ s/\"/\"/g;
289
$var =~ s/@/@/g;
289
$var =~ s/@/@/g;
290
# Also remove undesired newlines and consecutive spaces.
291
$var =~ s/[\n\s]+/ /gms;
290
return $var;
292
return $var;
312
my $reply = reply(to => $input_email, top_post => 1, body => "$msg\n");
314
my $reply = reply(to => $input_email, top_post => 1, body => "$msg\n");
313
MessageToMTA($reply->as_string);
315
MessageToMTA($reply->as_string);
315
print STDERR $msg;
317
print STDERR "$msg\n";
316
# We exit with a successful value, because we don't want the MTA
318
# We exit with a successful value, because we don't want the MTA
317
# to *also* send a failure notice.
319
# to *also* send a failure notice.