Viewing file:  edit_database.cgi (3.74 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show one DB
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
&can_edit_domain($d) || &error($text{'edit_ecannot'});
&can_edit_databases($d) || &error($text{'databases_ecannot'});
$tmpl = &get_template($d->{'template'});
if ($in{'new'}) {
&ui_print_header(&domain_in($d), $text{'database_title1'}, "");
}
else {
&ui_print_header(&domain_in($d), $text{'database_title2'}, "");
($db) = grep { $_->{'name'} eq $in{'name'} &&
$_->{'type'} eq $in{'type'} } &domain_databases($d);
}
print &ui_form_start("save_database.cgi", "post");
print &ui_hidden("dom", $in{'dom'}),"\n";
if (!$in{'new'}) {
print &ui_hidden("name", $in{'name'}),"\n";
print &ui_hidden("type", $in{'type'}),"\n";
}
else {
print &ui_hidden("new", 1),"\n";
}
print &ui_table_start($text{'database_header'}, undef, 2);
# Database name
if ($in{'new'} && $tmpl->{'mysql_suffix'} ne "none") {
$prefix = &substitute_domain_template($tmpl->{'mysql_suffix'}, $d);
$prefix =~ s/-/_/g;
$prefix =~ s/\./_/g;
$prefix = &fix_database_name($prefix);
}
print &ui_table_row($text{'database_name'},
$in{'new'} ? $prefix.&ui_textbox("name", undef, 30) : "<tt>$in{'name'}</tt>");
# Database type
@types = ( );
foreach my $t (@database_features) {
push(@types, [ $t, $text{'databases_'.$t} ]) if ($d->{$t});
}
foreach $p (&list_database_plugins()) {
push(@types, [ $p, &plugin_call($p, "database_name") ]) if ($d->{$p});
}
print &ui_table_row($text{'database_type'},
$in{'new'} ? &ui_select("type", $types[0]->[0], \@types) :
&indexof($in{'type'}, &list_database_plugins()) >= 0 ?
&plugin_call($in{'type'}, "database_name") :
$text{'databases_'.$in{'type'}});
if (!$in{'new'}) {
# Show database size and tables
($size, $tables, undef, $count) = &get_one_database_usage($d, $db);
if ($size ne "") {
print &ui_table_row($text{'database_size'}, &nice_size($size));
}
if ($count ne "") {
print &ui_table_row($text{'database_count'}, $count);
}
if ($tables ne "") {
print &ui_table_row($text{'database_tables'}, $tables);
}
# Show host system
if (&master_admin() && $db->{'host'}) {
print &ui_table_row($text{'database_host'},
"<tt>$db->{'host'}</tt>");
}
# Show scripts that use it
if (defined(&list_domain_scripts)) {
@slist = ( );
foreach $sinfo (&list_domain_scripts($d)) {
($dbtype, $dbname) =
split(/_/, $sinfo->{'opts'}->{'db'}, 2);
if ($dbtype eq $in{'type'} && $dbname eq $in{'name'}) {
$script = &get_script($sinfo->{'name'});
push(@slist, "<a href='edit_script.cgi?dom=$d->{'id'}&script=$sinfo->{'id'}'>$script->{'desc'} $sinfo->{'version'}</a>");
}
}
if (@slist) {
print &ui_table_row($text{'database_scripts'},
join("<br>\n", @slist));
}
}
}
# Type-specific creation options
foreach $t (@database_features) {
$ofunc = "creation_form_$t";
if ($in{'new'} && $d->{$t} && defined(&$ofunc)) {
print &ui_hidden_table_row_start(
&text('database_opts', $text{'databases_'.$t}),
"opts_$t", 0);
print &$ofunc($d);
print &ui_hidden_table_row_end("opts_".$t);
}
}
foreach $p (&list_database_plugins()) {
if ($in{'new'} && $d->{$p} && &plugin_defined($p, "creation_form")) {
print &plugin_call($p, "creation_form", $d);
}
}
print &ui_table_end();
if ($in{'new'}) {
print &ui_form_end([ [ "create", $text{'create'} ] ]);
}
else {
print &ui_form_end([
$db->{'name'} eq $d->{'db'} && !&can_edit_database_name() ?
( ) : ( [ "delete", $text{'database_delete'} ] ),
&can_import_servers() ? ( [ "disc", $text{'database_disc'} ] )
: ( ),
$db->{'link'} ? ( [ "manage", $text{'database_manage'} ] )
: ( )
]);
}
&ui_print_footer("list_databases.cgi?dom=$in{'dom'}", $text{'databases_return'},
&domain_footer_link($d),
"", $text{'index_return'});
|