version 1.3, 2006/05/18 02:17:30
|
version 1.4, 2011/07/04 09:25:10
|
Line 29
|
Line 29
|
################################################# |
################################################# |
use Fcntl qw(:flock); |
use Fcntl qw(:flock); |
|
|
my $oldfile="/home/httpd/perl/tmp/old_files.lst"; |
# |
|
# Since this is a standalone script that may not have access to the |
|
# LONCAPA module, it is going to be exempt form the 'tmp' dir centralization |
|
# effort. |
|
|
|
# This variable may require editing if you are not using standard loncapa |
|
# directory configurations: |
|
|
|
my $tempdir = '/home/httpd/perl/tmp' |
|
|
|
my $oldfile = $tempdir."/old_files.lst"; |
system ("find /home/httpd/lonUsers/ -name *.db -atime +120 > $oldfile"); |
system ("find /home/httpd/lonUsers/ -name *.db -atime +120 > $oldfile"); |
|
|
open(IN,$oldfile); |
open(IN,$oldfile); |