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

1 files changed, 2 insertions, 2 deletions

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;