|
version 1.5, 2005/06/02 23:31:11
|
version 1.6, 2005/12/09 16:26:48
|
|
Line 46 my @dirs=`find <TARGET /> -type d `;
|
Line 46 my @dirs=`find <TARGET /> -type d `;
|
| my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); |
my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); |
| |
|
| my $count = 0; |
my $count = 0; |
| my $countby = 1; |
my $countby = 100; |
| # print "Updating ".scalar(@userdirs)." files.\n"; |
# print "Updating ".scalar(@userdirs)." files.\n"; |
| print "Updating ".scalar(@userdirs)." files."; |
print "Updating ".scalar(@userdirs)." files."; |
| my $char_count = 0; |
my $char_count = 0; |
|
Line 63 foreach my $udir (@userdirs) {
|
Line 63 foreach my $udir (@userdirs) {
|
| system('/home/httpd/perl/seed_accesscount.pl '.$file. |
system('/home/httpd/perl/seed_accesscount.pl '.$file. |
| ' 2>>'.$logfile); |
' 2>>'.$logfile); |
| } |
} |
| |
print("\b" x $char_count); |
| |
print($count."/".scalar(@userdirs)); |
| print "\nCompleted!\n"; |
print "\nCompleted!\n"; |
| </perlscript> |
</perlscript> |
| </file> |
</file> |
![[BACK]](/icons/back.gif){kind=icon}
Return to accesscount_seed.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles