Viewing file:  provision.cgi (1.54 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/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);
print &ui_table_row($text{'provision_server'},
&ui_textbox("provision_server", $config{'provision_server'}, 40));
# 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)." ".
&ui_checkbox("provision_ssl", 1, $text{'provision_ssl'},
$config{'provision_ssl'}, undef));
# 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=new-password"));
# 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'} ] ]);
if ($config{'provision_dns'}) {
print "<p>",&text('dnsclouds_tmpl',
"edit_tmpl.cgi?id=0&editmode=dns"),"</p>\n";
}
&ui_print_footer("", $text{'index_return'});
|