aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Fripost
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@fripost.org>2013-01-21 23:18:05 +0100
committerGuilhem Moulin <guilhem.moulin@fripost.org>2013-01-21 23:18:05 +0100
commitb21010c13d8725a69a152aeb920952f659749dd9 (patch)
tree6a6b99e8e7dc8996f96e4cbdb18b5f4deb807f82 /lib/Fripost
parent6ebe4849dd75ec01197bf465ea20b6aa74e770a1 (diff)
Added a service to delete expired pending entries.
Diffstat (limited to 'lib/Fripost')
-rw-r--r--lib/Fripost/Schema.pm6
1 files changed, 4 insertions, 2 deletions
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) {