From b21010c13d8725a69a152aeb920952f659749dd9 Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Mon, 21 Jan 2013 23:18:05 +0100 Subject: Added a service to delete expired pending entries. --- lib/Fripost/Schema.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lib/Fripost') diff --git a/lib/Fripost/Schema.pm b/lib/Fripost/Schema.pm index b5dcdb6..2e1cbef 100644 --- a/lib/Fripost/Schema.pm +++ b/lib/Fripost/Schema.pm @@ -52,7 +52,8 @@ sub SASLauth { $self->suffix( ldap_explode_dn(@{$cfg{ldap_suffix}}) ); $self->whoami( canonical_dn( {fvu => $l}, {fvd => $d}, @{$self->suffix} )); - $self->ldap( Net::LDAP::->new( $cfg{ldap_uri}, async => 0 )); + $self->ldap( Net::LDAP::->new( $cfg{ldap_uri} // 'ldap://127.0.0.1:389/' + , async => 0 )); my $callback; if ($cfg{ldap_SASL_mechanism} eq 'DIGEST-MD5') { @@ -106,7 +107,8 @@ sub auth { $self->whoami( canonical_dn( {fvu => $l}, {fvd => $d}, @{$self->suffix} )); } - $self->ldap( Net::LDAP::->new( $cfg{ldap_uri}, async => 0 ) ); + $self->ldap( Net::LDAP::->new( $cfg{ldap_uri} // 'ldap://127.0.0.1:389/' + , async => 0 ) ); my $mesg = $self->ldap->bind( $self->whoami, password => $pw ); if ($mesg->code) { -- cgit v1.2.3