[interchange] Add support for prelogout_action to UserDB logout
Jon Jensen
interchange-cvs at icdevgroup.org
Sat Dec 24 14:58:12 UTC 2016
commit 02467791bf3ed83551ca9daf919f81115373b296
Author: Jon Jensen <jon at endpoint.com>
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();
}
More information about the interchange-cvs
mailing list