--- loncom/misc/archive_old_files.pl	2006/05/13 01:31:24	1.1
+++ loncom/misc/archive_old_files.pl	2006/05/13 01:35:44	1.2
@@ -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.1 2006/05/13 01:31:24 www Exp $
+# $Id: archive_old_files.pl,v 1.2 2006/05/13 01:35:44 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,6 +34,7 @@ system ("find /home/httpd/lonUsers/ -nam
 open(IN,$oldfile);
 while (my $dbfile=<IN>) {
     chomp($dbfile);
+    if (-e "$dbfile.lock") { next; }
     open(TOUCH,">>$dbfile.lock");
     close(TOUCH);
     system("gzip $dbfile");