diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2016-10-07 07:19:02 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2016-10-07 07:19:02 -0700 |
| commit | ce71ca0fc6ca933af93c76c2f8e5f764e304b3a0 (patch) | |
| tree | c48e14e22be6f6781a4a619bf43591a2dc71e179 /httemplate | |
| parent | c42bf39feed32a9d0ca83944284463a148dbfed6 (diff) | |
show DB size
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/view/Status.html | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/httemplate/view/Status.html b/httemplate/view/Status.html index eb7df6846..7fd019e8c 100644 --- a/httemplate/view/Status.html +++ b/httemplate/view/Status.html @@ -25,14 +25,23 @@ if ( ! $@ && $os =~ /^\s*Description:\s*(.+)$/ ) { ( my $perl_ver = $^V ) =~ s/^v//; my $db = driver_name; -$db = 'PostgreSQL' if $db =~ /^Pg/; -$db = 'MySQL' if $db =~ /^mysql/; +$db = 'PostgreSQL' if $db =~ /^Pg/; +$db = 'MySQL/MariaDB' if $db =~ /^mysql/; my $db_ver = FS::Record->scalar_sql('SELECT VERSION()'); if ( $db eq 'PostgreSQL' && $db_ver =~ /^\s*PostgreSQL\s+([\w\.]+)\s+on\s+/ ) { $db_ver = $1; } +my $db_size = 'Unknown'; +if ( $db eq 'PostgreSQL' ) { + $db_size = FS::Record->scalar_sql(qq( + SELECT pg_size_pretty(pg_database_size(datname)) + FROM pg_catalog.pg_database + WHERE datname = 'freeside' + )); +} + tie my %status, 'Tie::IxHash', 'Basics' => [ { 'title' => 'Freeside version', @@ -50,6 +59,9 @@ tie my %status, 'Tie::IxHash', { 'title' => 'Database version', 'value' => $db_ver, }, + { 'title' => 'Database size', + 'value' => $db_size, + }, ], 'Required Daemons' => [ { 'title' => 'Queue daemon', |