[LON-CAPA-cvs] cvs: doc /loncapafiles accesscount_seed.piml clean_file_permissions.piml

[albertel]

albertel		Fri Dec  9 11:26:49 2005 EDT

  Modified files:              
    /doc/loncapafiles	clean_file_permissions.piml accesscount_seed.piml 
  Log:
  - switch ing to only updating the count every 100
  
  
Index: doc/loncapafiles/clean_file_permissions.piml
diff -u doc/loncapafiles/clean_file_permissions.piml:1.3 doc/loncapafiles/clean_file_permissions.piml:1.4
--- doc/loncapafiles/clean_file_permissions.piml:1.3	Thu Jun  2 19:20:50 2005
+++ doc/loncapafiles/clean_file_permissions.piml	Fri Dec  9 11:26:48 2005
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: clean_file_permissions.piml,v 1.3 2005/06/02 23:20:50 banghart Exp $ -->
+<!-- $Id: clean_file_permissions.piml,v 1.4 2005/12/09 16:26:48 albertel Exp $ -->
 
 <!--
 
@@ -46,13 +46,13 @@
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
 
 my $count = 0;
-my $countby = 1;
+my $countby = 100;
 print "Updating ".scalar(@userdirs)." files.\n";
 my $char_count=0;
 foreach my $udir (@userdirs) {
     if (++$count % $countby == 0) {
-        print ("\b" x $char_count);
-        print $count."/".scalar(@userdirs);
+        print("\b" x $char_count);
+        print($count."/".scalar(@userdirs));
         $char_count = length($count."/".scalar(@userdirs));
     }
     chomp($udir);
@@ -61,6 +61,8 @@
     system('/home/httpd/perl/debug/clean_db.pl '.$file.
                 ' "error%3a%202%20tie%28GDBM%29%20Failed%20while%20attempting%20dump" 2>>'.$logfile);
 }
+print("\b" x $char_count);
+print($count."/".scalar(@userdirs));
 print "\nCompleted!\n";
 </perlscript>
 </file>
Index: doc/loncapafiles/accesscount_seed.piml
diff -u doc/loncapafiles/accesscount_seed.piml:1.5 doc/loncapafiles/accesscount_seed.piml:1.6
--- doc/loncapafiles/accesscount_seed.piml:1.5	Thu Jun  2 19:31:11 2005
+++ doc/loncapafiles/accesscount_seed.piml	Fri Dec  9 11:26:48 2005
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: accesscount_seed.piml,v 1.5 2005/06/02 23:31:11 banghart Exp $ -->
+<!-- $Id: accesscount_seed.piml,v 1.6 2005/12/09 16:26:48 albertel Exp $ -->
 
 <!--
 
@@ -46,7 +46,7 @@
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
 
 my $count = 0;
-my $countby = 1;
+my $countby = 100;
 # print "Updating ".scalar(@userdirs)." files.\n";
 print "Updating ".scalar(@userdirs)." files.";
 my $char_count = 0;
@@ -63,6 +63,8 @@
     system('/home/httpd/perl/seed_accesscount.pl '.$file.
                 ' 2>>'.$logfile);
 }
+print("\b" x $char_count);
+print($count."/".scalar(@userdirs));
 print "\nCompleted!\n";
 </perlscript>
 </file>