#!/usr/local/bin/perl # index.cgi # Display all existing databases require './mysql-lib.pl'; &ReadParse(); # Check for MySQL programs foreach $p ( [ $config{'mysqladmin'}, 'index_eadmin', 'index_mysqladmin' ], [ $config{'mysql'}, 'index_esql', 'index_mysql' ], [ $config{'mysqlshow'}, 'index_eshow', 'index_mysqlshow' ]) { if (!-x $p->[0]) { &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0, &help_search_link("mysql", "man", "doc", "google")); print &text($p->[1], "$p->[0]", "$gconfig{'webprefix'}/config.cgi?$module_name"),"
\n"; &foreign_require("software", "software-lib.pl"); $lnk = &software::missing_install_link( "mysql", $text{$p->[2]}, "../$module_name/", $text{'index_title'}); print $lnk,"
\n" if ($lnk); &ui_print_footer("/", $text{'index'}); exit; } } # Try to get the MySQL version $mysql_version = &get_mysql_version(\$out); if ($mysql_version < 0) { &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0, &help_search_link("mysql", "man", "doc", "google")); print &text('index_elibrary', "$config{'mysql'}", "../config.cgi?$module_name"),"
\n"; print &text('index_mysqlver', "$config{'mysql'} -V"),"\n"; print "
$out\n"; &ui_print_footer("/", $text{'index'}); exit; } elsif (!$mysql_version) { &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0, &help_search_link("mysql", "man", "doc", "google")); print &text('index_ever', "$config{'mysql'}", "../config.cgi?$module_name"),"
\n"; print &text('index_mysqlver', "$config{'mysql'} -V"),"\n"; print "
$out\n"; &ui_print_footer("/", $text{'index'}); exit; } open(VERSION, ">$module_config_directory/version"); print VERSION $mysql_version,"\n"; close(VERSION); # Check if MYSQL_PWD works ($r, $rout) = &is_mysql_running(); if ($r > 0 && !&working_env_pass()) { &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0, &help_search_link("mysql", "man", "doc", "google")); print &text('index_eenvpass', "$config{'mysql'}", "../config.cgi?$module_name"),"
\n"; &ui_print_footer("/", $text{'index'}); exit; } if ($r == 0) { # Not running .. need to start it &main_header(); print "
$text{'index_notrun'}
\n"; if ($access{'stop'} && &is_mysql_local()) { print &ui_hr(); print "
\n"; } } elsif ($r == -1) { # Running, but webmin doesn't know the root (or user's) password! &main_header(); print "$text{'index_nopass'}\n"; print &ui_form_start("login.cgi", "post"); print &ui_table_start($text{'index_ltitle'}, undef, 2); print &ui_table_row($text{'index_login'}, &ui_textbox("login", $access{'user'} || $config{'login'}, 40)); print &ui_table_row($text{'index_pass'}, &ui_password("pass", undef, 40)); print &ui_table_end(); print &ui_form_end([ [ undef, $text{'save'} ] ]); print &text('index_emsg', "$rout"),"
\n"; } else { # Check if we can re-direct to a single DB's page @alldbs = &list_databases(); @titles = grep { &can_edit_db($_) } @alldbs; $can_all = (@alldbs == @titles); if (@titles == 1 && $access{'dbs'} ne '*' && !$access{'perms'} && !$access{'stop'} && !$access{'create'} && $access{'noconfig'}) { # Only one DB, so go direct to it! &redirect("edit_dbase.cgi?db=$titles[0]"); exit; } &main_header(); print &ui_subheading($text{'index_dbs'}) if ($access{'perms'}); if ($in{'search'}) { # Limit to those matching search @titles = grep { /\Q$in{'search'}\E/i } @titles; print "
",&text('index_showing', "".&html_escape($in{'search'})."")," | \n"; print "", "$text{'view_searchreset'} | \n"; print "
\n"; } else { print "$text{'index_nodbs2'}
\n";
}
}
elsif (@icons > $max_dbs && !$in{'search'} && !$in{'show'}) {
# Too many databases to show .. display search and jump forms
print &ui_form_start("index.cgi");
print $text{'index_toomany'},"\n";
print &ui_textbox("search", undef, 20),"\n";
print &ui_submit($text{'index_search'}),"
\n";
print &ui_form_end();
print &ui_form_start("edit_dbase.cgi");
print $text{'index_jump'},"\n";
print &ui_select("db", undef, [ map { [ $_ ] } @titles ],
1, 0, 0, 0, "onChange='form.submit()'"),"\n";
print &ui_submit($text{'index_jumpok'}),"
\n";
print &ui_form_end();
}
else {
# Show table of databases
if ($access{'delete'}) {
print &ui_form_start("drop_dbases.cgi");
unshift(@rowlinks, &select_all_link("d", 0),
&select_invert_link("d", 0));
}
print &ui_links_row(\@rowlinks);
@checks = @titles;
if ($displayconfig{'style'} == 1) {
# Show as DB names and table counts
@tables = map { @t = &list_tables($_); scalar(@t) }
@titles;
@titles = map { &html_escape($_) } @titles;
&split_table([ "", $text{'index_db'},
$text{'index_tables'} ],
\@checks, \@links, \@titles, \@tables)
if (@titles);
}
elsif ($displayconfig{'style'} == 2) {
# Show just DB names
@grid = ( );
for(my $i=0; $i<@links; $i++) {
push(@grid, &ui_checkbox("d", $titles[$i]).
" ".
&html_escape($titles[$i])."");
}
print &ui_grid_table(\@grid, 4, 100, undef, undef, "");
}
else {
# Show name icons
@checks = map { &ui_checkbox("d", $_) } @checks;
@titles = map { &html_escape($_) } @titles;
&icons_table(\@links, \@titles, \@icons, 5,
undef, undef, undef, \@checks);
}
}
print &ui_links_row(\@rowlinks);
if (@icons && $access{'delete'} &&
(@icons <= $max_dbs || $in{'search'})) {
print &ui_form_end([ [ "delete", $text{'index_drops'} ] ]);
}
if ($access{'perms'}) {
# Show icons for editing user permissions and server settings
print &ui_hr();
print &ui_subheading($text{'index_global'});
$canvars = &supports_variables();
@links = ( 'list_users.cgi', 'list_dbs.cgi', 'list_hosts.cgi',
'list_tprivs.cgi', 'list_cprivs.cgi',
'edit_cnf.cgi', 'list_procs.cgi',
$canvars ? ( 'list_vars.cgi' ) : ( ),
'root_form.cgi',
);
@titles = ( $text{'users_title'}, $text{'dbs_title'},
$text{'hosts_title'}, $text{'tprivs_title'},
$text{'cprivs_title'},$text{'cnf_title'},
$text{'procs_title'},
$canvars ? ( $text{'vars_title'} ) : ( ),
$text{'root_title'},
);
@images = ( 'images/users.gif', 'images/dbs.gif',
'images/hosts.gif', 'images/tprivs.gif',
'images/cprivs.gif', 'images/cnf.gif',
'images/procs.gif',
$canvars ? ( 'images/vars.gif' ) : ( ),
'images/root.gif',
);
if ($access{'perms'} == 2) {
# Remove my.cnf and database connections icons
@links = @links[0..4];
@titles = @titles[0..4];
@images = @images[0..4];
}
&icons_table(\@links, \@titles, \@images, 5);
}
if ($access{'stop'} && &is_mysql_local() ||
$can_all && !$access{'edonly'} && $access{'buser'}) {
print &ui_hr();
print &ui_buttons_start();
$started_buttons_row = 1;
}
# Show stop button
if ($access{'stop'} && &is_mysql_local()) {
print &ui_buttons_row("stop.cgi", $text{'index_stop'},
$text{'index_stopmsg'});
}
# Show backup all button
if ($can_all && !$access{'edonly'} && $access{'buser'}) {
print &ui_buttons_row("backup_form.cgi", $text{'index_backup'},
$text{'index_backupmsg'},
&ui_hidden("all", 1));
}
print &ui_buttons_end() if ($started_buttons_row);
# Check if the optional perl modules are installed
if (foreign_available("cpan")) {
eval "use DBI";
push(@needs, "DBI") if ($@);
$nodbi++ if ($@);
eval "use DBD::mysql";
push(@needs, "DBD::mysql") if ($@);
if (@needs) {
$needs = &urlize(join(" ", @needs));
print "