popfile-commit

[<ssc...@us...>]

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

Modified Files:
      Tag: v0/18/1
	MailParse.pm 
Log Message:
make an important part of hostname decoding case insensitive

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.91.2.4
retrieving revision 1.91.2.5
diff -C2 -d -r1.91.2.4 -r1.91.2.5
*** MailParse.pm	11 Apr 2003 01:19:32 -0000	1.91.2.4
--- MailParse.pm	20 Apr 2003 22:21:53 -0000	1.91.2.5
***************
*** 528,532 ****
      $authinfo = $1 if ( $url =~ s/^([[:alpha:]0-9\-_\.\;\:\&\=\+\$\,]+)(\@|\%40)// );
          
!     if ( $url =~ s/^(([[:alpha:]0-9\-_]+\.)+)(com|edu|gov|int|mil|net|org|aero|biz|coop|info|museum|name|pro|[[:alpha:]]{2})([^[:alpha:]0-9\-_\.]|$)/$4/ ) {
          $host = "$1$3";
          $hostform = "name";
--- 528,532 ----
      $authinfo = $1 if ( $url =~ s/^([[:alpha:]0-9\-_\.\;\:\&\=\+\$\,]+)(\@|\%40)// );
          
!     if ( $url =~ s/^(([[:alpha:]0-9\-_]+\.)+)(com|edu|gov|int|mil|net|org|aero|biz|coop|info|museum|name|pro|[[:alpha:]]{2})([^[:alpha:]0-9\-_\.]|$)/$4/i ) {
          $host = "$1$3";
          $hostform = "name";