#!/usr/bin/perl
=head1 list-databases.pl
Lists databases for some virtual server
This program simply displays a list of MySQL and PostgreSQL databases that are owned by one server. You must supply the C<--domain> flag followed by the domain name of the server to list. By default the output is in a reader-friendly table, but the C<--multiline> option can be used to switch to a format more suitable for reading by programs (and containing more information).
To output just a list of database names, use the C<--name-only> flag. To limit
the list to databases of a particular type, use C<--type> followed by a code
like C<mysql> or C<postgres>.
=cut
package virtual_server;
if (!$module_name) {
$main::no_acl_check++;
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
if ($0 =~ /^(.*)\/[^\/]+$/) {
chdir($pwd = $1);
}
else {
chop($pwd = `pwd`);
}
$0 = "$pwd/list-databases.pl";
require './virtual-server-lib.pl';
$< == 0 || die "list-databases.pl must be run as root";
}
# Parse command-line args
while(@ARGV > 0) {
local $a = shift(@ARGV);
if ($a eq "--domain") {
$domain = shift(@ARGV);
}
elsif ($a eq "--multiline") {
$multi = 1;
}
elsif ($a eq "--name-only") {
$nameonly = 1;
}
elsif ($a eq "--type") {
$type = shift(@ARGV);
}
else {
&usage("Unknown parameter $a");
}
}
$domain || &usage("No domain specified");
$d = &get_domain_by("dom", $domain);
$d || usage("Virtual server $domain does not exist");
@dbs = &domain_databases($d);
if ($type) {
@dbs = grep { $_->{'type'} eq $type } @dbs;
}
if ($multi) {
# Show each database on a separate line
if (defined(&list_domain_scripts)) {
@scripts = &list_domain_scripts($d);
}
foreach $db (@dbs) {
print "$db->{'name'}\n";
print " Type: $db->{'type'}\n";
($size, $tables) = &get_db_size($db);
if ($size) {
print " Size: ",&nice_size($size),"\n";
print " Byte size: ",$size,"\n";
}
print " Tables: $tables\n";
if ($db->{'host'}) {
print " Host: $db->{'host'}\n";
}
# Show scripts that use it
@slist = ( );
foreach $sinfo (@scripts) {
($dbtype, $dbname) =
split(/_/, $sinfo->{'opts'}->{'db'}, 2);
if ($dbtype eq $db->{'type'} &&
$dbname eq $db->{'name'}) {
push(@slist, $sinfo->{'name'}." ".
$sinfo->{'version'});
}
}
if (@slist) {
print " Used by scripts: ",join(", ", @slist),"\n";
}
}
}
elsif ($nameonly) {
# Just show DB names
foreach $db (@dbs) {
print $db->{'name'},"\n";
}
}
else {
# Show all on one line
$fmt = "%-30.30s %-20.20s %-15.15s %-10.10s\n";
printf $fmt, "Database", "Type", "Size", "Tables";
printf $fmt, ("-" x 30), ("-" x 20), ("-" x 15), ("-" x 10);
foreach $db (@dbs) {
($size, $tables) = &get_db_size($db);
printf $fmt, $db->{'name'}, $db->{'type'},
$size ? &nice_size($size) : "Unknown", $tables;
}
}
# get_db_size(&db)
sub get_db_size
{
local ($db) = @_;
if (&indexof($db->{'type'}, &list_database_plugins()) >= 0) {
return &plugin_call($db->{'type'}, "database_size", $d, $db->{'name'});
}
else {
$szfunc = $db->{'type'}."_size";
($size, $tables) = &$szfunc($d, $db->{'name'});
}
}
sub usage
{
print "$_[0]\n\n" if ($_[0]);
print "Lists the databases associated with some virtual server.\n";
print "\n";
print "virtualmin list-databases --domain domain.name\n";
print " [--multiline | --name-only]\n";
print " [--type dbtype]\n";
exit(1);
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`
