added removeOldSessions subrotine.

diff --git a/htdocs/cgi-bin/system/modules/Settings.pm b/htdocs/cgi-bin/system/modules/Settings.pm
index ee87226bba8ad63a32dcb0b73431fec9edf5118c..ec4b6c5a3e3672a698ff2258f75d6791ac7ae1b4 100644 (file)
--- a/htdocs/cgi-bin/system/modules/Settings.pm
+++ b/htdocs/cgi-bin/system/modules/Settings.pm
@@ -170,4 +170,17 @@ sub toLog {
     # }
 }
 
+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";
+        }
+    }
+}
+
 1;
\ No newline at end of file