From 3bda5229b38fa075daf5da495e77075d903ebb28 Mon Sep 17 00:00:00 2001
From: io <>
Date: Sat, 22 Jan 2005 03:37:04 +0000
Subject: [PATCH] all html-tags converted to lowercase (for xhtml-comliance)
(this was suggested by
http://rucus.ru.ac.za/~guy/ezmlm/contrib/ezmlm-web-andrew-pam-20030520.txt)
---
ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi | 164 ++++++++++----------
1 file changed, 81 insertions(+), 83 deletions(-)
diff --git a/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi b/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi
index 133f4ce..5ae4a06 100755
--- a/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi
+++ b/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi
@@ -242,7 +242,7 @@ unless (defined($q->param('state'))) {
&list_text;
} else {
- print "
$Q::action
$LANGUAGE{'nop'}
";
+ print "$Q::action
$LANGUAGE{'nop'}
";
}
# Print HTML footer and exit :) ...
@@ -283,15 +283,15 @@ sub select_list {
$q->delete_all;
print $q->startform;
print $q->hidden(-name=>'state', -default=>'select');
- print '';
+ print '';
print $q->scrolling_list(-name=>'list', -size=>$scrollsize, -values=>\@lists) if defined(@lists);
- print ' | ', $LANGUAGE{'chooselistinfo'};
+ print ' | ', $LANGUAGE{'chooselistinfo'};
print $q->submit(-name=>'action', -value=>"[$BUTTON{'create'}]"), ' ' if (&webauth_create_allowed == 0);
print $q->submit(-name=>'action', -value=>"[$BUTTON{'edit'}]"), ' ' if(defined(@lists));
print $q->submit(-name=>'action', -value=>"[$BUTTON{'delete'}]") if(defined(@lists));
- print ' | | ';
+ print ' |
|
';
print $q->endform;
}
@@ -305,9 +305,9 @@ sub confirm_delete {
print $q->startform;
print $q->hidden(-name=>'state', -default=>'confirm_delete');
print $q->hidden(-name=>'list', -default=>$q->param('list'));
- print '', $LANGUAGE{'confirmdelete'}, ' ', $q->param('list'), '
';
+ print '', $LANGUAGE{'confirmdelete'}, ' ', $q->param('list'), '
';
print $q->submit(-name=>'confirm', -value=>"[$BUTTON{'no'}]"), ' ';
- print $q->submit(-name=>'confirm', -value=>"[$BUTTON{'yes'}]"), '';
+ print $q->submit(-name=>'confirm', -value=>"[$BUTTON{'yes'}]"), '
';
}
# ------------------------------------------------------------------------
@@ -330,28 +330,28 @@ sub display_list {
# Print out a form of options ...
$q->delete('state');
- print "$LANGUAGE{'subscribersto'} $Q::list ($listaddress)
";
+ print "$LANGUAGE{'subscribersto'} $Q::list ($listaddress)
";
print $q->start_multipart_form;
- print '';
+ 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 ' | ';
+ print ' | ';
print ' ', ($#subscribers + 1), ' ', $LANGUAGE{'subscribers'}, ' ' if defined(@subscribers);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '' if defined(@subscribers);
- print $q->textfield(-name=>'addsubscriber', -size=>'40'), ' ';
- print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' ' if ($FILE_UPLOAD);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), ' ';
- print '', $LANGUAGE{'additionalparts'}, ': ' if($list->ismodpost || $list->ismodsub || $list->isremote || $list->isdeny || $list->isallow || $list->isdigest);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'moderators'}]"), ' ' if ($list->ismodpost || $list->ismodsub || $list->isremote);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'denylist'}]"), ' ' if ($list->isdeny);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'allowlist'}]"), ' ' if ($list->isallow);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'digestsubscribers'}]"), ' ' if ($list->isdigest);
- print ' ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'webarchive'}]"), ' ' if(&ezmlmcgirc);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'configuration'}]"), ' ';
+ print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), ' ' if defined(@subscribers);
+ print $q->textfield(-name=>'addsubscriber', -size=>'40'), ' ';
+ print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' ' if ($FILE_UPLOAD);
+ print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), ' ';
+ print '', $LANGUAGE{'additionalparts'}, ': ' if($list->ismodpost || $list->ismodsub || $list->isremote || $list->isdeny || $list->isallow || $list->isdigest);
+ print $q->submit(-name=>'action', -value=>"[$BUTTON{'moderators'}]"), ' ' if ($list->ismodpost || $list->ismodsub || $list->isremote);
+ print $q->submit(-name=>'action', -value=>"[$BUTTON{'denylist'}]"), ' ' if ($list->isdeny);
+ print $q->submit(-name=>'action', -value=>"[$BUTTON{'allowlist'}]"), ' ' if ($list->isallow);
+ print $q->submit(-name=>'action', -value=>"[$BUTTON{'digestsubscribers'}]"), ' ' if ($list->isdigest);
+ print ' ';
+ print $q->submit(-name=>'action', -value=>"[$BUTTON{'webarchive'}]"), ' ' if(&ezmlmcgirc);
+ print $q->submit(-name=>'action', -value=>"[$BUTTON{'configuration'}]"), ' ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'selectlist'}]");
- print ' | | ';
+ print ' |
|
';
print $q->endform;
}
@@ -556,15 +556,15 @@ sub part_subscribers {
my($subpath) = $config =~ m{8\s*'([^']+)'};
my($remotepath) = $config =~ m{9\s*'([^']+)'};
- $moderated = '' if ($remotepath);
}
@@ -579,20 +579,20 @@ sub part_subscribers {
# Print out a form of options ...
$q->delete('state');
- print "$type $LANGUAGE{'for'} $listaddress
";
- print "$moderated
" if(defined($moderated));
+ print "
$type $LANGUAGE{'for'} $listaddress
";
+ print "$moderated" if(defined($moderated));
print $q->start_multipart_form;
- print '
';
+ 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 ' | ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), ' ' if defined(@subscribers);
- print $q->textfield(-name=>'addsubscriber', -size=>'40'), ' ';
- print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' ' if ($FILE_UPLOAD);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), ' ';
+ print ' | ';
+ print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), ' ' if defined(@subscribers);
+ print $q->textfield(-name=>'addsubscriber', -size=>'40'), ' ';
+ print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' ' if ($FILE_UPLOAD);
+ print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), ' ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'subscribers'}]");
- print ' | | ';
+ print ' |
|
';
print $q->endform;
}
@@ -620,30 +620,30 @@ sub allow_create_list {
# Print a form of options ...
$q->delete_all;
- print '', $LANGUAGE{'createnew'}, '
';
+ print '', $LANGUAGE{'createnew'}, '
';
print $q->startform;
print $q->hidden(-name=>'state', -value=>'create');
- print '', $LANGUAGE{'listname'}, ': ', $q->textfield(-name=>'list', -size=>'20'), ' ';
- print '', $LANGUAGE{'listaddress'}, ': ';
+ print '', $LANGUAGE{'listname'}, ': ', $q->textfield(-name=>'list', -size=>'20'), '
';
+ print '', $LANGUAGE{'listaddress'}, ': ';
print $q->textfield(-name=>'inlocal', -default=>$username, -size=>'10');
- print ' @ ', $q->textfield(-name=>'inhost', -default=>$hostname, -size=>'30'), '
';
+ print ' @ ', $q->textfield(-name=>'inhost', -default=>$hostname, -size=>'30'), '
';
- print '
', $LANGUAGE{'listoptions'}, ':';
+ print '
', $LANGUAGE{'listoptions'}, ':';
&display_options($DEFAULT_OPTIONS);
# Allow creation of mysql table if the module allows it
if($Mail::Ezmlm::MYSQL_BASE) {
- print '
', $q->checkbox(-name=>'sql', -label=>$LANGUAGE{'mysqlcreate'}, -on=>1);
- print ' ';
+ print '
', $q->checkbox(-name=>'sql', -label=>$LANGUAGE{'mysqlcreate'}, -on=>1);
+ print ' ';
}
- print '
', $LANGUAGE{'allowedtoedit'}, ': ',
- $q->textfield(-name=>'webusers', -value=>$ENV{'REMOTE_USER'}||'ALL', -size=>'30'), ' ',
- '
', $HELPER{'allowedit'}, ''
+ print '
', $LANGUAGE{'allowedtoedit'}, ': ',
+ $q->textfield(-name=>'webusers', -value=>$ENV{'REMOTE_USER'}||'ALL', -size=>'30'), ' ',
+ '
', $HELPER{'allowedit'}, ''
if(-e "$LIST_DIR/webusers");
- print '
', $q->submit(-name=>'action', -value=>"[$BUTTON{'createlist'}]"), ' ';
+ print '
', $q->submit(-name=>'action', -value=>"[$BUTTON{'createlist'}]"), ' ';
print $q->reset(-value=>"[$BUTTON{'resetform'}]"), ' ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
print $q->endform;
@@ -669,7 +669,7 @@ sub create_list {
# Sanity Checks ...
return 1 if ($listname eq '' || $qmail eq '');
if(-e ("$LIST_DIR/$listname/lock") || -e ("$HOME_DIR/.qmail-$qmail")) {
- print "
List '$listname' already exists :(
";
+ print "List '$listname' already exists :(
";
return 1;
}
@@ -727,13 +727,13 @@ sub list_config {
# Print a form of options ...
$q->delete_all;
- print '', $LANGUAGE{'editconfiguration'}, '
';
+ print '', $LANGUAGE{'editconfiguration'}, '
';
print $q->startform;
print $q->hidden(-name=>'state', -value=>'configuration');
print $q->hidden(-name=>'list', -value=>$listname);
- print '', $LANGUAGE{'listname'}, ": $listname
";
- print "$LANGUAGE{'listaddress'}: $listaddress";
- print '', $LANGUAGE{'listoptions'}, ':
';
+ print '', $LANGUAGE{'listname'}, ": $listname
";
+ print "$LANGUAGE{'listaddress'}: $listaddress
";
+ print '', $LANGUAGE{'listoptions'}, ':
';
# Print a list of options, selecting the ones that apply to this list ...
&display_options($list->getconfig);
@@ -744,10 +744,10 @@ sub list_config {
$mimeremove = $list->getpart('mimeremove');
$prefix = $list->getpart('prefix');
- print '
', $LANGUAGE{'prefix'}, ': ', $q->textfield(-name=>'prefix', -default=>$prefix, -size=>12), ' ' if defined($prefix);
- print '
', $LANGUAGE{'headerremove'}, ':
', $q->textarea(-name=>'headerremove', -default=>$headerremove, -rows=>5, -columns=>70);
- print '
', $LANGUAGE{'headeradd'}, ':
', $q->textarea(-name=>'headeradd', -default=>$headeradd, -rows=>5, -columns=>70);
- print '
', $LANGUAGE{'mimeremove'}, ':
', $q->textarea(-name=>'mimeremove', -default=>$mimeremove, -rows=>5, -columns=>70) if defined($mimeremove);
+ print '
', $LANGUAGE{'prefix'}, ': ', $q->textfield(-name=>'prefix', -default=>$prefix, -size=>12), ' ' if defined($prefix);
+ print '
', $LANGUAGE{'headerremove'}, ':
', $q->textarea(-name=>'headerremove', -default=>$headerremove, -rows=>5, -columns=>70);
+ print '
', $LANGUAGE{'headeradd'}, ':
', $q->textarea(-name=>'headeradd', -default=>$headeradd, -rows=>5, -columns=>70);
+ print '
', $LANGUAGE{'mimeremove'}, ':
', $q->textarea(-name=>'mimeremove', -default=>$mimeremove, -rows=>5, -columns=>70) if defined($mimeremove);
if(open(WEBUSER, "<$LIST_DIR/webusers")) {
my($webusers);
@@ -757,13 +757,13 @@ sub list_config {
close WEBUSER;
$webusers ||= $ENV{'REMOTE_USER'} || 'ALL';
- print '
', $LANGUAGE{'allowedtoedit'}, ': ',
- $q->textfield(-name=>'webusers', -value=>$webusers, -size=>'30'), ' ',
- '
', $HELPER{'allowedit'}, '';
+ print '
', $LANGUAGE{'allowedtoedit'}, ': ',
+ $q->textfield(-name=>'webusers', -value=>$webusers, -size=>'30'), ' ',
+ '
', $HELPER{'allowedit'}, '';
}
- print '
', $q->submit(-name=>'action', -value=>"[$BUTTON{'updateconfiguration'}]"), ' ';
+ print '
', $q->submit(-name=>'action', -value=>"[$BUTTON{'updateconfiguration'}]"), ' ';
print $q->reset(-value=>"[$BUTTON{'resetform'}]"), ' ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]"), ' ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'edittexts'}]");
@@ -866,12 +866,12 @@ sub list_text {
print $q->startform;
print $q->hidden(-name=>'state', -default=>'list_text');
print $q->hidden(-name=>'list', -default=>$q->param('list'));
- print '
';
+ print '';
print $q->scrolling_list(-name=>'file', -values=>\@files);
- print ' | ';
+ print ' | ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'editfile'}]"), ' ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
- print ' ', $LANGUAGE{'edittextinfo'}, ' | | ';
+ print '', $LANGUAGE{'edittextinfo'}, ' |
|
';
print $q->endform;
}
@@ -887,20 +887,20 @@ sub edit_text {
# Print a form ...
$q->delete('state');
- print '', $LANGUAGE{'editingfile'}, ': ', $Q::file, '
';
- print '';
+ print '', $LANGUAGE{'editingfile'}, ': ', $Q::file, '';
+ print '';
print $q->startform;
print $q->hidden(-name=>'state', -default=>'edit_text');
print $q->hidden(-name=>'list', -default=>$q->param('list'));
print $q->hidden(-name=>'file', -default=>$q->param('file'));
print $q->textarea(-name=>'content', -default=>$content, -rows=>'25', -columns=>'72');
- print ' | ';
+ print ' | ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'savefile'}]"), ' ';
print $q->reset(-value=>"[$BUTTON{'resetform'}]"), ' ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
- print ' ', $LANGUAGE{'editfileinfo'};
+ print ' ', $LANGUAGE{'editfileinfo'};
print $q->endform;
- print ' | | | '
+ print ' |
| |
'
}
@@ -958,37 +958,37 @@ sub display_options {
my($i, $j);
print "";
- print '';
+ print '';
foreach $i (grep {/\D/} keys %EZMLM_LABELS) {
if ($opts =~ /^\w*$i\w*\s*/) {
print $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0], -on=>'1');
} else {
print $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0]);
}
- print '';
- print ' | '; $j++;
+ print '';
+ print ''; $j++;
if ($j >= 3) {
- $j = 0; print ' ';
+ $j = 0; print ' ';
}
- print '';
+ print ' | ';
}
- print ' | ';
+ print ' |
';
- print '';
+ print '';
foreach $i (grep {/\d/} keys %EZMLM_LABELS) {
- print '';
+ print ' |
';
if ($opts =~ /$i (?:'(.+?)')/) {
print $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0], -on=>'1');
} else {
print $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0]);
}
- print '';
- print ' | ';
+ print '';
+ print ' | ';
print $q->textfield(-name=>"$i-value", -value=>$1||$EZMLM_LABELS{$i}[2], -size=>30);
- print ' |
';
+ print '';
}
- print '
';
+ print '
';
}
@@ -1077,8 +1077,6 @@ ezmlm-web [B<-c>] [B<-C> EFE] [B<-d> EF
=over 4
-=item B<-c> Disable list configuration
-
=item B<-C> Specify an alternate configuration file given as F
If not specified, ezmlm-web checks first in the users home directory, then in
F and then the current directory