diff options
| -rw-r--r-- | mail/ezmlm-web/Makefile | 1 | ||||
| -rw-r--r-- | mail/ezmlm-web/files/patch-aa | 55 |
2 files changed, 56 insertions, 0 deletions
diff --git a/mail/ezmlm-web/Makefile b/mail/ezmlm-web/Makefile index ae9268019a53..868f5cb1df8d 100644 --- a/mail/ezmlm-web/Makefile +++ b/mail/ezmlm-web/Makefile @@ -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 --git a/mail/ezmlm-web/files/patch-aa b/mail/ezmlm-web/files/patch-aa new file mode 100644 index 000000000000..86924531332e --- /dev/null +++ b/mail/ezmlm-web/files/patch-aa @@ -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 '<CENTER><TABLE BORDER="0" CELLPADDING="10"><TR><TD ALIGN="center" VALIGN="top" ROWSPAN="2">'; +- 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 '</TD><TD ALIGN="left" VALIGN="top">', $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 '</TD></TR><TR><TD> </TD></TR></TABLE></CENTER>'; + print $q->endform; + } +@@ -332,10 +332,10 @@ + print '<CENTER><TABLE ALIGN="center" CELLPADDING="10"><TR><TD ROWSPAN="2" VALIGN="top" ALIGN="center">'; + 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 '</TD><TD VALIGN="top" ALIGN="left">'; +- print ' ', ($#subscribers + 1), ' ', $LANGUAGE{'subscribers'}, '<BR>' if defined(@subscribers); +- print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '<P>' if defined(@subscribers); ++ print ' ', ($#subscribers + 1), ' ', $LANGUAGE{'subscribers'}, '<BR>' if (@subscribers); ++ print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '<P>' if (@subscribers); + print $q->textfield(-name=>'addsubscriber', -size=>'40'), ' <IMG SRC="', $HELP_ICON_URL, '" ALT="', $HELPER{'addaddress'}, '"><BR>'; + print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' <IMG SRC="', $HELP_ICON_URL, '" ALT="', $HELPER{'addaddressfile'}, '"><br>' if ($FILE_UPLOAD); + print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), '<P>'; +@@ -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 '<CENTER><TABLE ALIGN="center" CELLPADDING="10"><TR><TD ROWSPAN="2" VALIGN="top" ALIGN="center">'; + 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 '</TD></TR><TR><TD VALIGN="top" ALIGN="left">'; +- print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '<P>' if defined(@subscribers); ++ print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '<P>' if (@subscribers); + print $q->textfield(-name=>'addsubscriber', -size=>'40'), ' <IMG SRC="', $HELP_ICON_URL, '" ALT="', $HELPER{'addaddress'}, '"><BR>'; + print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' <IMG SRC="', $HELP_ICON_URL, '" ALT="', $HELPER{'addaddressfile'}, '"><br>' if ($FILE_UPLOAD); + print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), '<P>'; |