mirror of
https://github.com/webmin/webmin.git
synced 2026-02-10 01:02:19 +00:00
52 lines
1.7 KiB
Perl
Executable File
52 lines
1.7 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_startpage.cgi
|
|
# Startpage config form
|
|
|
|
require './webmin-lib.pl';
|
|
&ui_print_header(undef, $text{'startpage_title'}, "");
|
|
|
|
print $text{'startpage_intro2'},"<p>\n";
|
|
|
|
print &ui_form_start("change_startpage.cgi", "post");
|
|
print &ui_table_start($text{'startpage_title'}, undef, 2);
|
|
|
|
print &ui_table_row($text{'startpage_nocol'},
|
|
&ui_opt_textbox("nocols", $gconfig{'nocols'}, 5, $text{'default'}));
|
|
|
|
print &ui_table_row($text{'startpage_tabs'},
|
|
&ui_radio("notabs", $gconfig{'notabs'} ? 1 : 0,
|
|
[ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
|
|
|
|
@modules = &get_all_module_infos();
|
|
%cats = &list_categories(\@modules);
|
|
print &ui_table_row($text{'startpage_deftab'},
|
|
&ui_select("deftab", $gconfig{'deftab'} || 'webmin',
|
|
[ map { [ $_, $cats{$_} ] }
|
|
sort { $cats{$a} cmp $cats{$b} } (keys %cats) ]));
|
|
|
|
print &ui_table_row($text{'startpage_nohost'},
|
|
&ui_radio("nohostname", $gconfig{'nohostname'} ? 1 : 0,
|
|
[ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
|
|
|
|
print &ui_table_row($text{'startpage_gotoone'},
|
|
&ui_yesno_radio("gotoone", int($gconfig{'gotoone'})));
|
|
|
|
print &ui_table_row($text{'startpage_gotomodule'},
|
|
&ui_select("gotomodule", $gconfig{'gotomodule'},
|
|
[ [ "", $text{'startpage_gotonone'} ],
|
|
map { [ $_->{'dir'}, $_->{'desc'} ] }
|
|
sort { $a->{'desc'} cmp $b->{'desc'} }
|
|
grep { !$_->{'hidden'} && !$_->{'webmin_hidden'} } @modules ]));
|
|
|
|
print &ui_table_row($text{'startpage_webminup'},
|
|
&ui_yesno_radio("webminup", !$gconfig{'nowebminup'}));
|
|
|
|
print &ui_table_row($text{'startpage_moduleup'},
|
|
&ui_yesno_radio("moduleup", !$gconfig{'nomoduleup'}));
|
|
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ "", $text{'save'} ] ]);
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|