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

[albertel]

albertel		Sat May 14 15:37:47 2005 EDT

  Modified files:              
    /doc/loncapafiles	accesscount_seed.piml clean_file_permissions.piml 
  Log:
  - making the updating display look prettier
  
  
  
Index: doc/loncapafiles/accesscount_seed.piml
diff -u doc/loncapafiles/accesscount_seed.piml:1.2 doc/loncapafiles/accesscount_seed.piml:1.3
--- doc/loncapafiles/accesscount_seed.piml:1.2	Thu Jul 22 16:27:45 2004
+++ doc/loncapafiles/accesscount_seed.piml	Sat May 14 15:37:47 2005
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: accesscount_seed.piml,v 1.2 2004/07/22 20:27:45 matthew Exp $ -->
+<!-- $Id: accesscount_seed.piml,v 1.3 2005/05/14 19:37:47 albertel Exp $ -->
 
 <!--
 
@@ -46,12 +46,12 @@
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
 
 my $count = 0;
-my $countby = 20;
-print "Updating ".scalar(@userdirs)." files.  Each '.' represents ".$countby.
-      " files processed.\n";
+my $countby = 1;
+print "Updating ".scalar(@userdirs)." files.\n";
 foreach my $udir (@userdirs) {
     if (++$count % $countby == 0) {
-        print ".";
+	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.'/nohist_resevaldata.db';
Index: doc/loncapafiles/clean_file_permissions.piml
diff -u doc/loncapafiles/clean_file_permissions.piml:1.1 doc/loncapafiles/clean_file_permissions.piml:1.2
--- doc/loncapafiles/clean_file_permissions.piml:1.1	Fri Mar 18 15:07:21 2005
+++ doc/loncapafiles/clean_file_permissions.piml	Sat May 14 15:37:47 2005
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: clean_file_permissions.piml,v 1.1 2005/03/18 20:07:21 albertel Exp $ -->
+<!-- $Id: clean_file_permissions.piml,v 1.2 2005/05/14 19:37:47 albertel Exp $ -->
 
 <!--
 
@@ -46,12 +46,12 @@
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
 
 my $count = 0;
-my $countby = 20;
-print "Updating ".scalar(@userdirs)." files.  Each '.' represents ".$countby.
-      " files processed.\n";
+my $countby = 1;
+print "Updating ".scalar(@userdirs)." files.\n";
 foreach my $udir (@userdirs) {
     if (++$count % $countby == 0) {
-        print ".";
+        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';