additional config pages do not need changes to the cgi code anymore

increased textarea size in textfile_edit
changed author field of html header
splitted config_filter to config_posting and config_processing
This commit is contained in:
lars 2005-12-23 18:10:08 +00:00
parent 1f5946bb1d
commit fa7bd2c6c7
13 changed files with 119 additions and 91 deletions

View file

@ -200,26 +200,11 @@ elsif ($action eq '' || $action eq 'list_select') {
}
} elsif (($action eq 'config_ask') || ($action eq 'config_do')) {
# User wants to see/change the configuration ...
if (defined($q->param('list'))) {
my $subset = $q->param('config_subset');
if (defined($q->param('list')) && ($subset ne '')
&& ($subset =~ /^[\w]*$/) && (-e "$TEMPLATE_DIR/config_$subset" . ".cs")) {
$success = 'UpdateConfig' if (($action eq 'config_do') && &update_config());
if ($q->param('config_subset') eq 'subscription') {
$pagename = 'config_subscription';
} elsif ($q->param('config_subset') eq 'posting') {
$pagename = 'config_posting';
} elsif ($q->param('config_subset') eq 'archive') {
$pagename = 'config_archive';
} elsif ($q->param('config_subset') eq 'admin') {
$pagename = 'config_admin';
} elsif ($q->param('config_subset') eq 'filter') {
$pagename = 'config_filter';
} elsif ($q->param('config_subset') eq 'main') {
$pagename = 'config_main';
} elsif (defined($q->param('part'))) {
$pagename = 'subscribers';
} else {
$error = 'ParameterMissing';
$pagename = 'list_select';
}
$pagename = 'config_' . $subset;
} else {
$error = 'ParameterMissing';
$pagename = 'list_select';