diff options
| -rwxr-xr-x | roles/MX/files/usr/local/sbin/reserved-alias.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/roles/MX/files/usr/local/sbin/reserved-alias.pl b/roles/MX/files/usr/local/sbin/reserved-alias.pl index 517e51b..2e61ef6 100755 --- a/roles/MX/files/usr/local/sbin/reserved-alias.pl +++ b/roles/MX/files/usr/local/sbin/reserved-alias.pl @@ -61,8 +61,8 @@ die "Error: Aborted delivery to '$orig' in attempt to break an alias expansion l if (defined $domain) { # Look for the domain owner or postmaster - my $ldap = Net::LDAPI->new(); - $ldap->bind( sasl => Authen::SASL->new(mechanism => 'EXTERNAL') ) + my $ldap = Net::LDAPI::->new(); + $ldap->bind( undef, sasl => Authen::SASL::->new(mechanism => 'EXTERNAL') ) or die "Error: Couldn't bind"; my @attrs = ( 'fripostPostmaster', 'fripostOwner' ); @@ -104,7 +104,7 @@ if (defined $domain) { $ldap->unbind; } -my $smtp = Net::SMTP->new( 'localhost:25', Timeout => 1200 ); +my $smtp = Net::SMTP::->new( 'localhost:25', Timeout => 1200 ); $smtp->mail($sender); $smtp->to(@recipients, { Notify => ['FAILURE','DELAY'], SkipBad => 1 }); $smtp->data(<STDIN>); |