![]() ![]() | ![]() |
- making the updating display look prettier
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" "http://lpml.sourceforge.net/DTD/piml.dtd"> <!-- accesscount_seed.piml --> <!-- Matthew Hall --> <!-- $Id: clean_file_permissions.piml,v 1.2 2005/05/14 19:37:47 albertel Exp $ --> <!-- This file is part of the LearningOnline Network with CAPA (LON-CAPA). LON-CAPA is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. LON-CAPA is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with LON-CAPA; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA /home/httpd/html/adm/gpl.txt http://www.lon-capa.org/ --> <piml> <targetroot>/</targetroot> <files> <file> <target dist="default">/home/httpd/lonUsers</target> <perlscript mode="fg"> print "\nCleaning up file_permissions.db\n"; my $logfile = '/tmp/clean_file_permissions_log.txt'; # get a list of all user directories print "Getting directory listing.\n"; my @dirs=`find <TARGET /> -type d `; my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); my $count = 0; my $countby = 1; print "Updating ".scalar(@userdirs)." files.\n"; foreach my $udir (@userdirs) { if (++$count % $countby == 0) { 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"; print $count."/".scalar(@userdirs); } chomp($udir); my $file = $udir.'/file_permissions.db'; next if (! -e $file); system('/home/httpd/perl/debug/clean_db.pl '.$file. ' "error%3a%202%20tie%28GDBM%29%20Failed%20while%20attempting%20dump" 2>>'.$logfile); } print "\nCompleted!\n"; </perlscript> </file> </files> </piml>