From: Metabox <redacted>
Date: Mon, 22 Apr 2019 19:27:32 +0000 (+1000)
Subject: Added removeOldSessions
X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=8369ae020e71731705c76400ef7ba0f6281a15b6;p=LifeLog.git

Added removeOldSessions
---

diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index 41c0523..359e7ef 100755
--- a/htdocs/cgi-bin/login_ctr.cgi
+++ b/htdocs/cgi-bin/login_ctr.cgi
@@ -97,6 +97,9 @@ try{
 			print $cgi->header(-expires=>"0s", -charset=>"UTF-8", -cookie=>$cookie, -location=>"main.cgi");  
 			return 1;
 	}
+	else{
+		&removeOldSessions;
+	}
 return 0;
 }
  catch{	 	
@@ -222,4 +225,18 @@ sub populateConfig{
 				$st->execute(8,"SESSN_EXPR", $SESSN_EXPR);
 }
 
+
+sub removeOldSessions{
+	opendir(DIR, $LOG_PATH);
+	my @files = grep(/cgisess_*/,readdir(DIR));
+	closedir(DIR);
+	my $now = time - (24 * 60 * 60);
+	foreach my $file (@files) {
+		my $mod = (stat("$LOG_PATH/$file"))[9];
+		if($mod<$now){
+		    unlink "$LOG_PATH/$file";
+		}
+	}
+}
+
 ### CGI END
\ No newline at end of file