[popfile-commit] engine/UI HTML.pm,1.200,1.201

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv27765/UI

Modified Files:
	HTML.pm 
Log Message:
PORT TO STORE CORPUS IN BERKELEYDB DATABASES

Bayes.pm:

The $self->{matrix__} hash is now a collection of tied hashes
to BerkeleyDB databases named table.db in each of the corpus
bucket subdirectories.  The set_value_ and get_value_ accessors
have been modified to access the database.  load_word_matrix_
and load_bucket_ now load the bucket information from the database
in concurrent mode.

prefork, forked and postfork handling closing and opening database
connections around forks to ensure that there are no threading 
problems with the database.

close_database__ can be called to clean up the connection to the
database at any time.

Many API functions have been modified internally to use the new
structure.  The external APIs have not changed.  get_bucket_word_list
is currently not implemented.

load_bucket_ does automatic upgrade from the old flat file style
of corpus to the database.


HTML.pm:

Added a note that since get_bucket_word_list isn't working it is
not possible to view the words in a bucket.


Module.pm:

Added description and base implementation of the new postfork()
method that is called on all modules when a fork has occurred and
in the parent process.   This is the parent equivalent of forked().


Loader.pm:

The forker is modified to call postfork() in the parent process
after a successful fork.









Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.200
retrieving revision 1.201
diff -C2 -d -r1.200 -r1.201
*** HTML.pm	9 Sep 2003 00:28:20 -0000	1.200
--- HTML.pm	10 Sep 2003 03:54:15 -0000	1.201
***************
*** 1709,1712 ****
--- 1709,1714 ----
      $body .= "<tr><td colspan=2>";
  
+     # TODO FIX THIS TO USE NEW API
+ 
      if ( $self->{classifier__}->get_bucket_word_count( $self->{form_}{showbucket} ) > 0 ) {
        for my $i ($self->{classifier__}->get_bucket_word_list($self->{form_}{showbucket})) {