mirror of
https://git.FreeBSD.org/ports.git
synced 2024-10-24 21:01:20 +00:00
67 lines
4.6 KiB
Plaintext
67 lines
4.6 KiB
Plaintext
--- ezmlm-web.cgi.orig Mon Sep 25 21:58:08 2000
|
|
+++ ezmlm-web.cgi Wed Sep 19 09:19:05 2001
|
|
@@ -76,6 +76,10 @@
|
|
require "$opt_C"; # Command Line
|
|
} elsif(-e "$HOME_DIR/.ezmlmwebrc") {
|
|
require "$HOME_DIR/.ezmlmwebrc"; # User
|
|
+} elsif(-e "/usr/local/etc/ezmlm/ezmlmwebrc") {
|
|
+ require "/usr/local/etc/ezmlm/ezmlmwebrc"; # FreeBSD
|
|
+} elsif(-e "/usr/local/etc/ezmlmwebrc") {
|
|
+ require "/usr/local/etc/ezmlmwebrc"; # FreeBSD alt
|
|
} elsif(-e "/etc/ezmlm/ezmlmwebrc") {
|
|
require "/etc/ezmlm/ezmlmwebrc"; # System
|
|
} elsif(-e "./ezmlmwebrc") {
|
|
@@ -281,13 +285,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 +336,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 +451,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 +567,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>';
|