PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show form to use a provisioning server
require './virtual-server-lib.pl';
&can_edit_templates() || &error($text{'provision_ecannot'});
&ui_print_header(undef, $text{'provision_title'}, "", "provision");
&ReadParse();
print &ui_form_start("save_provision.cgi");
print &ui_table_start($text{'provision_header'}, undef, 2);
# Central provisioning server
$cm = $config{'provision_server'} eq $cloudmin_provisioning_server ? 1 : 0;
$js = "onClick='form.provision_server.disabled = ".
"form.provision_port.disabled = form.provision_ssl.disabled = checked;'";
print &ui_table_row($text{'provision_server'},
&ui_checkbox("provision_cloudmin", 1, $text{'provision_cloudmin'},
$cm, $js)."<br>\n".
&ui_textbox("provision_server", $config{'provision_server'}, 40, $cm));
# Server port and SSL
$config{'provision_port'} ||= 10000;
$config{'provision_ssl'} = 1 if ($config{'provision_ssl'} eq '');
print &ui_table_row($text{'provision_port'},
&ui_textbox("provision_port", $config{'provision_port'}, 6, $cm)." ".
&ui_checkbox("provision_ssl", 1, $text{'provision_ssl'},
$config{'provision_ssl'}, undef, $cm));
# Login name
print &ui_table_row($text{'provision_user'},
&ui_textbox("provision_user", $config{'provision_user'}, 40,
undef, 0, "autocomplete=off"));
# Password
print &ui_table_row($text{'provision_pass'},
&ui_password("provision_pass", $config{'provision_pass'}, 40,
undef, 0, "autocomplete=off"));
# Features to use
print &ui_table_row($text{'provision_features'},
join("<br>\n",
map { &ui_checkbox("provision_".$_, 1, $text{'provision_'.$_},
$config{'provision_'.$_}) }
&list_provision_features()));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'save'} ] ]);
&ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`