diff options
Diffstat (limited to 'lib/Fripost')
-rw-r--r-- | lib/Fripost/Session.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Fripost/Session.pm b/lib/Fripost/Session.pm index 8cf6405..4408cf8 100644 --- a/lib/Fripost/Session.pm +++ b/lib/Fripost/Session.pm @@ -103,9 +103,10 @@ sub authenticate($%) { return $fp; } -# authenticate(OPTION => VALUE, ..) +# destroy(OPTION => VALUE, ..) # Create a new Fripost object, authenticate (using SASL proxy # authorization), and delete the entry on the LDAP backend. +# The object shouldn't be used after using this method. sub destroy($%) { my $self = shift; my %conf = @_; @@ -117,6 +118,9 @@ sub destroy($%) { my $r = $fp->{_ldap}->delete($dn); $fp->croak("LDAP error code %i: %s\n", $r->code, $r->error) unless $r->code == LDAP_SUCCESS; + + # forget credentials in the object (now a blessed empty hash reference) + undef %$self; } 1; |