senselab/codekasten
4
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

most design properties moved to css

Browse source
This commit is contained in:
io 2005-01-28 23:21:05 +00:00
parent 902d50a0bd
commit bee8264b16
2 changed files with 112 additions and 45 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

67
ezmlm-web/trunk/css/default.css
View file

@ -3,6 +3,14 @@ body {
color: #000000; color: #000000;
} }
h1 {
text-align: center;
}
h2 {
text-align: center;
}
a { a {
color: #3333ff; color: #3333ff;
} }
@ -10,3 +18,62 @@ a {
a:visited { a:visited {
color: #8888ff; color: #8888ff;
} }
#warning {
text-decoration: blink;
color: #ff0000;
float: left;
}
table.error {
width: 99%;
}
table.error td {
padding: 5px;
text-align: center;
background-color: #e0e0ff;
}
table.error h2 {
color: #ff0000;
}
table.error p.msg {
font-weight: bold;
}
strong.big {
font-size: large;
}
font.helper {
font-size: -1;
}
.center {
text-align: center;
}
table {
margin-left: auto;
margin-right: auto;
}
table.left {
margin-left: 0px;
}
table hr {
text-align: center;
width: 25%;
}
table.big-pad td {
padding: 10px;
}
table.small-pad td {
padding: 5px;
}

90
ezmlm-web/trunk/ezmlm-web.cgi
View file

