From f725fa7712cbc53bc6bc9285ecfad3777f870a52 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 14 Aug 2008 15:25:48 +0000
Subject: Applying patch 2013331 from Jeffk on configurable cookie names

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2261 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/login.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scripts')

diff --git a/scripts/login.pl b/scripts/login.pl
index 02a188cf..ea0cf652 100644
--- a/scripts/login.pl
+++ b/scripts/login.pl
@@ -47,7 +47,7 @@ sub authenticate {
     if ($request->{dbh} && $request->{next}) {
         
         print "Content-Type: text/html\n";
-        print "Set-Cookie: LedgerSMB=Login; path=$path\n";
+        print "Set-Cookie: ${LedgerSMB::Sysconfig::cookie_name}=Login; path=$path\n";
 	    print "Status: 302 Found\n";
 	    print "Location: ".$path.$request->{next}."\n";
 	    print "\n";
@@ -55,7 +55,7 @@ sub authenticate {
     }
     elsif ($request->{dbh} || $request->{log_out}){
         print "Content-Type: text/html\n";
-        print "Set-Cookie: LedgerSMB=Login; path=$path\n";
+        print "Set-Cookie: ${LedgerSMB::Sysconfig::cookie_name}=Login; path=$path\n";
 	    print "Status: 200 Success\n\n";
         if ($request->{log_out}){
             exit;
-- 
cgit v1.2.3