From 2afbf68b5f7a0960de17393540ba157ca786e7b4 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Fri, 11 Jul 2014 04:44:10 +0200
Subject: wibble

---
 roles/MX/files/usr/local/sbin/reserved-alias.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'roles/MX/files/usr')

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>);
-- 
cgit v1.2.3