version 1.7, 2006/01/31 10:33:51
|
version 1.8, 2015/03/16 05:25:47
|
Line 36 http://www.lon-capa.org/
|
Line 36 http://www.lon-capa.org/
|
<target dist="default">/home/httpd/lonUsers</target> |
<target dist="default">/home/httpd/lonUsers</target> |
<perlscript mode="fg"> |
<perlscript mode="fg"> |
|
|
print "\nUpdating access count storage. This can take quite a while.\n"; |
my $dotransfer; |
|
if (-e '/etc/loncapa-release') { |
|
if (open(PIPE,"cat /etc/loncapa-release.prev |grep '^LON-CAPA release' |")) { |
|
if (<PIPE> =~ /^\QLON-CAPA release \E(CVS_HEAD|\d+\.\d+\.\d+\.?\w*)\-\d+$/) { |
|
my $previous = $1; |
|
unless ($previous eq 'CVS_HEAD') { |
|
my ($major,$minor) = ($previous =~ /^(\d+)\.(\d+)\./); |
|
if (($major ne '') && ($minor ne '')) { |
|
if ((($major == 2) && ($minor < 10)) | ($major < 2)) { |
|
$dotransfer = 1; |
|
} |
|
} |
|
} |
|
} |
|
close(PIPE); |
|
} |
|
} |
|
|
|
if ($dotransfer) { |
|
print "\nUpdating access count storage. This can take quite a while.\n"; |
|
|
my $logfile = '/tmp/accesscount_update_log.txt'; |
my $logfile = '/tmp/accesscount_update_log.txt'; |
|
|
# get a list of all user directories |
# get a list of all user directories |
print "Getting directory listing.\n"; |
print "Getting directory listing.\n"; |
my @dirs=`find <TARGET /> -type d `; |
my @dirs=`find <TARGET /> -type d `; |
my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); |
my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); |
|
|
my $count = 0; |
my $count = 0; |
my $countby = 100; |
my $countby = 100; |
print "Updating ".scalar(@userdirs)." files.\n"; |
print "Updating ".scalar(@userdirs)." files.\n"; |
my $char_count = 0; |
my $char_count = 0; |
foreach my $udir (@userdirs) { |
foreach my $udir (@userdirs) { |
if (++$count % $countby == 0) { |
if (++$count % $countby == 0) { |
print("\b" x $char_count); |
print("\b" x $char_count); |
print($count."/".scalar(@userdirs)); |
print($count."/".scalar(@userdirs)); |
$char_count = length($count."/".scalar(@userdirs)); |
$char_count = length($count."/".scalar(@userdirs)); |
|
} |
|
chomp($udir); |
|
my $file = $udir.'/nohist_resevaldata.db'; |
|
next if (! -e $file); |
|
next if (-e $udir.'/nohist_accesscount.db'); |
|
system('/home/httpd/perl/seed_accesscount.pl '.$file. |
|
' 2>>'.$logfile); |
} |
} |
chomp($udir); |
print("\b" x $char_count); |
my $file = $udir.'/nohist_resevaldata.db'; |
print($count."/".scalar(@userdirs)); |
next if (! -e $file); |
print "\nCompleted!\n"; |
next if (-e $udir.'/nohist_accesscount.db'); |
} else { |
system('/home/httpd/perl/seed_accesscount.pl '.$file. |
print("No update of nohist_accesscount.db files needed.\n"); |
' 2>>'.$logfile); |
|
} |
} |
print("\b" x $char_count); |
|
print($count."/".scalar(@userdirs)); |
|
print "\nCompleted!\n"; |
|
</perlscript> |
</perlscript> |
</file> |
</file> |
</files> |
</files> |