summaryrefslogtreecommitdiffstats
path: root/roles/MX/files/usr
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2014-07-11 04:44:10 +0200
committerGuilhem Moulin <guilhem@fripost.org>2015-06-07 02:52:59 +0200
commit2afbf68b5f7a0960de17393540ba157ca786e7b4 (patch)
tree004d95aaa59ba051442466b821642a544c3919bf /roles/MX/files/usr
parentfcc307aafeb8438de12f339af0f5c83ab647c8a9 (diff)
wibble
Diffstat (limited to 'roles/MX/files/usr')
-rwxr-xr-xroles/MX/files/usr/local/sbin/reserved-alias.pl6
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>);