diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-12 04:31:33 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-12 04:31:33 +0000 |
commit | f6009d77ba588f9b8942cb559871e1ac994967da (patch) | |
tree | 69cfee058db27f1b4bfcfefe490507197f8cb824 /common.pl | |
parent | 3931e9886cc78c0790a02b784b8058a7086dfd0f (diff) |
Fixed invalid redirect on logout
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@517 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'common.pl')
-rw-r--r-- | common.pl | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -29,6 +29,10 @@ sub redirect { my @common_attrs = qw(dbh login favicon stylesheet titlebar password); + if (!$script){ # http redirect to login.pl if called w/no args + print "Location: login.pl\n"; + } + $form->error($locale->text("Invalid Redirect")) unless first {$_ eq $script} @{LedgerSMB::Sysconfig::scripts}; |