From 39833937998c0553f091605486d28472126ba006 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 9 Oct 2007 18:13:09 +0000 Subject: More authentication fixes git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1728 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/Session/DB.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'LedgerSMB/Session') diff --git a/LedgerSMB/Session/DB.pm b/LedgerSMB/Session/DB.pm index f7f1e672..06385a8f 100755 --- a/LedgerSMB/Session/DB.pm +++ b/LedgerSMB/Session/DB.pm @@ -32,13 +32,13 @@ use MIME::Base64; use strict; sub session_check { - use Time::HiRes qw(gettimeofday); + my ( $cookie, $form ) = @_; + my $path = ($ENV{SCRIPT_NAME}); $path =~ s|[^/]*$||; - my ( $cookie, $form ) = @_; if ($cookie eq 'Login'){ return session_create($form); } -- cgit v1.2.3