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

[matthew]

matthew		Tue Dec  9 15:17:48 2003 EDT

  Added files:                 
    /doc/loncapafiles	accesscount_seed.piml 

  Modified files:              
    /doc/loncapafiles	buildfiles.lpml loncapafiles.lpml 
  Log:
  Added accesscount_seed.piml
  loncapafiles.lpml now installs seed_accesscount.db
  buildfiles.lpml contains information about running accesscount_seed.piml.
  
  
Index: doc/loncapafiles/buildfiles.lpml
diff -u doc/loncapafiles/buildfiles.lpml:1.7 doc/loncapafiles/buildfiles.lpml:1.8
--- doc/loncapafiles/buildfiles.lpml:1.7	Mon Feb  3 13:03:51 2003
+++ doc/loncapafiles/buildfiles.lpml	Tue Dec  9 15:17:48 2003
@@ -2,7 +2,7 @@
  "http://lpml.sourceforge.net/DTD/lpml.dtd">
 <!-- buildfiles.lpml -->
 
-<!-- $Id: buildfiles.lpml,v 1.7 2003/02/03 18:03:51 harris41 Exp $ -->
+<!-- $Id: buildfiles.lpml,v 1.8 2003/12/09 20:17:48 matthew Exp $ -->
 
 <!--
 
@@ -136,6 +136,18 @@
 <categoryname>system file</categoryname>
 <description>
 Migrates reseval.db to nohist_eseval.db, deletes useless hist file
+</description>
+<note>
+</note>
+</file>
+<file>
+<source>doc/loncapafiles/accesscount_seed.piml</source>
+<target dist='default'>accesscount_seed.piml</target>
+<categoryname>system file</categoryname>
+<description>
+Executes seed_accesscount.pl on each nohist_resevaldata.db file to move access
+count data to nohist_accesscount.db and compact the nohist_resevaldata.db
+file.
 </description>
 <note>
 </note>
Index: doc/loncapafiles/loncapafiles.lpml
diff -u doc/loncapafiles/loncapafiles.lpml:1.307 doc/loncapafiles/loncapafiles.lpml:1.308
--- doc/loncapafiles/loncapafiles.lpml:1.307	Tue Dec  9 15:07:40 2003
+++ doc/loncapafiles/loncapafiles.lpml	Tue Dec  9 15:17:48 2003
@@ -2,7 +2,7 @@
  "http://lpml.sourceforge.net/DTD/lpml.dtd">
 <!-- loncapafiles.lpml -->
 
-<!-- $Id: loncapafiles.lpml,v 1.307 2003/12/09 20:07:40 albertel Exp $ -->
+<!-- $Id: loncapafiles.lpml,v 1.308 2003/12/09 20:17:48 matthew Exp $ -->
 
 <!--
 
@@ -1268,6 +1268,15 @@
 <description>
 Batch script for removing files not accessed within 24 hours from the 
 /home/httpd/prtspool directory.
+</description>
+</file>
+<file>
+<source>loncom/debugging_tools/seed_accesscount.pl</source>
+<target dist='default'>home/httpd/perl/seed_accesscount.pl</target>
+<categoryname>script</categoryname>
+<description>
+Batch script for moving access count data from nohist_resevaldata.db to
+nohist_accesscount.db.
 </description>
 </file>
 <file>

Index: doc/loncapafiles/accesscount_seed.piml
+++ doc/loncapafiles/accesscount_seed.piml
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" 
	"http://lpml.sourceforge.net/DTD/piml.dtd">
<!-- accesscount_seed.piml -->
<!-- Matthew Hall -->

<!-- $Id: accesscount_seed.piml,v 1.1 2003/12/09 20:17:48 matthew 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 "\nUpdating access count storage.  This can take quite a while.\n";

my $logfile = '/tmp/accesscount_update_log.txt';

# get a list of all user directories
my @dirs=`find <TARGET /> -type d `;
my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);

my $count = 0;
my $countby = 20;
print "Updating ".scalar(@userdirs)." files.  Each '.' represents ".$countby.
      " files processed.\n";
foreach my $udir (@userdirs) {
    if (++$count % $countby == 0) {
        print ".";
    }
    chomp($udir);
    my $file = $udir.'/nohist_resevaldata.db';
    next if (! -e $file);
    system('/home/httpd/perl/seed_accesscount.pl '.$file.
                ' 2>>'.$logfile);
}
print "\nCompleted!\n";
</perlscript>
</file>
</files>
</piml>