[interchange] Add support for prelogout_action to UserDB logout
Jon Jensen <[email protected]> Sat, 24 Dec 2016 14:58:12 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 02467791bf3ed83551ca9daf919f81115373b296 Author: Jon Jensen <[email protected]> Date: Thu Dec 22 21:33:39 2016 -0700 Add support for prelogout_action to UserDB logout lib/Vend/UserDB.pm | 9 +++++++++ 1 files changed, 9 insertions(+), 0 deletions(-) --- diff --git a/lib/Vend/UserDB.pm b/lib/Vend/UserDB.pm index f8dfd59..50e1529 100644 --- a/lib/Vend/UserDB.pm +++ b/lib/Vend/UserDB.pm @@ -1970,6 +1970,15 @@ sub logout { my $opt = $self->{OPTIONS}; + if (my $macros = $opt->{prelogout_action}) { + eval { + Vend::Dispatch::run_macro $macros; + }; + if ($@) { + logError("UserDB prelogout_action execution error: %s\n", $@); + } + } + if( is_yes($opt->{clear}) ) { $self->clear_values(); }