|
(paste your modified list config file into the field above) |
EOT
sub process_newconfig
{
local($*) = 1; # allow multi-line matches
&main::error("Before you can update the list config ",
"you must enter the listname.")
unless $main::in{"list"};
&main::error("Before you can update the list config ",
"you must enter the list admin password.")
unless $main::in{"password"};
&main::error("You must enter a new config file.")
unless $main::in{"majordomoNewconfig"};
# newconfig
#
# ...
# EOF
# Add "EOF" to the end (if it is not already there)
$main::in{"majordomoNewconfig"} .= "\nEOF\n"
unless $main::in{"majordomoNewconfig"} =~ /\s*EOF\s*$/;
"newconfig $main::in{list} " .
&hidePassword($main::in{"password"}) . "\n" .
$main::in{"majordomoNewconfig"};
}
#----------------------------------------------------------------------
# writeconfig command
#
sub process_writeconfig
{
&main::error("Before you can re-write the list config ",
"you must enter the listname.")
unless ($main::in{"list"});
&main::error("Before you can get re-write list config ",
"you must enter the list admin password.")
unless $main::in{"password"};
# writeconfig
"writeconfig $main::in{list} " . &hidePassword($main::in{"password"});
}
1;