Viewing file:  create_newmysql.cgi (1.89 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Add a new MySQL or PostgreSQL clone module
require './virtual-server-lib.pl';
&can_edit_templates() || &error($text{'newmysqls_ecannot'});
&error_setup($text{'newmysqls_err'});
&ReadParse();
# Validate inputs
if ($in{'mode'} == 0) {
&to_ipaddress($in{'host'}) || &error($text{'newmysqls_ehost'});
&check_ipaddress($in{'host'}) && &error($text{'newmysqls_eip'});
$host = $in{'host'};
}
elsif ($in{'mode'} == 1) {
$in{'sock'} =~ /^\/\S+$/ || &error($text{'newmysqls_esock'});
$sock = $in{'sock'};
}
if (!$in{'port_def'}) {
$in{'port'} =~ /^\d+$/ || &error($text{'newmysqls_eport'});
$port = $in{'port'};
}
$in{'myuser'} =~ /^\S+$/ || &error($text{'newmysqls_euser'});
$user = $in{'myuser'};
$pass = $in{'mypass'};
$ssl = $in{'ssl'};
# Add the clone module
$mm = { 'minfo' => { },
'config' => { 'host' => $host,
'port' => $port,
'login' => $user,
'pass' => $pass },
};
if ($in{'type'} eq 'mysql') {
# Add as MySQL module
$mm->{'config'}->{'ssl'} = $ssl;
$mm->{'config'}->{'sock'} = $sock;
&create_remote_mysql_module($mm);
# Check that the MySQL connection works, and delete if not
$mod = $mm->{'minfo'}->{'dir'};
&foreign_require($mod, "mysql-lib.pl");
($ok, $err) = &foreign_call($mod, "is_mysql_running");
if ($ok != 1) {
&delete_remote_mysql_module($mm);
&error(&text('newmysqls_econn', $err));
}
}
else {
# Add as PostgreSQL module
$sock && &error($text{'newmysqls_esock2'});
$mm->{'config'}->{'sslmode'} = 'require' if ($ssl);
&create_remote_postgres_module($mm);
# Check that the connection works
$mod = $mm->{'minfo'}->{'dir'};
&foreign_require($mod, "postgresql-lib.pl");
($ok, $err) = &foreign_call($mod, "is_postgresql_running");
if ($ok != 1) {
&delete_remote_postgres_module($mm);
&error(&text('newmysqls_econn', $err));
}
}
&webmin_log("create", "newmysql", $host || $sock, $mm->{'config'});
&redirect("edit_newmysqls.cgi");
|