Return to archive_old_files.pl CVS log | Up to [LON-CAPA] / loncom / misc |
version 1.1, 2006/05/13 01:31:24 | version 1.2, 2006/05/13 01:35:44 |
---|---|
Line 34 system ("find /home/httpd/lonUsers/ -nam | Line 34 system ("find /home/httpd/lonUsers/ -nam |
open(IN,$oldfile); | open(IN,$oldfile); |
while (my $dbfile=<IN>) { | while (my $dbfile=<IN>) { |
chomp($dbfile); | chomp($dbfile); |
if (-e "$dbfile.lock") { next; } | |
open(TOUCH,">>$dbfile.lock"); | open(TOUCH,">>$dbfile.lock"); |
close(TOUCH); | close(TOUCH); |
system("gzip $dbfile"); | system("gzip $dbfile"); |