@ -248,7 +248,7 @@ unless (defined($q->param('state'))) {
&list_text; &list_text;
} else { } else {
print "<h1 align=center>$Q::action</h1><h2 align=center>$LANGUAGE{'nop'}</h2><hr align=\"center\" width=25%>"; print "<h1>$Q::action</h1><h2>$LANGUAGE{'nop'}</h2><hr>";
} }
# Print HTML footer and exit :) ... # Print HTML footer and exit :) ...
@ -283,7 +283,7 @@ sub select_list {
$q->delete_all; $q->delete_all;
print $q->startform; print $q->startform;
print $q->hidden(-name=>'state', -default=>'select'); print $q->hidden(-name=>'state', -default=>'select');
print '<center><table border="0" cellpadding="10"><tr><td align="center" valign="top" rowspan="2">'; print '<table class="big-pad"><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 defined(@lists);
print '</td><td align="left" valign="top">', $LANGUAGE{'chooselistinfo'}; print '</td><td align="left" valign="top">', $LANGUAGE{'chooselistinfo'};
@ -291,7 +291,7 @@ sub select_list {
print $q->submit(-name=>'action', -value=>"[$BUTTON{'create'}]"), ' ' if ((&webauth_create_allowed == 0) || (!defined($opt_c))); print $q->submit(-name=>'action', -value=>"[$BUTTON{'create'}]"), ' ' if ((&webauth_create_allowed == 0) || (!defined($opt_c)));
print $q->submit(-name=>'action', -value=>"[$BUTTON{'edit'}]"), ' ' if(defined(@lists)); 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{'delete'}]") if(defined(@lists));
print '</td></tr><tr><td> </td></tr></table></center>'; print '</td></tr><tr><td> </td></tr></table></div>';
print $q->endform; print $q->endform;
} }
@ -305,9 +305,9 @@ sub confirm_delete {
print $q->startform; print $q->startform;
print $q->hidden(-name=>'state', -default=>'confirm_delete'); print $q->hidden(-name=>'state', -default=>'confirm_delete');
print $q->hidden(-name=>'list', -default=>$q->param('list')); print $q->hidden(-name=>'list', -default=>$q->param('list'));
print '<h2 align="center">', $LANGUAGE{'confirmdelete'}, ' ', $q->param('list'), '</h3><br><center>'; print '<h2>', $LANGUAGE{'confirmdelete'}, ' ', $q->param('list'), '</h2><br><div class="center">';
print $q->submit(-name=>'confirm', -value=>"[$BUTTON{'no'}]"), ' '; print $q->submit(-name=>'confirm', -value=>"[$BUTTON{'no'}]"), ' ';
print $q->submit(-name=>'confirm', -value=>"[$BUTTON{'yes'}]"), '</center>'; print $q->submit(-name=>'confirm', -value=>"[$BUTTON{'yes'}]"), '</div>';
} }
# ------------------------------------------------------------------------ # ------------------------------------------------------------------------
@ -330,9 +330,9 @@ sub display_list {
# Print out a form of options ... # Print out a form of options ...
$q->delete('state'); $q->delete('state');
print "<h2 align=\"center\">$LANGUAGE{'subscribersto'} $Q::list ($listaddress)</h2><hr align=\"center\" width=\"25%\">"; print "<h2>$LANGUAGE{'subscribersto'} $Q::list ($listaddress)</h2><hr>";
print $q->start_multipart_form; print $q->start_multipart_form;
print '<center><table align="center" cellpadding="10"><tr><td rowspan="2" valign="top" align="center">'; print '<table class="big-pad"><tr><td rowspan="2" valign="top" align="center">';
print $q->hidden(-name=>'state', -default=>'edit'); print $q->hidden(-name=>'state', -default=>'edit');
print $q->hidden(-name=>'list', -default=>$Q::list); 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 defined(@subscribers);
@ -351,7 +351,7 @@ sub display_list {
print $q->submit(-name=>'action', -value=>"[$BUTTON{'webarchive'}]"), '<img src="', $HELP_ICON_URL, '" title="', $HELPER{'webarch'}, '"> ' if(&ezmlmcgirc); print $q->submit(-name=>'action', -value=>"[$BUTTON{'webarchive'}]"), '<img src="', $HELP_ICON_URL, '" title="', $HELPER{'webarch'}, '"> ' if(&ezmlmcgirc);
print $q->submit(-name=>'action', -value=>"[$BUTTON{'configuration'}]"), '<img src="', $HELP_ICON_URL, '" title="', $HELPER{'config'}, '">&nbsp;&nbsp;&nbsp;'; print $q->submit(-name=>'action', -value=>"[$BUTTON{'configuration'}]"), '<img src="', $HELP_ICON_URL, '" title="', $HELPER{'config'}, '">&nbsp;&nbsp;&nbsp;';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'selectlist'}]"); print $q->submit(-name=>'action', -value=>"[$BUTTON{'selectlist'}]");
print '</td></tr><tr><td> </td></tr></table></center>'; print '</td></tr><tr><td> </td></tr></table></div>';
print $q->endform; print $q->endform;
} }
@ -556,15 +556,15 @@ sub part_subscribers {
my($subpath) = $config =~ m{8\s*'([^']+)'}; my($subpath) = $config =~ m{8\s*'([^']+)'};
my($remotepath) = $config =~ m{9\s*'([^']+)'}; my($remotepath) = $config =~ m{9\s*'([^']+)'};
$moderated = '<blink><font color="#ff0000">' if ($postpath); $moderated = '<div class="warning">' if ($postpath);
$moderated .= "[$LANGUAGE{'posting'}]" if ($list->ismodpost); $moderated .= "[$LANGUAGE{'posting'}]" if ($list->ismodpost);
$moderated .= '</font><img src="' . $HELP_ICON_URL . '" title="Posting Moderators are stored in a non-standard location (' . $postpath . '). You will have to edit them manually."></blink>' if ($postpath); $moderated .= '<img src="' . $HELP_ICON_URL . '" title="Posting Moderators are stored in a non-standard location (' . $postpath . '). You will have to edit them manually."></div>' if ($postpath);
$moderated .= '<blink><font color="#ff0000">' if ($subpath); $moderated .= '<div class="warning">' if ($subpath);
$moderated .= " [$LANGUAGE{'subscription'}]" if($list->ismodsub); $moderated .= " [$LANGUAGE{'subscription'}]" if($list->ismodsub);
$moderated .= '</font><img src="' . $HELP_ICON_URL . '" title="Subscriber Moderators are stored in a non-standard location (' . $subpath . '). You will have to edit them manually"></blink>' if ($subpath); $moderated .= '<img src="' . $HELP_ICON_URL . '" title="Subscriber Moderators are stored in a non-standard location (' . $subpath . '). You will have to edit them manually"></div>' if ($subpath);
$moderated .= '<blink><font color="#ff0000">' if ($remotepath); $moderated .= '<div class="warning">' if ($remotepath);
$moderated .= " [$LANGUAGE{'remoteadmin'}]" if($list->isremote); $moderated .= " [$LANGUAGE{'remoteadmin'}]" if($list->isremote);
$moderated .= '</font><img src="' . $HELP_ICON_URL . '" title="Remote Administrators are stored in a non-standard location (' . $remotepath . '). You will have to edit them manually"></blink>' if ($remotepath); $moderated .= '<img src="' . $HELP_ICON_URL . '" title="Remote Administrators are stored in a non-standard location (' . $remotepath . '). You will have to edit them manually"></div>' if ($remotepath);
} }
@ -579,10 +579,10 @@ sub part_subscribers {
# Print out a form of options ... # Print out a form of options ...
$q->delete('state'); $q->delete('state');
print "<h2 align=\"center\">$type $LANGUAGE{'for'} $listaddress</h2><hr align=\"center\" width=\"25%\">"; print "<h2>$type $LANGUAGE{'for'} $listaddress</h2><hr>";
print "<center>$moderated</center><p>" if(defined($moderated)); print "<p class=\"center\">$moderated</p>" if(defined($moderated));
print $q->start_multipart_form; print $q->start_multipart_form;
print '<center><table align="center" cellpadding="10"><tr><td rowspan="2" valign="top" align="center">'; print '<table class="big-pad"><tr><td rowspan="2" valign="top" align="center">';
print $q->hidden(-name=>'state', -default=>$part); print $q->hidden(-name=>'state', -default=>$part);
print $q->hidden(-name=>'list', -default=>$Q::list), "\n"; 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 defined(@subscribers);
@ -592,7 +592,7 @@ sub part_subscribers {
print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' <img src="', $HELP_ICON_URL, '" title="', $HELPER{'addaddressfile'}, '"><br>' if ($FILE_UPLOAD); print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' <img src="', $HELP_ICON_URL, '" title="', $HELPER{'addaddressfile'}, '"><br>' if ($FILE_UPLOAD);
print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), '<p>'; print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), '<p>';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'subscribers'}]"); print $q->submit(-name=>'action', -value=>"[$BUTTON{'subscribers'}]");
print '</td></tr><tr><td> </td></tr></table></center>'; print '</td></tr><tr><td> </td></tr></table></div>';
print $q->endform; print $q->endform;
} }
@ -620,32 +620,33 @@ sub allow_create_list {
# Print a form of options ... # Print a form of options ...
$q->delete_all; $q->delete_all;
print '<h2 align="center">', $LANGUAGE{'createnew'}, '</h2><hr align="center" width="25%">'; print '<h2>', $LANGUAGE{'createnew'}, '</h2><hr>';
print $q->startform; print $q->startform;
print $q->hidden(-name=>'state', -value=>'create'); print $q->hidden(-name=>'state', -value=>'create');
print '<big><strong>', $LANGUAGE{'listname'}, ': </strong></big>', $q->textfield(-name=>'list', -size=>'20'), ' <img src="', $HELP_ICON_URL, '" title="', $HELPER{'listname'}, '"><p>'; print '<strong class="big">', $LANGUAGE{'listname'}, ': </strong>', $q->textfield(-name=>'list', -size=>'20'), ' <img src="', $HELP_ICON_URL, '" title="', $HELPER{'listname'}, '"><p>';
print '<big><strong>', $LANGUAGE{'listaddress'}, ': </strong></big>'; print '<strong class="big">', $LANGUAGE{'listaddress'}, ': </strong>';
print $q->textfield(-name=>'inlocal', -default=>$username, -size=>'10'); print $q->textfield(-name=>'inlocal', -default=>$username, -size=>'10');
print ' <big><strong>@</strong></big> ', $q->textfield(-name=>'inhost', -default=>$hostname, -size=>'30'), ' <img src="', $HELP_ICON_URL, '" title="', $HELPER{'listadd'}, '"><p>'; print ' <strong class="big">@</strong> ', $q->textfield(-name=>'inhost', -default=>$hostname, -size=>'30'), ' <img src="', $HELP_ICON_URL, '" title="', $HELPER{'listadd'}, '">';
print '<p><big><strong>', $LANGUAGE{'listoptions'}, ':</strong></big>'; print '<p><strong class="big">', $LANGUAGE{'listoptions'}, ':</strong>';
&display_options($DEFAULT_OPTIONS); &display_options($DEFAULT_OPTIONS);
print '</p>';
# Allow creation of mysql table if the module allows it # Allow creation of mysql table if the module allows it
if($Mail::Ezmlm::MYSQL_BASE) { if($Mail::Ezmlm::MYSQL_BASE) {
print '<p> ', $q->checkbox(-name=>'sql', -label=>$LANGUAGE{'mysqlcreate'}, -on=>1); print '<p> ', $q->checkbox(-name=>'sql', -label=>$LANGUAGE{'mysqlcreate'}, -on=>1);
print ' <img src="', $HELP_ICON_URL, '" title="', $HELPER{'mysqlcreate'}, '">'; print ' <img src="', $HELP_ICON_URL, '" title="', $HELPER{'mysqlcreate'}, '"></p>';
} }
print '<p><big><strong>', $LANGUAGE{'allowedtoedit'}, ': </strong></big>', print '<p><strong class="big">', $LANGUAGE{'allowedtoedit'}, ': </strong>',
$q->textfield(-name=>'webusers', -value=>$ENV{'REMOTE_USER'}||'ALL', -size=>'30'), ' <img src="', $HELP_ICON_URL, '" title="', $HELPER{'webusers'}, '">', $q->textfield(-name=>'webusers', -value=>$ENV{'REMOTE_USER'}||'ALL', -size=>'30'), ' <img src="', $HELP_ICON_URL, '" title="', $HELPER{'webusers'}, '">',
'<br><font size="-1">', $HELPER{'allowedit'}, '</font>' '<br><font class="helper">', $HELPER{'allowedit'}, '</font></p>'
if(-e "$WEBUSERS_FILE"); if(-e "$WEBUSERS_FILE");
print '<p>', $q->submit(-name=>'action', -value=>"[$BUTTON{'createlist'}]"), ' '; print '<p>', $q->submit(-name=>'action', -value=>"[$BUTTON{'createlist'}]"), ' ';
print $q->reset(-value=>"[$BUTTON{'resetform'}]"), ' '; print $q->reset(-value=>"[$BUTTON{'resetform'}]"), ' ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]"); print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
print '</p>';
print $q->endform; print $q->endform;
} }
@ -669,7 +670,7 @@ sub create_list {
# Sanity Checks ... # Sanity Checks ...
return 1 if ($listname eq '' || $qmail eq ''); return 1 if ($listname eq '' || $qmail eq '');
if(-e ("$LIST_DIR/$listname/lock") || -e ("$HOME_DIR/.qmail-$qmail")) { if(-e ("$LIST_DIR/$listname/lock") || -e ("$HOME_DIR/.qmail-$qmail")) {
print "<h1 align=\"center\">List '$listname' already exists :(</h1>"; print "<h1>List '$listname' already exists :(</h1>";
return 1; return 1;
} }
@ -727,7 +728,7 @@ sub list_config {
# Print a form of options ... # Print a form of options ...
$q->delete_all; $q->delete_all;
print '<h2 align="center">', $LANGUAGE{'editconfiguration'}, '</h2><hr align="center" width="25%">'; print '<h2>', $LANGUAGE{'editconfiguration'}, '</h2><hr>';
print $q->startform; print $q->startform;
print $q->hidden(-name=>'state', -value=>'configuration'); print $q->hidden(-name=>'state', -value=>'configuration');
print $q->hidden(-name=>'list', -value=>$listname); print $q->hidden(-name=>'list', -value=>$listname);
@ -866,12 +867,12 @@ sub list_text {
print $q->startform; print $q->startform;
print $q->hidden(-name=>'state', -default=>'list_text'); print $q->hidden(-name=>'state', -default=>'list_text');
print $q->hidden(-name=>'list', -default=>$q->param('list')); print $q->hidden(-name=>'list', -default=>$q->param('list'));
print '<center><table border="0" cellpadding="10" align="center"><tr><td align="center" valign="top" rowspan="2">'; print '<table class="big-pad"><tr><td align="center" valign="top" rowspan="2">';
print $q->scrolling_list(-name=>'file', -values=>\@files); print $q->scrolling_list(-name=>'file', -values=>\@files);
print '</td><td align="center" valign="top">'; print '</td><td align="center" valign="top">';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'editfile'}]"), ' '; print $q->submit(-name=>'action', -value=>"[$BUTTON{'editfile'}]"), ' ';
print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]"); print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
print '<p>', $LANGUAGE{'edittextinfo'}, '</td></tr><tr><td> </td></tr></table></center>'; print '<p>', $LANGUAGE{'edittextinfo'}, '</td></tr><tr><td> </td></tr></table></div>';
print $q->endform; print $q->endform;
} }
@ -887,8 +888,8 @@ sub edit_text {
# Print a form ... # Print a form ...
$q->delete('state'); $q->delete('state');
print '<h2 ALIGN="center">', $LANGUAGE{'editingfile'}, ': ', $Q::file, '</h2>'; print '<h2>', $LANGUAGE{'editingfile'}, ': ', $Q::file, '</h2>';
print '<center><table align="center" cellpadding="5"><tr><td valign="top" rowspan="2">'; print '<table class="small-pad"><tr><td valign="top" rowspan="2">';
print $q->startform; print $q->startform;
print $q->hidden(-name=>'state', -default=>'edit_text'); print $q->hidden(-name=>'state', -default=>'edit_text');
print $q->hidden(-name=>'list', -default=>$q->param('list')); 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 $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
print '<p>', $LANGUAGE{'editfileinfo'}; print '<p>', $LANGUAGE{'editfileinfo'};
print $q->endform; print $q->endform;
print '</td></tr><tr><td> <td></tr></table><center>' print '</td></tr><tr><td> <td></tr></table>'
} }
@ -964,7 +965,7 @@ sub display_options {
my($i, $j); my($i, $j);
print "<!-- $opts -->"; print "<!-- $opts -->";
print '<table border="0" cellpadding="3"><tr><td>'; print '<table class="small-pad" class="left"><tr><td>';
foreach $i (grep {/\D/} keys %EZMLM_LABELS) { foreach $i (grep {/\D/} keys %EZMLM_LABELS) {
if ($opts =~ /^\w*$i\w*\s*/) { if ($opts =~ /^\w*$i\w*\s*/) {
print $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0], -on=>'1'); print $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0], -on=>'1');
@ -980,7 +981,7 @@ sub display_options {
} }
print '</td></tr></table>'; print '</td></tr></table>';
print '<table border="0" celpadding="3">'; print '<table class="small-pad" class="left">';
foreach $i (grep {/\d/} keys %EZMLM_LABELS) { foreach $i (grep {/\d/} keys %EZMLM_LABELS) {
print '<tr><td>'; print '<tr><td>';
if ($opts =~ /$i (?:'(.+?)')/) { if ($opts =~ /$i (?:'(.+?)')/) {
@ -1049,17 +1050,16 @@ BEGIN {
sub handle_errors { sub handle_errors {
my $msg = shift; my $msg = shift;
print << "EOM"; print << "EOM";
</table><table width="99%" cellpadding="5" cellspacing="5" align="center"><tr> </table><table class="error"><tr><td>
<td align="center" bgcolor="#e0e0ff"> <h2>A fatal error has occoured</h2>
<h2><font color="red">A fatal error has occoured</font></h2> <p>Something you did caused this script to bail out. The error
Something you did caused this script to bail out. The error message we got was</p>
message we got was<p> <p class="msg">$msg</p>
<tt>$msg</tt><p> <p>Please try what you were doing again, checking everything you entered.<br>
Please try what you were doing again, checking everything you entered.<br>
If you still find yourself getting this error, please If you still find yourself getting this error, please
contact the <a href="mailto:webmaster\@$DEFAULT_HOST">site administrator</a> contact the <a href="mailto:webmaster\@$DEFAULT_HOST">site administrator</a>
quoting the error message above. quoting the error message above.</p>
</td></tr></table> </td></tr></table></div>
EOM EOM
} }