diff options
author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-10 16:32:22 +0000 |
---|---|---|
committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-10 16:32:22 +0000 |
commit | 06a4a4f4b70916f37be7214734d1147afd1f541e (patch) | |
tree | a3930a0896d9dcd9545a7247f51777443d2dd6f0 | |
parent | 22533f8b7e13efde59338f08267c723473b70257 (diff) |
Explicitly set the path on the LSMB cookie -- fixes Safari login
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1732 4979c152-3d1c-0410-bac9-87ea11338e46
-rw-r--r-- | scripts/login.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/scripts/login.pl b/scripts/login.pl index 31d2922f..30a6eed3 100644 --- a/scripts/login.pl +++ b/scripts/login.pl @@ -25,12 +25,15 @@ sub __default { sub authenticate { my ($request) = @_; if (!$request->{dbh}){ - $request->{company} = 'lsmb13'; + $request->{company} = 'ledgersmb-taxtest'; $request->_db_init; } + my $path = $ENV{SCRIPT_NAME}; + $path =~ s|[^/]*$||; if ($request->{dbh} || $request->{log_out}){ print "Content-Type: text/html\n"; - print "Set-Cookie: LedgerSMB=Login;\n"; +## print "Set-Cookie: LedgerSMB=Login;\n"; + print "Set-Cookie: LedgerSMB=Login; path=$path\n"; print "Status: 200 Success\n\n"; if ($request->{log_out}){ exit; |