[LON-CAPA-cvs] cvs: loncom /misc cleanup_file_caches.pl

[banghart]

banghart		Fri Apr 20 18:00:40 2007 EDT

  Modified files:              
    /loncom/misc	cleanup_file_caches.pl 
  Log:
  	Add lonZipDir to directories to be cleaned up.
  	Read all directories to be cleaned from Configuration.
  
  
Index: loncom/misc/cleanup_file_caches.pl
diff -u loncom/misc/cleanup_file_caches.pl:1.4 loncom/misc/cleanup_file_caches.pl:1.5
--- loncom/misc/cleanup_file_caches.pl:1.4	Wed Dec 22 14:11:08 2004
+++ loncom/misc/cleanup_file_caches.pl	Fri Apr 20 18:00:40 2007
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: cleanup_file_caches.pl,v 1.4 2004/12/22 19:11:08 albertel Exp $
+# $Id: cleanup_file_caches.pl,v 1.5 2007/04/20 22:00:40 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,17 +32,17 @@
 =head1 NAME
 
 cleanup_file_caches.pl - Remove temporary files from the LON-CAPA print
-spool and userfiles cache.
+spool, the multidownload zip spool, and userfiles cache.
 
 =head1 SYNOPSIS
 
-cleanup_file_caches.pl deletes files from /home/httpd/prtspool ant
-/home/httpd/html/userfiles that have not been accessed in 24 hours.
+cleanup_file_caches.pl deletes files from lonPrtDir, lonZipDir and
+lonDocRoot/userfiles that have not been accessed in 24 hours.
 
 =head1 DESCRIPTION
 
-cleanup_file_caches.pl examines each file in /home/httpd/prtspool and
-/home/httpd/html/userfiles and checks its last access time.  Those
+cleanup_file_caches.pl examines each file in lonPrtDir, lonZipDir and
+lonDocRoot/userfiles and checks its last access time.  Those
 files which have not been accessed in 24 hours are unlinked.
 
 =cut
@@ -54,18 +54,20 @@
 use File::Find;
 use File::stat;
 use LONCAPA::Configuration;
-
-my $conf=LONCAPA::Configuration::read_conf('loncapa.conf');
+my $conf = LONCAPA::Configuration::read_conf('loncapa.conf');
 my $killtime = $conf->{'lonExpire'};
-
+my $prt_spool_dir = $conf->{'lonPrtDir'};
+my $zip_spool_dir = $conf->{'lonZipDir'};
+my $userfile_dir = $conf->{'lonDocRoot'}.'/userfiles';
 sub kill_if_old {
     my $filename = $File::Find::name;
     return if (! -f $filename); # We only want files
-    my $inode =stat($filename);
+    my $inode = stat($filename);
     if ((time-$inode->atime) > $killtime) {
         unlink($filename);
     }
 }
 
-find (\&kill_if_old,'/home/httpd/prtspool');
-find (\&kill_if_old,'/home/httpd/html/userfiles');
+find (\&kill_if_old,$prt_spool_dir);
+find (\&kill_if_old,$zip_spool_dir);
+find (\&kill_if_old,$userfile_dir);