#!/usr/bin/perl -w

use strict;
use CGI qw(-oldstyle_urls :standard);
use CGI::Carp qw(fatalsToBrowser);
use File::Find;
use File::stat;


my $mytime=(time);
my $file_stat;

my $all_session = "../sessions";

print header();

print qq(<br><br><table width="600" border="1" bgcolor="#808080" cellpadding="2" cellspacing="0">
         <tr><form action="wacko_del_old_files.pl" method="post" style="margin: 0px; padding: 0px;">
           <td align="left" colspan=\"2\">&nbsp;Sessions.</td>
         </tr>
         <tr><td align="left" colspan=\"2\">&nbsp;</td></tr>);
         
opendir(DIR, $all_session) or die "Couldn't open directory, $!";
  
  while (my $sessions = readdir DIR) {
     
      # Use a regular expression to ignore files beginning with a period
      next if ($sessions =~ m/^\./);
      
      my $age = (time() - (stat("$all_session/$sessions"))[10]);
          print "<tr>
               <td align=\"left\">&nbsp;$sessions - age= $age</td>
               <td align=\"left\">&nbsp;<input type=\"checkbox\" name=\"del_sessions\" value=\"$sessions\">&nbsp;</td>
             </tr>";
       

    }
closedir DIR;

print "<tr>
           <td colspan=\"2\" align=\"right\">&nbsp;<td><input type=\"submit\" value=\"Delete\"></td></td>
         </tr></form>
       </table>";