diff --git a/mailboxes/mailboxes-lib.pl b/mailboxes/mailboxes-lib.pl index 2cd1af7cb..36f5111cf 100755 --- a/mailboxes/mailboxes-lib.pl +++ b/mailboxes/mailboxes-lib.pl @@ -28,17 +28,20 @@ if ($config{'mail_system'} == 3) { &save_module_config() if ($config{'mail_system'} != 3); } -# send_mail_program(from, to) +# send_mail_program(from, &dests) # Returns the command for injecting email, based on the mail system in use sub send_mail_program { +my ($from, $dests) = @_; +my $qdests = join(" ", map { quotemeta($_) } @$dests); + if ($config{'mail_system'} == 1 || $config{'mail_system'} == 0) { # Use sendmail executable, or postfix wrapper local %sconfig = &foreign_check("sendmail") && $config{'mail_system'} == 1 ? &foreign_config("sendmail") : ( ); local $cmd = &has_command($sconfig{'sendmail_path'} || "sendmail"); - return "$cmd -t -f".quotemeta($_[0]) if ($cmd); + return "$cmd -f".quotemeta($_[0])." ".$qdests if ($cmd); } elsif ($config{'mail_system'} == 2) { # Use qmail injector @@ -51,7 +54,7 @@ elsif ($config{'mail_system'} == 2) { else { # Fallback - use sendmail command local $cmd = &has_command("sendmail"); - return "$cmd -t -f".quotemeta($_[0]) if ($cmd); + return "$cmd -f".quotemeta($_[0])." ".$qdests if ($cmd); } return undef; }