#!/usr/local/bin/perl # edit_global.cgi # Edit global majordomo options require './majordomo-lib.pl'; &ReadParse(); $conf = &get_config(); %access = &get_module_acl(); $access{'global'} || &error($text{'global_ecannot'}); &ui_print_header(undef, $text{'global_title'}, ""); local $bcss=' style="display: box; float: left; padding: 10px;"'; print "
", &ui_submit($text{'check_title'})."
\n"; $saved = $text{'global_saved'} if $in{'saved'}; print "
\n"; print "\n"; print "\n"; print "
$text{'global_header'}
$saved
\n"; $whereami = &find_value("whereami", $conf); print "\n"; print "\n"; $whoami = &find_value("whoami", $conf); print "\n"; print "\n"; $whoami_o = &find_value("whoami_owner", $conf); print "\n"; print "\n"; $sendmail = &find_value("sendmail_command", $conf); print "\n"; print "\n"; print "\n"; print &multi_input("global_taboo_headers", $text{'access_theader'}, $conf); print "\n"; print "\n"; print &multi_input("global_taboo_body", $text{'access_tbody'}, $conf); print "\n"; print "\n"; print "
$text{'global_whereami'}
$text{'global_whoami'}
$text{'global_owner'}
$text{'global_sendmail'}", &file_chooser_button("sendmail_command", 0),"
$text{'access_taboo'}
\n"; print &ui_submit($text{'save'}),"
\n"; &ui_print_footer("", $text{'index_return'}); # hide "saved" after klick print <<'EOF'; EOF