Viewing file:  edit_ssl.cgi (1.59 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show a form to setup SSL
require './mysql-lib.pl';
$access{'perms'} == 1 || &error($text{'cnf_ecannot'});
&ui_print_header(undef, $text{'ssl_title'}, "", "ssl");
# Make sure config exists
$conf = &get_mysql_config();
if (!$conf) {
print &text('cnf_efile', "<tt>$config{'my_cnf'}</tt>",
"../config.cgi?$module_name"),"<p>\n";
&ui_print_footer("", $text{'index_return'});
exit;
}
($mysqld) = grep { $_->{'name'} eq 'mysqld' } @$conf;
$mysqld || &error($text{'cnf_emysqld'});
$mems = $mysqld->{'members'};
print &ui_form_start("save_ssl.cgi", "post");
print &ui_table_start($text{'ssl_header'}, "width=100%", 2);
# SSL cert file
$cert = &find_value("ssl_cert", $mems);
print &ui_table_row($text{'ssl_cert'},
&ui_opt_textbox("cert", $cert, 80, $text{'ssl_none'}).
&file_chooser_button("cert"));
# SSL key file
$key = &find_value("ssl_key", $mems);
print &ui_table_row($text{'ssl_key'},
&ui_opt_textbox("key", $key, 80, $text{'ssl_none'}).
&file_chooser_button("key"));
# SSL CA file
$ca = &find_value("ssl_ca", $mems);
print &ui_table_row($text{'ssl_ca'},
&ui_opt_textbox("ca", $ca, 80, $text{'ssl_none'}).
&file_chooser_button("ca"));
# SSL mandatory?
$req = &find_value("require_secure_transport", $mems);
print &ui_table_row($text{'ssl_req'},
&ui_yesno_radio("req", $req && lc($req) eq 'on'));
print &ui_table_end();
my @buts = ( [ "save", $text{'save'} ],
[ "restart", $text{'cnf_restart'} ] );
if (!$cert && !$key) {
push(@buts, [ "gen", $text{'ssl_gen'} ]);
}
print &ui_form_end(\@buts);
&ui_print_footer("", $text{'index_return'});
|