From 402191681370f0059a0d58d95e799d2d53666fce Mon Sep 17 00:00:00 2001 From: christopherm Date: Sun, 12 Nov 2006 04:41:54 +0000 Subject: 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 --- common.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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; -- cgit v1.2.3