diff options
| -rw-r--r-- | lib/Fripost/Session.pm | 6 | ||||
| -rw-r--r-- | run.psgi | 1 |
2 files changed, 6 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; @@ -280,6 +280,7 @@ $builder->mount($WELCOME_PAGE => sub($) { die "Internal error: ", $@; } else { # something went wrong... + $tmpl_params{AUTHZID} = "oops"; } render( $req, "overview.html", %tmpl_params ); |