summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorchristopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-12 04:41:54 +0000
committerchristopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-12 04:41:54 +0000
commit402191681370f0059a0d58d95e799d2d53666fce (patch)
tree366f2da973ae80017f19f8b820a66ac0d60bd5d9
parent02eb9b3912676b47b1371c8c9f6d1faac944bd2b (diff)
common.pl exiting after Location header, adding tiny bit of debugging info for invalid redirects
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@519 4979c152-3d1c-0410-bac9-87ea11338e46
-rw-r--r--common.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/common.pl b/common.pl
index 54e45291..bc227697 100644
--- a/common.pl
+++ b/common.pl
@@ -31,10 +31,11 @@ sub redirect {
if (!$script){ # http redirect to login.pl if called w/no args
print "Location: login.pl\n";
+ print "Content-type: text/html\n\n";
exit;
}
- $form->error($locale->text("Invalid Redirect"))
+ $form->error($locale->text(__FILE__.':'.__LINE__.':'.$script.':'."Invalid Redirect"))
unless first {$_ eq $script} @{LedgerSMB::Sysconfig::scripts};
$oldform = $form;