<%perl> eval { my $msg = $context->{client}->collect(); die i18nGettext("I18N_OPENXPKI_CLIENT_HTML_MASON_LOGOUT_OK") if (not $msg); use Data::Dumper; print Dumper ($msg); }; if (! $EVAL_ERROR) { ## HORROR: the session is still open !!!

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_LOGOUT_FAILED_TITLE') %>

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_LOGOUT_FAILED_DESCRIPTION') %>

% } else {

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_LOGOUT_SUCCESS_TITLE') %>

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_LOGOUT_SUCCESS_DESCRIPTION') %>

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_LOGOUT_NEW_LOGIN') %>

% } % undef $context; # cleanup the context <%init> ## this is so unclean that Mason cannot handle it via syshandler use English; ## kill the session on the server $context->{client}->send_service_msg ("LOGOUT"); ## erase the session from the session cache delete $session_cache{$context->{"session_id"}}; ## make the session unavailable in the context delete $context->{"session_id"}; ## the connection should now be closed by the server