[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