File:
[LON-CAPA] /
loncom /
misc /
cleanup_file_caches.pl
Revision
1.4:
download - view:
text,
annotated -
select for diffs
Wed Dec 22 19:11:08 2004 UTC (19 years, 9 months ago) by
albertel
Branches:
MAIN
CVS tags:
version_2_3_X,
version_2_3_2,
version_2_3_1,
version_2_3_0,
version_2_2_X,
version_2_2_99_1,
version_2_2_99_0,
version_2_2_2,
version_2_2_1,
version_2_2_0,
version_2_1_X,
version_2_1_99_3,
version_2_1_99_2,
version_2_1_99_1,
version_2_1_99_0,
version_2_1_3,
version_2_1_2,
version_2_1_1,
version_2_1_0,
version_2_0_X,
version_2_0_99_1,
version_2_0_2,
version_2_0_1,
version_2_0_0,
version_1_99_3,
version_1_99_2,
version_1_99_1_tmcc,
version_1_99_1,
version_1_99_0_tmcc,
version_1_99_0,
version_1_3_X,
version_1_3_3,
version_1_3_2,
version_1_3_1,
version_1_3_0,
HEAD
- how about we actually do somethign about cleaning up
1: #!/usr/bin/perl
2: # The LearningOnline Network
3: #
4: # $Id: cleanup_file_caches.pl,v 1.4 2004/12/22 19:11:08 albertel Exp $
5: #
6: # Copyright Michigan State University Board of Trustees
7: #
8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
9: #
10: # LON-CAPA is free software; you can redistribute it and/or modify
11: # it under the terms of the GNU General Public License as published by
12: # the Free Software Foundation; either version 2 of the License, or
13: # (at your option) any later version.
14: #
15: # LON-CAPA is distributed in the hope that it will be useful,
16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18: # GNU General Public License for more details.
19: #
20: # You should have received a copy of the GNU General Public License
21: # along with LON-CAPA; if not, write to the Free Software
22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23: #
24: # /home/httpd/html/adm/gpl.txt
25: #
26: # http://www.lon-capa.org/
27: #
28: #################################################
29:
30: =pod
31:
32: =head1 NAME
33:
34: cleanup_file_caches.pl - Remove temporary files from the LON-CAPA print
35: spool and userfiles cache.
36:
37: =head1 SYNOPSIS
38:
39: cleanup_file_caches.pl deletes files from /home/httpd/prtspool ant
40: /home/httpd/html/userfiles that have not been accessed in 24 hours.
41:
42: =head1 DESCRIPTION
43:
44: cleanup_file_caches.pl examines each file in /home/httpd/prtspool and
45: /home/httpd/html/userfiles and checks its last access time. Those
46: files which have not been accessed in 24 hours are unlinked.
47:
48: =cut
49:
50: #################################################
51:
52: use strict;
53: use lib '/home/httpd/lib/perl/';
54: use File::Find;
55: use File::stat;
56: use LONCAPA::Configuration;
57:
58: my $conf=LONCAPA::Configuration::read_conf('loncapa.conf');
59: my $killtime = $conf->{'lonExpire'};
60:
61: sub kill_if_old {
62: my $filename = $File::Find::name;
63: return if (! -f $filename); # We only want files
64: my $inode =stat($filename);
65: if ((time-$inode->atime) > $killtime) {
66: unlink($filename);
67: }
68: }
69:
70: find (\&kill_if_old,'/home/httpd/prtspool');
71: find (\&kill_if_old,'/home/httpd/html/userfiles');
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>