diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2019-09-18 19:15:53 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2019-09-18 19:15:53 -0700 |
| commit | e07aa68262cff985285dcc09592a339c232c1e7b (patch) | |
| tree | 25ec94696200d99ae36df78223a41df665e605b0 | |
| parent | 3b824749559a044e9de1e596aaef87de728df847 (diff) | |
show deb pkg version
| -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 af58f3509..dbe08b5bc 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, }, |