diff options
| author | ache <ache@FreeBSD.org> | 2003-09-24 20:35:44 +0800 |
|---|---|---|
| committer | ache <ache@FreeBSD.org> | 2003-09-24 20:35:44 +0800 |
| commit | 180a02ec560fc09378abc115a0a93df65b81d47e (patch) | |
| tree | 3d6efd9335c9c03ab655e0a7ad39a4b74ba4bd11 /mail/ricochet | |
| parent | e12c05ddd04439f663a140a1dacfe0e6cf99ba0c (diff) | |
| download | freebsd-ports-gnome-180a02ec560fc09378abc115a0a93df65b81d47e.tar.gz freebsd-ports-gnome-180a02ec560fc09378abc115a0a93df65b81d47e.tar.zst freebsd-ports-gnome-180a02ec560fc09378abc115a0a93df65b81d47e.zip | |
Abuse.net change their reply format
Diffstat (limited to 'mail/ricochet')
| -rw-r--r-- | mail/ricochet/Makefile | 1 | ||||
| -rw-r--r-- | mail/ricochet/files/patch-ricochet | 25 |
2 files changed, 23 insertions, 3 deletions
diff --git a/mail/ricochet/Makefile b/mail/ricochet/Makefile index e662f482e512..e77830f4aede 100644 --- a/mail/ricochet/Makefile +++ b/mail/ricochet/Makefile @@ -7,6 +7,7 @@ PORTNAME= ricochet PORTVERSION= 0.98 +PORTREVISION= 1 CATEGORIES= mail MASTER_SITES= http://vipul.net/perl/sources/spamcontrol/ricochet/ diff --git a/mail/ricochet/files/patch-ricochet b/mail/ricochet/files/patch-ricochet index 3ae0516ebacd..917a4043ae4b 100644 --- a/mail/ricochet/files/patch-ricochet +++ b/mail/ricochet/files/patch-ricochet @@ -1,6 +1,25 @@ ---- ricochet.orig Thu Feb 8 22:23:19 2001 -+++ ricochet Tue Jun 24 18:14:09 2003 -@@ -574,7 +607,8 @@ +--- ricochet.old Tue Jun 24 22:40:18 2003 ++++ ricochet Wed Sep 24 16:33:42 2003 +@@ -566,15 +566,14 @@ + my ( $domain ) = @_; + $ua = new LWP::UserAgent; + $ua->agent("Ricochet/0.1 " . $ua->agent); +- my $req = new HTTP::Request POST => 'http://www.abuse.net/lookup.phtml'; +- $req->content_type('application/x-www-form-urlencoded'); +- $req->content("DOMAIN=$domain"); ++ my $req = new HTTP::Request GET => "http://www.abuse.net/lookup.phtml?DOMAIN=$domain"; ++ $ua->timeout(20); + my $res = $ua->request($req); + + if ($res->is_success) { + my $content = $res->content; + return undef if $content =~ /no information for this domain/; +- my @matches = $content =~ /(\S+\@\S+)\s*<BR>/ig; ++ my @matches = $content =~ /<tt>(\S+\@\S+)<\/tt>/g; + return \@matches; + } else { + return undef; +@@ -607,7 +606,8 @@ sub initialize { my $self = shift; |