Viewing file:  edit_newmysqls.cgi (3.12 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show a list of known remote MySQL servers
require './virtual-server-lib.pl';
&can_edit_templates() || &error($text{'newmysqls_ecannot'});
&ui_print_header(undef, $text{'newmysqls_title'}, "", "newmysqls");
# Show a table of current servers
@alldoms = &list_domains();
print &ui_form_start("delete_newmysqls.cgi");
print &ui_columns_start(
[ "", $text{'newmysqls_host'}, $text{'newmysqls_ver'},
$text{'newmysqls_doms'}, $text{'newmysqls_def'},
$text{'newmysqls_creator'}, $text{'newmysqls_actions'} ]);
foreach my $mm (&list_remote_mysql_modules(),
&list_remote_postgres_modules()) {
if ($mm->{'dbtype'} eq 'mysql') {
@doms = grep { $_->{'mysql'} &&
($_->{'mysql_module'} || 'mysql') eq
$mm->{'minfo'}->{'dir'} } @alldoms;
}
else {
@doms = grep { $_->{'postgres'} &&
($_->{'postgres_module'} || 'postgresql') eq
$mm->{'minfo'}->{'dir'} } @alldoms;
}
$doms = !@doms ? $text{'newmysqls_none'} :
@doms > 5 ? &text('newmysqls_dcount', scalar(@doms)) :
join(", ", map { &show_domain_name($_) } @doms);
if ($mm->{'dbtype'} eq 'mysql') {
($ver, $variant, $err) = &get_dom_remote_mysql_version(
$mm->{'minfo'}->{'dir'});
}
else {
($ver, $variant, $err) = &get_dom_remote_postgres_version(
$mm->{'minfo'}->{'dir'});
}
$vstr = $err || &text('newmysqls_ver'.$variant, $ver);
print &ui_checked_columns_row([
$mm->{'desc'},
$vstr,
$doms,
$mm->{'config'}->{'virtualmin_default'} ?
$text{'yes'} : $text{'no'},
$mm->{'config'}->{'virtualmin_provision'} ?
$text{'newmysqls_cm'} : $text{'newmysqls_man'},
&ui_link("/$mm->{'minfo'}->{'dir'}", $text{'newmysqls_open'}),
], \@tds, "d", $mm->{'minfo'}->{'dir'}, 0,
$mm->{'config'}->{'virtualmin_provision'} ? 1 : 0);
}
print &ui_columns_end();
print &ui_form_end([ [ undef, $text{'newmysqls_delete'} ],
[ 'default', $text{'newmysqls_makedef'} ] ]);
# Show a form to add a new one
print &ui_hr();
print &ui_form_start("create_newmysql.cgi", "post");
print &ui_table_start($text{'newmysqls_header'}, undef, 2);
# Database type
my @types;
push(@types, [ 'mysql', $text{'databases_mysql'} ]) if ($config{'mysql'});
push(@types, [ 'postgres', $text{'databases_postgres'} ]) if ($config{'postgres'});
print &ui_table_row($text{'newmysqls_formtype'},
&ui_select("type", $types[0]->[0], \@types));
# Remote server, or local socket
print &ui_table_row($text{'newmysqls_formhost'},
&ui_radio_table("mode", 0,
[ [ 0, $text{'newmysqls_remote'},
&ui_textbox("host", undef, 40) ],
[ 1, $text{'newmysqls_sock'},
&ui_textbox("sock", undef, 40) ],
[ 2, $text{'newmysqls_nohost'} ] ]));
# TCP port number
print &ui_table_row($text{'newmysqls_port'},
&ui_opt_textbox("port", undef, 6, $text{'newmysqls_portdef'}));
# SSL mode
print &ui_table_row($text{'newmysqls_ssl'},
&ui_yesno_radio("ssl", 0));
# Username and password
print &ui_table_row($text{'newmysqls_user'},
&ui_textbox("myuser", undef, 40));
print &ui_table_row($text{'newmysqls_pass'},
&ui_textbox("mypass", undef, 40));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'create'} ] ]);
&ui_print_footer("", $text{'index_return'});
|