1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-24 00:45:52 +00:00

Update to 4.35.11:

Improvement to Phishing-Mail Detection

PR:		ports/73762
Submitted by:	maintainer
This commit is contained in:
Volker Stolz 2004-11-10 10:44:48 +00:00
parent 1ef8a20d33
commit 55ecd7bb65
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=121295
3 changed files with 27 additions and 3 deletions

View File

@ -6,7 +6,7 @@
#
PORTNAME= MailScanner
PORTVERSION= 4.35.9
PORTVERSION= 4.35.11
CATEGORIES= mail
MASTER_SITES= http://www.sng.ecs.soton.ac.uk/mailscanner/files/4/tar/
DISTNAME= ${PORTNAME}-install-${PORTVERSION}-${PATCHLEVEL}

View File

@ -1,2 +1,2 @@
MD5 (MailScanner-install-4.35.9-1.tar.gz) = 4e3a0739cec1cc0bd94e24fb8ac558db
SIZE (MailScanner-install-4.35.9-1.tar.gz) = 5480916
MD5 (MailScanner-install-4.35.11-1.tar.gz) = 2ce8d93b6526c33791ad696a7e61cc7d
SIZE (MailScanner-install-4.35.11-1.tar.gz) = 5508189

View File

@ -0,0 +1,24 @@
--- ../MailScanner-install-4.35.11.orig/lib/MailScanner/Message.pm Wed Nov 10 08:31:01 2004
+++ lib/MailScanner/Message.pm Wed Nov 10 08:33:19 2004
@@ -4043,6 +4043,8 @@
$squashedtext =~ s#%([0-9a-f][0-9a-f])#chr(hex('0x' . $1))#gei; # Unescape
$squashedtext =~ s/\s+//g; # Remove any whitespace
$squashedtext =~ s/\\/\//g;
+ $squashedtext =~ s/(\<\/?[^>]*\>)*//ig; # Remove tags
+ #$squashedtext =~ s/^(\<\/?(br|p|ul)\>)*//ig; # Remove leading br, p, ul tags
#print STDERR "Text = \"$text\"\n";
#print STDERR "1SquashedText = \"$squashedtext\"\n";
#print STDERR "1LinkURL = \"$DisarmLinkURL\"\n";
@@ -4055,9 +4057,11 @@
$linkurl =~ s/\%a0//g;
$linkurl =~ s#%([0-9a-f][0-9a-f])#chr(hex('0x' . $1))#gei; # Unescape
$linkurl =~ s/\s+//; # Remove any whitespace
+ #$linkurl =~ s/(\<\/?[^>]*\>)*//ig; # Remove tags
+ #$linkurl =~ s/^(\<\/?(br|p|ul)\>)*//ig; # Remove leading br, p, ul tags
$linkurl =~ s/^(https?|ftp):\/\///;
$linkurl =~ s/\/.*$//; # Only compare up to the first '/' (hostname only)
- $linkurl =~ s/\<\/?(br|p)\>$//i; # Remove trailing <br> and <p> tags
+ $linkurl =~ s/(\<\/?(br|p|ul)\>)*$//ig; # Remove trailing br, p, ul tags
$linkurl =~ s/\/$//; # LinkURL is trimmed -- note
#print STDERR "2SquashedText = \"$squashedtext\"\n";
#print STDERR "2LinkURL = \"$linkurl\"\n";