From ec25aad42de011f133fb78efa9fba37c96165ae9 Mon Sep 17 00:00:00 2001
From: Will Budic <vilijanc@gmail.com>
Date: Wed, 8 Jan 2020 10:13:49 +1100
Subject: [PATCH] removeOldSessions moved to Settings module.

---
 htdocs/cgi-bin/login_ctr.cgi | 19 +++----------------
 1 file changed, 3 insertions(+), 16 deletions(-)

diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index e0750e0..dca3874 100755
--- a/htdocs/cgi-bin/login_ctr.cgi
+++ b/htdocs/cgi-bin/login_ctr.cgi
@@ -114,12 +114,12 @@ try{
     else{
         $alias = $passw = "";
     }  
-    &removeOldSessions;  #and prompt for login returning 0
+    &Settings::removeOldSessions;  #and prompt for login returning 0
 return 0;
 }
  catch{
         print $cgi->header;
-        print "<font color=red><b>SERVER ERROR</b></font> dump ->". $session->dump();
+        print "<font color=red><b>SERVER ERROR processSubmit()</b></font>: $_ dump ->". $session->dump();
         print $cgi->end_html;
  }
 }
@@ -151,7 +151,7 @@ try{
                     if(@set && $set[0]=="1"){
                          $alias = $cre[0];
                          $passw = $cre[1];
-                         &removeOldSessions;
+                         &Settings::removeOldSessions;
                     }
              $db->disconnect();
         }
@@ -527,19 +527,6 @@ return "SELECT name FROM sqlite_master WHERE type='view' AND name='$name';"
 }
 
 
-sub removeOldSessions {
-    opendir(DIR, &Settings::logPath);
-    my @files = grep(/cgisess_*/,readdir(DIR));
-    closedir(DIR);
-    my $now = time - (24 * 60 * 60);
-    foreach my $file (@files) {
-        my $mod = (stat(&Settings::logPath,$file))[9];
-        if($mod<$now){
-            unlink &Settings::logPath.$file;
-        }
-    }
-}
-
 sub logout{
 
     $session->delete();
-- 
2.34.1