From 58f1b9c4aa15f2eaed4c81959896d4e7c51cd58a Mon Sep 17 00:00:00 2001 From: Frank Dillon Date: Wed, 19 Jul 2006 16:23:19 +0000 Subject: [PATCH] added runOnLogin and runOnLogout functionality. --- lib/WebGUI/Auth.pm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/lib/WebGUI/Auth.pm b/lib/WebGUI/Auth.pm index ceb8fa08d..e23f4303f 100644 --- a/lib/WebGUI/Auth.pm +++ b/lib/WebGUI/Auth.pm @@ -578,6 +578,15 @@ sub login { $self->session->http->setRedirect($self->session->scratch->get("redirectAfterLogin")); $self->session->scratch->delete("redirectAfterLogin"); } + + my $command = $self->session->config->get("runOnLogin"); + if ($command ne "") { + WebGUI::Macro::process($self->session,\$command); + $self->session->errorHandler->warn("Executing $command"); + my $error = qx($command); + $self->session->errorHandler->warn($error) if $error; + } + return ""; } @@ -595,6 +604,15 @@ sub logout { $self->session->user({userId=>'1'}); my $u = WebGUI::User->new($self->session,1); $self->{user} = $u; + + my $command = $self->session->config->get("runOnLogout"); + if ($command ne "") { + WebGUI::Macro::process($self->session,\$command); + $self->session->errorHandler->warn("Executing $command"); + my $error = qx($command); + $self->session->errorHandler->warn($error) if $error; + } + return ""; }