popfile-commit

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

Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv23158/Proxy

Modified Files:
	POP3.pm 
Log Message:
Statistics and reclassification now work; all configuration parameters now fixed correctly and configuration screens work; history now updates; can look up words; TODO: magnets not working and security page partly broken, need to decide whether to drop stop words or not

Index: POP3.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/POP3.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -C2 -d -r1.44 -r1.45
*** POP3.pm	5 Mar 2003 20:06:17 -0000	1.44
--- POP3.pm	5 Mar 2003 21:15:35 -0000	1.45
***************
*** 61,68 ****
  
      # The default timeout in seconds for POP3 commands
!     $self->config_( 'timeout', 60 );
  
      # Only accept connections from the local machine for POP3
!     $self->config_( 'local', 1 ); # TODO localpop
  
      # Whether to do classification on TOP as well
--- 61,68 ----
  
      # The default timeout in seconds for POP3 commands
!     $self->global_config_( 'timeout', 60 );
  
      # Only accept connections from the local machine for POP3
!     $self->config_( 'local', 1 );
  
      # Whether to do classification on TOP as well
***************
*** 98,102 ****
  # because we deal with the statistics as we go
  #
- # $kid      PID of a child of POP3.pm
  # $handle   The handle of the child's pipe
  #
--- 98,101 ----
***************
*** 104,108 ****
  sub flush_child_data__
  {
!     my ( $self, $kid, $handle ) = @_;
  
      my $stats_changed = 0;
--- 103,107 ----
  sub flush_child_data__
  {
!     my ( $self, $handle ) = @_;
  
      my $stats_changed = 0;
***************
*** 115,123 ****
              $class =~ s/[\r\n]//g;
  
! # TODO            $self->{classifier__}->{parameters}{$class}{count} += 1;
              $self->global_config_( 'mcount', $self->global_config_( 'mcount' ) + 1 );
              $stats_changed                                    = 1;
  
!             $self->log_( "Incrementing $class for $kid" );
          } else {
              # This is here so that we get in errorneous position where the pipeready
--- 114,123 ----
              $class =~ s/[\r\n]//g;
  
!             $self->{classifier__}->set_bucket_parameter( $class, 'count',
!                 $self->{classifier__}->get_bucket_parameter( $class, 'count' ) + 1 );
              $self->global_config_( 'mcount', $self->global_config_( 'mcount' ) + 1 );
              $stats_changed                                    = 1;
  
!             $self->log_( "Incrementing $class" );
          } else {
              # This is here so that we get in errorneous position where the pipeready