[BACK]Return to cleanup_file_caches.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / misc

Diff for /loncom/misc/cleanup_file_caches.pl between versions 1.3 and 1.5

version 1.3, 2004/05/12 19:28:55 version 1.5, 2007/04/20 22:00:40
Line 32 Line 32
 =head1 NAME  =head1 NAME
   
 cleanup_file_caches.pl - Remove temporary files from the LON-CAPA print  cleanup_file_caches.pl - Remove temporary files from the LON-CAPA print
 spool and userfiles cache.  spool, the multidownload zip spool, and userfiles cache.
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 cleanup_file_caches.pl deletes files from /home/httpd/prtspool ant  cleanup_file_caches.pl deletes files from lonPrtDir, lonZipDir and
 /home/httpd/html/userfiles that have not been accessed in 24 hours.  lonDocRoot/userfiles that have not been accessed in 24 hours.
   
 =head1 DESCRIPTION  =head1 DESCRIPTION
   
 cleanup_file_caches.pl examines each file in /home/httpd/prtspool and  cleanup_file_caches.pl examines each file in lonPrtDir, lonZipDir and
 /home/httpd/html/userfiles and checks its last access time.  Those  lonDocRoot/userfiles and checks its last access time.  Those
 files which have not been accessed in 24 hours are unlinked.  files which have not been accessed in 24 hours are unlinked.
   
 =cut  =cut
Line 54  use lib '/home/httpd/lib/perl/'; Line 54  use lib '/home/httpd/lib/perl/';
 use File::Find;  use File::Find;
 use File::stat;  use File::stat;
 use LONCAPA::Configuration;  use LONCAPA::Configuration;
   my $conf = LONCAPA::Configuration::read_conf('loncapa.conf');
 my $conf=LONCAPA::Configuration::read_conf('loncapa.conf');  
 my $killtime = $conf->{'lonExpire'};  my $killtime = $conf->{'lonExpire'};
   my $prt_spool_dir = $conf->{'lonPrtDir'};
   my $zip_spool_dir = $conf->{'lonZipDir'};
   my $userfile_dir = $conf->{'lonDocRoot'}.'/userfiles';
 sub kill_if_old {  sub kill_if_old {
     my $filename = $File::Find::name;      my $filename = $File::Find::name;
     return if (! -f $filename); # We only want files      return if (! -f $filename); # We only want files
     my $inode =stat($filename);      my $inode = stat($filename);
     if ($inode->atime < $killtime) {      if ((time-$inode->atime) > $killtime) {
         unlink($filename);          unlink($filename);
     }      }
 }  }
   
 find (\&kill_if_old,'/home/httpd/prtspool');  find (\&kill_if_old,$prt_spool_dir);
 find (\&kill_if_old,'/home/httpd/html/userfiles');  find (\&kill_if_old,$zip_spool_dir);
   find (\&kill_if_old,$userfile_dir);
Removed from v.1.3  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>