From owner-freebsd-ports Thu Mar 15 2:10:10 2001 Delivered-To: freebsd-ports@hub.freebsd.org Received: from freefall.freebsd.org (freefall.freebsd.org [216.136.204.21]) by hub.freebsd.org (Postfix) with ESMTP id 373FD37B719 for ; Thu, 15 Mar 2001 02:10:01 -0800 (PST) (envelope-from gnats@FreeBSD.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.11.1/8.11.1) id f2FAA1G86952; Thu, 15 Mar 2001 02:10:01 -0800 (PST) (envelope-from gnats) Received: from rucus.ru.ac.za (rucus.ru.ac.za [146.231.29.2]) by hub.freebsd.org (Postfix) with SMTP id EEE5837B71C for ; Thu, 15 Mar 2001 02:09:41 -0800 (PST) (envelope-from guy@rucus.ru.ac.za) Received: (qmail 94714 invoked by uid 479); 15 Mar 2001 10:09:30 -0000 Message-Id: <20010315100930.94713.qmail@rucus.ru.ac.za> Date: 15 Mar 2001 10:09:30 -0000 From: Guy Antony Halse Reply-To: guy@rucus.ru.ac.za To: FreeBSD-gnats-submit@freebsd.org X-Send-Pr-Version: 3.2 Subject: ports/25822: Update port: ezmlm-web Sender: owner-freebsd-ports@FreeBSD.ORG Precedence: bulk X-Loop: FreeBSD.org >Number: 25822 >Category: ports >Synopsis: Update port: ezmlm-web >Confidential: no >Severity: non-critical >Priority: low >Responsible: freebsd-ports >State: open >Quarter: >Keywords: >Date-Required: >Class: change-request >Submitter-Id: current-users >Arrival-Date: Thu Mar 15 02:10:00 PST 2001 >Closed-Date: >Last-Modified: >Originator: Guy Antony Halse >Release: FreeBSD 4.2-STABLE i386 >Organization: Rhodes University Computer Users Society >Environment: >Description: Added the file files/patch-aa Changed to support newer versions of the CGI perl module, and perl 5.6.0 >How-To-Repeat: >Fix: diff -ruN ezmlm-web.old/Makefile ezmlm-web/Makefile --- ezmlm-web.old/Makefile Thu Mar 15 11:55:17 2001 +++ ezmlm-web/Makefile Thu Mar 15 11:59:08 2001 @@ -7,6 +7,7 @@ PORTNAME= ezmlm-web PORTVERSION= 2.1 +PORTREVISION= 1 CATEGORIES= mail www MASTER_SITES= ftp://rucus.ru.ac.za/pub/mail/ezmlm/ diff -ruN ezmlm-web.old/files/patch-aa ezmlm-web/files/patch-aa --- ezmlm-web.old/files/patch-aa Thu Jan 1 02:00:00 1970 +++ ezmlm-web/files/patch-aa Thu Mar 15 11:52:54 2001 @@ -0,0 +1,55 @@ +--- ezmlm-web.cgi.orig Thu Mar 15 11:48:46 2001 ++++ ezmlm-web.cgi Thu Mar 15 11:50:47 2001 +@@ -281,13 +281,13 @@ + print $q->startform; + print $q->hidden(-name=>'state', -default=>'select'); + print '
'; +- print $q->scrolling_list(-name=>'list', -size=>$scrollsize, -values=>\@lists) if defined(@lists); ++ print $q->scrolling_list(-name=>'list', -size=>$scrollsize, -values=>\@lists) if (@lists); + + print '', $LANGUAGE{'chooselistinfo'}; + +- print $q->submit(-name=>'action', -value=>"[$BUTTON{'create'}]"), ' ' if (!defined($opt_c)); +- print $q->submit(-name=>'action', -value=>"[$BUTTON{'edit'}]"), ' ' if(defined(@lists)); +- print $q->submit(-name=>'action', -value=>"[$BUTTON{'delete'}]") if(defined(@lists)); ++ print $q->submit(-name=>'action', -value=>"[$BUTTON{'create'}]"), ' ' if ($opt_c); ++ print $q->submit(-name=>'action', -value=>"[$BUTTON{'edit'}]"), ' ' if(@lists); ++ print $q->submit(-name=>'action', -value=>"[$BUTTON{'delete'}]") if(@lists); + print '
'; + print $q->endform; + } +@@ -332,10 +332,10 @@ + print '
'; + print $q->hidden(-name=>'state', -default=>'edit'); + print $q->hidden(-name=>'list', -default=>$Q::list); +- print $q->scrolling_list(-name=>'delsubscriber', -size=>$scrollsize, -values=>\@subscribers, -labels=>&pretty_names, -multiple=>'true') if defined(@subscribers); ++ print $q->scrolling_list(-name=>'delsubscriber', -size=>$scrollsize, -values=>\@subscribers, -labels=>&pretty_names, -multiple=>'true') if (@subscribers); + print ''; +- print ' ', ($#subscribers + 1), ' ', $LANGUAGE{'subscribers'}, '
' if defined(@subscribers); +- print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '

' if defined(@subscribers); ++ print ' ', ($#subscribers + 1), ' ', $LANGUAGE{'subscribers'}, '
' if (@subscribers); ++ print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '

' if (@subscribers); + print $q->textfield(-name=>'addsubscriber', -size=>'40'), ' ', $HELPER{'addaddress'}, '
'; + print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' ', $HELPER{'addaddressfile'}, '
' if ($FILE_UPLOAD); + print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), '

'; +@@ -447,7 +447,7 @@ + die "File upload must be of type text/*" unless($q->uploadInfo($q->param('addfile'))->{'Content-Type'} =~ m{^text/}); + + # Handle file uploads of addresses +- my($fh) = $q->upload('addfile'); ++ my($fh) = $q->param('addfile'); + return unless (defined($fh)); + while (<$fh>) { + next if (/^\s*$/ or /^#/); # blank, comments +@@ -563,9 +563,9 @@ + print '

'; + print $q->hidden(-name=>'state', -default=>$part); + print $q->hidden(-name=>'list', -default=>$Q::list), "\n"; +- print $q->scrolling_list(-name=>'delsubscriber', -size=>$scrollsize, -values=>\@subscribers, -multiple=>'true', -labels=>&pretty_names) if defined(@subscribers); ++ print $q->scrolling_list(-name=>'delsubscriber', -size=>$scrollsize, -values=>\@subscribers, -multiple=>'true', -labels=>&pretty_names) if (@subscribers); + print '
'; +- print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '

' if defined(@subscribers); ++ print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '

' if (@subscribers); + print $q->textfield(-name=>'addsubscriber', -size=>'40'), ' ', $HELPER{'addaddress'}, '
'; + print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' ', $HELPER{'addaddressfile'}, '
' if ($FILE_UPLOAD); + print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), '

'; >Release-Note: >Audit-Trail: >Unformatted: To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-ports" in the body of the message