Mailing List Archive

commit 02467791bf3ed83551ca9daf919f81115373b296
Author: Jon Jensen <jon@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();
}

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs