';
+ 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);
@@ -592,7 +592,7 @@ sub part_subscribers {
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,32 +620,33 @@ 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);
+ print '
';
# 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 '
';
}
- print '', $LANGUAGE{'allowedtoedit'}, ': ',
+ print '
', $LANGUAGE{'allowedtoedit'}, ': ',
$q->textfield(-name=>'webusers', -value=>$ENV{'REMOTE_USER'}||'ALL', -size=>'30'), ' ',
- '
', $HELPER{'allowedit'}, ''
+ '
', $HELPER{'allowedit'}, '
'
if(-e "$WEBUSERS_FILE");
print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'createlist'}]"), ' ';
print $q->reset(-value=>"[$BUTTON{'resetform'}]"), ' ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
+ print '
';
print $q->endform;
}
@@ -669,7 +670,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,7 +728,7 @@ 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);
@@ -866,12 +867,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 $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,8 +888,8 @@ 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'));
@@ -900,7 +901,7 @@ sub edit_text {
print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
print ' ', $LANGUAGE{'editfileinfo'};
print $q->endform;
- print ' | | | '
+ print ' |
| |
'
}
@@ -964,7 +965,7 @@ 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');
@@ -980,7 +981,7 @@ sub display_options {
}
print ' | ';
- print '';
+ print '';
foreach $i (grep {/\d/} keys %EZMLM_LABELS) {
print '';
if ($opts =~ /$i (?:'(.+?)')/) {
@@ -1049,17 +1050,16 @@ BEGIN {
sub handle_errors {
my $msg = shift;
print << "EOM";
- |
-
- A fatal error has occoured
- Something you did caused this script to bail out. The error
- message we got was
- $msg
- Please try what you were doing again, checking everything you entered.
+ |
+ A fatal error has occoured
+ Something you did caused this script to bail out. The error
+ message we got was
+ $msg
+ Please try what you were doing again, checking everything you entered.
If you still find yourself getting this error, please
contact the site administrator
- quoting the error message above.
- |
+ quoting the error message above.
+
EOM
}
|