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";
|
