diff options
author | Ivan Kohler <ivan@freeside.biz> | 2019-09-18 19:15:46 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2019-09-18 19:15:46 -0700 |
commit | a284ef4c8d9d43db336a77db4c34996344cd5717 (patch) | |
tree | d65e3fd5ac8e3aa279f9ef9ad4d7e692384eaebb /httemplate | |
parent | 8960c4e6ed107f83874647efe178f6e6845178bd (diff) |
show deb pkg version
Diffstat (limited to 'httemplate')
-rw-r--r-- | httemplate/view/Status.html | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/httemplate/view/Status.html b/httemplate/view/Status.html index af58f35..dbe08b5 100644 --- a/httemplate/view/Status.html +++ b/httemplate/view/Status.html @@ -30,6 +30,14 @@ if ( ! $@ && $os =~ /^\s*Description:\s*(.+)$/ ) { $os = "Debian $deb_version"; } +my $pkg_version = ''; +-e '/usr/bin/dpkg-query' + and run( ['/usr/bin/dpkg-query', + '--showformat=${Version}', '--show', 'freeside' + ], + '>', \$pkg_version + ); + ( my $perl_ver = $^V ) =~ s/^v//; my $db = driver_name; @@ -58,6 +66,13 @@ tie my %status, 'Tie::IxHash', { 'title' => 'Freeside version', 'value' => $FS::VERSION, }, + ( length($pkg_version) + ? ( { 'title' => 'Package version', + 'value' => $pkg_version, + }, + ) + : () + ), { 'title' => 'Operating System', 'value' => $os, }, |