ports/110224: Address change for SPAMCOP in 'spamcup.pl'

[Gerard Seibert]

>Number:         110224
>Category:       ports
>Synopsis:       Address change for SPAMCOP in 'spamcup.pl'
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          update
>Submitter-Id:   current-users
>Arrival-Date:   Mon Mar 12 15:00:08 GMT 2007
>Closed-Date:
>Last-Modified:
>Originator:     Gerard Seibert
>Release:        FreeBSD-6.2
>Organization:
Seibercom.net
>Environment:
FreeBSD scorpio.seibercom.net 6.2-RELEASE FreeBSD 6.2-RELEASE #0: Thu Jan 18 23:52:11 EST 2007     gerard at scorpio.seibercom.net:/usr/obj/usr/src/sys/SCORPIO  i386

>Description:
PORT: /usr/ports/mail/spamcup

The 'spamcup.pl' module is using a depreciated address for SPAMCOP. This causes the program to fail.
>How-To-Repeat:
Run the program.
>Fix:
'spamcup.pl' is using a depreciate URL for SPAMCOP. The correct one should be:
http://www.spamcop.net/mcgi?action=loginform;returnurl=%2F

The lines to edit are 228 and 245.

line # 228:
print "D: GET http://$SCident:******\@members.spamcop.net/\n";
should read:
print "D: GET http://$SCident:******\@www.spamcop.net/mcgi?action=loginform;returnurl=%2Ft/\n";

Line 242:
$req = HTTP::Request->new(GET => 'http://members.spamcop.net/');
should read:
$req = HTTP::Request->new(GET => 'http://www.spamcop.net/mcgi?action=loginform;returnurl=%2F/');

The program will then work correctly.
>Release-Note:
>Audit-Trail:
>Unformatted: