[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.2 and 1.3

version 1.2, 2002/11/21 19:41:54 version 1.3, 2004/05/12 19:28:55
Line 31 Line 31
   
 =head1 NAME  =head1 NAME
   
 cleanup_prtspool.pl - Remove temporary files from the LON-CAPA print spool.  cleanup_file_caches.pl - Remove temporary files from the LON-CAPA print
   spool and userfiles cache.
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 cleanup_prtspool.pl deletes files from /home/httpd/prtspool that have not  cleanup_file_caches.pl deletes files from /home/httpd/prtspool ant
 been accessed in 24 hours.  /home/httpd/html/userfiles that have not been accessed in 24 hours.
   
 =head1 DESCRIPTION  =head1 DESCRIPTION
   
 cleanup_prtspool.pl examines each file in /home/httpd/prtspool and checks  cleanup_file_caches.pl examines each file in /home/httpd/prtspool and
 its last access time.  Those files which have not been accessed in 24 hours  /home/httpd/html/userfiles and checks its last access time.  Those
 are unlinked.  files which have not been accessed in 24 hours are unlinked.
   
 =cut  =cut
   
Line 52  use strict; Line 53  use strict;
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use File::Find;  use File::Find;
 use File::stat;  use File::stat;
   use LONCAPA::Configuration;
   
 my $help = 0;  my $conf=LONCAPA::Configuration::read_conf('loncapa.conf');
 my $killtime = time - 24 * 60 * 60;  my $killtime = $conf->{'lonExpire'};
   
 sub kill_if_old {  sub kill_if_old {
     my $filename = $File::Find::name;      my $filename = $File::Find::name;
Line 66  sub kill_if_old { Line 68  sub kill_if_old {
 }  }
   
 find (\&kill_if_old,'/home/httpd/prtspool');  find (\&kill_if_old,'/home/httpd/prtspool');
   find (\&kill_if_old,'/home/httpd/html/userfiles');
Removed from v.1.2  
changed lines
  Added in v.1.3

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