loncom/misc/archive_old_files.pl - diff

Return to archive_old_files.pl CVS log

Up to [LON-CAPA] / loncom / misc

-version 1.3, 2006/05/18 02:17:30
+version 1.4, 2011/07/04 09:25:10
  Line 29
  #################################################
  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");
  open(IN,$oldfile);