[popfile-commit] engine/UI HTML.pm,1.202,1.203

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

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

Modified Files:
	HTML.pm 
Log Message:
BROUGHT TEST SUITE TO 100% AFTER BERKELEYDB CHANGE

HTML.pm:

Small modification to the way that showing an individual bucket works 
so that when it is cleared we show the same page with a zero word 
count and no words.

Bayes.pm:

Mechanism for marking a bucket deleted even though the files in
its directory have not all disappeared.  This is needed because if
a user deletes a bucket while a download is occurring POPFile will
have a connection open to the db which will prevent it from getting
deleted.  Now have a helper delete_bucket_files__ that will do the
delete and add the special delete file as needed.

clear_bucket can't rely on being able to remove the table.db for
the same reasons as the above, so change the way in which it operates.

TestBayes.tst:

Tests to cover upgrading of corpus tables, fork handling and deal
with the fact that the corpus is no longer in flat files.  

TestHTML.tst:

Have to call prefork/forked/postfork when forking.  Test the new
force_fork UI elements.  

TestPOP3.tst:

Have to call prefork/forked/postfork when forking.

TestProxy.tst:

Add code to test the forking/non-forking version of the proxy code.















Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.202
retrieving revision 1.203
diff -C2 -d -r1.202 -r1.203
*** HTML.pm	10 Sep 2003 22:33:57 -0000	1.202
--- HTML.pm	15 Sep 2003 14:55:36 -0000	1.203
***************
*** 1700,1704 ****
  
      $body .= "<form action=\"/buckets\"><input type=\"hidden\" name=\"session\" value=\"$self->{session_key__}\" />";
!     $body .= "<input type=\"hidden\" name=\"bucket\" value=\"$self->{form_}{showbucket}\" />";
      $body .= "<input type=\"submit\" name=\"clearbucket\" value=\"$self->{language__}{SingleBucket_ClearBucket}\" />";
      $body .= "</form>";
--- 1700,1704 ----
  
      $body .= "<form action=\"/buckets\"><input type=\"hidden\" name=\"session\" value=\"$self->{session_key__}\" />";
!     $body .= "<input type=\"hidden\" name=\"showbucket\" value=\"$self->{form_}{showbucket}\" />";
      $body .= "<input type=\"submit\" name=\"clearbucket\" value=\"$self->{language__}{SingleBucket_ClearBucket}\" />";
      $body .= "</form>";
***************
*** 1822,1826 ****
  
      if ( defined( $self->{form_}{clearbucket} ) ) {
!         $self->{classifier__}->clear_bucket( $self->{form_}{bucket} );
      }
  
--- 1822,1826 ----
  
      if ( defined( $self->{form_}{clearbucket} ) ) {
!         $self->{classifier__}->clear_bucket( $self->{form_}{showbucket} );
      }
  
***************
*** 1838,1842 ****
  
      if ( defined($self->{form_}{showbucket}) )  {
!         bucket_page( $self, $client);
          return;
      }
--- 1838,1842 ----
  
      if ( defined($self->{form_}{showbucket}) )  {
!         $self->bucket_page( $client );
          return;
      }