Added removeOldSessions

diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index 41c0523d86230ffb1a1e4566ec111233aa1f6382..359e7efbd63f235106553928a677cbebe86f6031 100755 (executable)
--- 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