[popfile-commit] engine/Classifier MailParse.pm,1.158,1.159

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

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

Modified Files:
	MailParse.pm 
Log Message:
For some reason we weren't adding the domain names of img src tags as a word, now we do

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.158
retrieving revision 1.159
diff -C2 -d -r1.158 -r1.159
*** MailParse.pm	24 Aug 2003 04:04:52 -0000	1.158
--- MailParse.pm	5 Sep 2003 20:38:10 -0000	1.159
***************
*** 582,586 ****
              } else {
  
!                 my $host = add_url( $self, $value, $encoded, $quote, $end_quote, '', 1 );
  
                  # If the host name is not blank (i.e. there was a hostname in the url
--- 582,586 ----
              } else {
  
!                 my $host = add_url( $self, $value, $encoded, $quote, $end_quote, '' );
  
                  # If the host name is not blank (i.e. there was a hostname in the url
***************
*** 896,900 ****
          # http://www.0dns.org has a good reference of ccTLD's and their sub-tld's if desired
  
!         if ( $hostform eq "name" ) {
              while ( $host =~ s/^([^\.])+\.(.*\.(.*))$/$2/ ) {
                  update_word( $self, $2, $encoded, '[\.]', '[<]', $prefix) if ( !defined( $noadd ) );
--- 896,900 ----
          # http://www.0dns.org has a good reference of ccTLD's and their sub-tld's if desired
  
!         if ( $hostform eq 'name' ) {
              while ( $host =~ s/^([^\.])+\.(.*\.(.*))$/$2/ ) {
                  update_word( $self, $2, $encoded, '[\.]', '[<]', $prefix) if ( !defined( $noadd ) );