remove some LF/CR
This commit is contained in:
parent
d056a32d57
commit
42282c8da7
|
@ -112,22 +112,17 @@ while (my $line = <>) {
|
|||
dolog($fh, "$sid to: $email, from: $from", $opt_l);
|
||||
$selvacation->bind_param(1, $email);
|
||||
$selvacation->execute;
|
||||
|
||||
if ($selvacation->rows == 1) {
|
||||
dolog($fh, "$sid found OOO for $email", $opt_l);
|
||||
my @vacation_msg = $selvacation->fetchrow_array;
|
||||
|
||||
$selcache->bind_param(1, $email);
|
||||
$selcache->bind_param(2, $from);
|
||||
$selcache->execute;
|
||||
|
||||
if ($selcache->rows == 0) {
|
||||
dolog($fh, "$sid sending OOO to $from", $opt_l);
|
||||
|
||||
$upcache->bind_param(1, $from);
|
||||
$upcache->bind_param(2, $email);
|
||||
$upcache->execute;
|
||||
|
||||
open my $fh_email, "|-", "/usr/sbin/sendmail -t";
|
||||
print $fh_email "From: $email\n";
|
||||
print $fh_email "To: $from\n";;
|
||||
|
|
Loading…
Reference in New Issue