[popfile-commit] engine/Classifier MailParse.pm,1.130,1.131

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

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

Modified Files:
	MailParse.pm 
Log Message:
remove multiple authorization parts from parsed URL's
me@yo...@si... -> site.com

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.130
retrieving revision 1.131
diff -C2 -d -r1.130 -r1.131
*** MailParse.pm	22 May 2003 17:00:19 -0000	1.130
--- MailParse.pm	29 May 2003 10:49:06 -0000	1.131
***************
*** 619,623 ****
      # Extract authorization information from the URL (e.g. http://foo@bar.com)
  
!     $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 ) {
--- 619,623 ----
      # Extract authorization information from the URL (e.g. http://foo@bar.com)
  
!     $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 ) {