--- loncom/misc/archive_old_files.pl	2006/05/18 02:17:30	1.3
+++ loncom/misc/archive_old_files.pl	2011/07/04 09:25:10	1.4
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # zip all .db and .hist files that have not been accessed in 120 days
 #
-# $Id: archive_old_files.pl,v 1.3 2006/05/18 02:17:30 www Exp $
+# $Id: archive_old_files.pl,v 1.4 2011/07/04 09:25:10 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -29,7 +29,17 @@
 #################################################
 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);