![[BACK]](/icons/back.gif){kind=icon}
Return to archive_old_files.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / misc|
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"); |