[popfile-commit] engine/Classifier Bayes.pm,1.146,1.147

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

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv31948/Classifier

Modified Files:
	Bayes.pm 
Log Message:
Added bayes_hostname parameter to control the hostname used in the XPL and quarantine links.  Defaults to the hostname of the machine returned by the Perl hostname command, note that the bayes_hostname is only used when stealth mode is off, otherwise 127.0.0.1 is used

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.146
retrieving revision 1.147
diff -C2 -d -r1.146 -r1.147
*** Bayes.pm	20 May 2003 20:20:32 -0000	1.146
--- Bayes.pm	23 May 2003 14:58:12 -0000	1.147
***************
*** 124,127 ****
--- 124,130 ----
      $self->{hostname__} = hostname;
  
+     # Allow the user to override the hostname
+     $self->config_( 'hostname', $self->{hostname__} );
+ 
      return 1;
  }
***************
*** 964,968 ****
  
      $xpl .= "<http://";
!     $xpl .= $self->module_config_( 'html', 'local' )?"127.0.0.1":$self->{hostname__};
      $xpl .= ":" . $self->module_config_( 'html', 'port' ) . "/jump_to_message?view=$temp_file>$eol";
  
--- 967,971 ----
  
      $xpl .= "<http://";
!     $xpl .= $self->module_config_( 'html', 'local' )?"127.0.0.1":$self->config_( 'hostname' );
      $xpl .= ":" . $self->module_config_( 'html', 'port' ) . "/jump_to_message?view=$temp_file>$eol";