From: Kilian Saffran <ksaffran@dks.lu>
Date: Mon, 26 Oct 2020 05:51:30 +0000 (+0100)
Subject: v20201024
X-Git-Tag: 1.0.15~4
X-Git-Url: http://cloud.dks.lu/git/?a=commitdiff_plain;h=2118c625b52f4f98165801ba01f298ed28ea2b4c;p=pot_lu.git

v20201024
---

diff --git a/app/lib/dksdb.pm b/app/lib/dksdb.pm
index 9e9317dd..60cf28bf 100644
--- a/app/lib/dksdb.pm
+++ b/app/lib/dksdb.pm
@@ -20,7 +20,7 @@ sub new {
     my $class = shift;
     my $p = shift;
     my $self = bless {}, $class;
-    $self->{debug} = 1;
+    $self->{debug} = 0;
     $self->{dbh} = DBI->connect($p->{dsn},$p->{dbuser},$p->{dbpassword},{PrintError=>1,RaiseError=>1,AutoCommit=>1})  or return "query Connection Error!".$!;
     return $self;
 }
diff --git a/app/lib/session.pm b/app/lib/session.pm
index f9470518..f2587f33 100644
--- a/app/lib/session.pm
+++ b/app/lib/session.pm
@@ -209,16 +209,12 @@ sub getsession($){
   my $sql = "select se.id as idsession,us.id,us.username,ugrp.id as usergroup,us.id_staffgroups as staffgroups,se.sessiondata from sessions se 
 join users us on (us.id=se.id_user)
 left join usergroups ugrp on (ugrp.id=us.id_usergroup)
-where se.id= '".$self->{db}->securetext($sid)."' and se.remote_addr= '".$ENV{REMOTE_ADDR}."' and se.user_agent= '".$ENV{HTTP_USER_AGENT}."' and 
+where se.id= '".$self->{db}->securetext($sid)."' and se.remote_addr= '".$ENV{REMOTE_ADDR}."' and se.user_agent LIKE 'POT/%/%/%' and 
 us.isblocked is null group by se.id,us.id,ugrp.id;";
   my $res= $self->{db}->querysorted($sql);
-  #print STDERR "SESSION:\n".$sql."\n";
-  #print STDERR Dumper($res)."\n";
+  #print STDERR "AFTER  REQ:\n".$sql."\n";
+  #print STDERR "SESSIONDATA: ".Dumper($res)."\n";
   my $ret = undef;
-  # open FILE,">>tmp/sql.log";
-  # print FILE "GET DB Session\n";
-  # print FILE Dumper($res->{0});
-  # close(FILE);
   if (keys(%{$res}) > 0){
  
     return $res->{0};