SF.net SVN: ledger-smb: [519] trunk/common.pl

[..hidden..]

Revision: 519
          http://svn.sourceforge.net/ledger-smb/?rev=519&view=rev
Author:   christopherm
Date:     2006-11-11 20:41:54 -0800 (Sat, 11 Nov 2006)

Log Message:
-----------
common.pl exiting after Location header, adding tiny bit of debugging info for invalid redirects

Modified Paths:
--------------
    trunk/common.pl

Modified: trunk/common.pl
===================================================================
--- trunk/common.pl	2006-11-12 04:33:16 UTC (rev 518)
+++ trunk/common.pl	2006-11-12 04:41:54 UTC (rev 519)
@@ -31,10 +31,11 @@
 
 	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;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.