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'); |