![]() ![]() | ![]() |
- making the updating display look prettier
1: <!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" 2: "http://lpml.sourceforge.net/DTD/piml.dtd"> 3: <!-- accesscount_seed.piml --> 4: <!-- Matthew Hall --> 5: 6: <!-- $Id: accesscount_seed.piml,v 1.3 2005/05/14 19:37:47 albertel Exp $ --> 7: 8: <!-- 9: 10: This file is part of the LearningOnline Network with CAPA (LON-CAPA). 11: 12: LON-CAPA is free software; you can redistribute it and/or modify 13: it under the terms of the GNU General Public License as published by 14: the Free Software Foundation; either version 2 of the License, or 15: (at your option) any later version. 16: 17: LON-CAPA is distributed in the hope that it will be useful, 18: but WITHOUT ANY WARRANTY; without even the implied warranty of 19: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 20: GNU General Public License for more details. 21: 22: You should have received a copy of the GNU General Public License 23: along with LON-CAPA; if not, write to the Free Software 24: Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 25: 26: /home/httpd/html/adm/gpl.txt 27: 28: http://www.lon-capa.org/ 29: 30: --> 31: 32: <piml> 33: <targetroot>/</targetroot> 34: <files> 35: <file> 36: <target dist="default">/home/httpd/lonUsers</target> 37: <perlscript mode="fg"> 38: 39: print "\nUpdating access count storage. This can take quite a while.\n"; 40: 41: my $logfile = '/tmp/accesscount_update_log.txt'; 42: 43: # get a list of all user directories 44: print "Getting directory listing.\n"; 45: my @dirs=`find <TARGET /> -type d `; 46: my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); 47: 48: my $count = 0; 49: my $countby = 1; 50: print "Updating ".scalar(@userdirs)." files.\n"; 51: foreach my $udir (@userdirs) { 52: if (++$count % $countby == 0) { 53: print "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b"; 54: print $count."/".scalar(@userdirs); 55: } 56: chomp($udir); 57: my $file = $udir.'/nohist_resevaldata.db'; 58: next if (! -e $file); 59: next if (-e $udir.'/nohist_accesscount.db'); 60: system('/home/httpd/perl/seed_accesscount.pl '.$file. 61: ' 2>>'.$logfile); 62: } 63: print "\nCompleted!\n"; 64: </perlscript> 65: </file> 66: </files> 67: </piml>