mirror of
https://github.com/webmin/webmin.git
synced 2026-02-06 07:22:20 +00:00
48 lines
1.6 KiB
Perl
Executable File
48 lines
1.6 KiB
Perl
Executable File
#!/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 "<div $bcss>".ui_form_start("check_inst.cgi", "post").
|
|
&ui_submit($text{'check_title'}).ui_form_end()."</div>";
|
|
|
|
print ui_form_start('save_global.cgi', 'post');
|
|
print ui_table_start(&text('global_header'), undef, 2);
|
|
|
|
$whereami = &find_value("whereami", $conf);
|
|
print ui_columns_row(["<b>$text{'global_whereami'}</b>", ui_textbox('whereami', $whereami, 40)], undef);
|
|
|
|
$whoami = &find_value("whoami", $conf);
|
|
print ui_columns_row(["<b>$text{'global_whoami'}</b>", ui_textbox('whoami', $whoami, 40)], undef);
|
|
|
|
$whoami_o = &find_value("whoami_owner", $conf);
|
|
print ui_columns_row(["<b>$text{'global_owner'}</b>", ui_textbox('whoami_owner', $whoami_o, 40)], undef);
|
|
|
|
$sendmail = &find_value("sendmail_command", $conf);
|
|
print ui_columns_row(["<b>$text{'global_sendmail'}</b>", ui_textbox('whoami_command', $sendmail, 40).
|
|
&file_chooser_button("sendmail_command", 0)], undef);
|
|
|
|
print "<tr>\n";
|
|
print &multi_input("global_taboo_headers", $text{'access_theader'}, $conf);
|
|
print "</tr>\n";
|
|
|
|
print "<tr>\n";
|
|
print &multi_input("global_taboo_body", $text{'access_tbody'}, $conf);
|
|
print "</tr>\n";
|
|
|
|
print ui_table_span(ui_alert_box($text{'access_taboo'}, 'info'));
|
|
|
|
print ui_table_end();
|
|
print &ui_submit($text{'save'}), ui_form_end();
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|