/usr/share/usermin/gray-theme
Edit: /usr/share/usermin/gray-theme/edit_right.cgi (3865B)
#!/usr/bin/perl
# Show a form for configuring what gets dislayed on the right frame
require "gray-theme/gray-theme-lib.pl";
require "gray-theme/theme.pl";
($hasvirt, $level, $hasvm2) = &get_virtualmin_user_level();
$sects = &get_right_frame_sections();
!$sects->{'global'} ||
$hasvirt && &virtual_server::master_admin() ||
$hasvm2 && !$server_manager::access{'owner'} ||
&error($text{'edright_ecannot'});
&ui_print_header(undef, $text{'edright_title'}, "", undef, 0, 1, 1);
print &ui_form_start("save_right.cgi", "post");
print &ui_table_start($text{'edright_header'}, undef ,2);
# Visible sections
my @right_frame_sects = &list_right_frame_sections();
if (@right_frame_sects) {
print &ui_table_row($text{'edright_sects'},
join("
\n", map { &ui_checkbox($_->{'name'}, 1, $_->{'title'},
!$sects->{'no'.$_->{'name'}}) }
@right_frame_sects));
}
if ($hasvirt || $hasvm2) {
# Show list by default
print &ui_table_row($text{'edright_list'},
&ui_radio("list", $sects->{'list'} || 0,
[ [ 0, $text{'edright_list0'} ],
$hasvirt ? ( [ 1, $text{'edright_list1'} ] ) : ( ),
$hasvm2 ? ( [ 2, $text{'edright_list2'} ] ) : ( ),
]));
}
# Alternate page
print &ui_table_row($text{'edright_alt'},
&ui_opt_textbox("alt", $sects->{'alt'}, 40, $text{'edright_altdef'}."
",
$text{'edright_alturl'}));
# Default tab
if ($hasvirt || $hasvm2) {
print &ui_table_row($text{'edright_deftab'},
&ui_select("tab", $sects->{'tab'},
[ [ "", $text{'edright_tab1'} ],
$hasvirt ? ( [ "virtualmin", $text{'edright_virtualmin'} ] ) : ( ),
$hasvm2 ? ( [ "vm2", $text{'edright_vm2'} ] ) : ( ),
[ "webmin", $text{'edright_webmin'} ] ]));
}
# Left frame size
print &ui_table_row($text{'edright_fsize'},
&ui_opt_textbox("fsize", $sects->{'fsize'}, 6, $text{'edright_fsizedef'}).
" ".$text{'edright_pixels'});
# Show search box
print &ui_table_row($text{'edright_search'},
&ui_yesno_radio("search", !$sects->{'nosearch'}));
if ($hasvirt) {
# Default domain
print &ui_table_row($text{'edright_dom'},
&ui_select("dom", $sects->{'dom'},
[ [ "", $text{'edright_first'} ],
map { [ $_->{'id'}, &virtual_server::show_domain_name($_) ] }
grep { &virtual_server::can_edit_domain($_) }
sort { $a->{'dom'} cmp $b->{'dom'} }
&virtual_server::list_domains() ]));
# Sort quotas by bytes or percent
print &ui_table_row($text{'edright_qsort'},
&ui_radio("qsort", int($sects->{'qsort'}),
[ [ 1, $text{'edright_qsort1'} ],
[ 0, $text{'edright_qsort0'} ] ]));
# Show quotas as bytes or percent
print &ui_table_row($text{'edright_qshow'},
&ui_radio("qshow", int($sects->{'qshow'}),
[ [ 1, $text{'edright_qsort1'} ],
[ 0, $text{'edright_qsort0'} ] ]));
# Number of servers to show
print &ui_table_row($text{'edright_max'},
&ui_opt_textbox("max", $sects->{'max'}, 5,
$text{'default'}." ($default_domains_to_show)"));
}
if ($hasvm2) {
# Default Cloudmin server
@servers = &server_manager::list_available_managed_servers_sorted();
print &ui_table_row($text{'edright_server'},
&ui_select("server", $sects->{'server'},
[ [ "", $text{'edright_first'} ],
map { [ $_->{'id'}, $_->{'host'} ] } @servers ]));
}
if ($hasvirt && &virtual_server::master_admin() ||
$hasvm2 && &server_manager::can_action(undef, "global")) {
# Allow changing
print &ui_table_row($text{'edright_global'},
&ui_yesno_radio("global", int($sects->{'global'})));
# Show Webmin category
print &ui_table_row($text{'edright_nowebmin'},
&ui_radio("nowebmin", int($sects->{'nowebmin'}),
[ [ 0, $text{'yes'} ],
[ 1, $text{'no'} ],
[ 2, $text{'edright_others'} ] ]));
}
print &ui_table_end();
print &ui_form_end([ [ "save", $text{'save'} ] ]);
&ui_print_footer("right.cgi", $text{'right_return'});