1 files changed, 4 insertions, 0 deletions
diff --git a/common.pl b/common.pl
index b4b524b5..efa872b4 100644
--- a/common.pl
+++ b/common.pl
@@ -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};