Allow showing device type in the encoder output

Original patch is from Eric Wilde, but made some assumptions that wouldn't
scale. Let's try this which is more general.

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 2dc99abd88234540f8275367da3a37324f5d0065..8cf34176d1b23ebd5f8ab631fb30a23faa73c254 100755 (executable)
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -291,8 +291,8 @@ my @blocks = (
     'type'  => 'xpath',
     'xpath' => "//Status/Encoders/Encoder",
     'protocol_version' => [ ">= 58" ],
-    'attrs' => [ qw/hostname id state connected/ ],
-    'template' => "__hostname__ (__id__) - __state____connected__",
+    'attrs' => [ qw/hostname id state devlabel connected/ ],
+    'template' => "__hostname__ (__id____devtype__) - __state____connected__",
     'rewrite' => {
       '/connected/' => { '1' => '', '0' => "${warning}(Disconnected)${normal}" },
       '/state/' => {
@@ -309,6 +309,12 @@ my @blocks = (
     'filter' => {
       'state' => sub { return $c->{'encoder_skip_idle'} && $_[0] == 0 },
     },
+    'subs' => {
+      'devtype' => sub {
+        if    ($_[0]->{'devlabel'} =~ /\[ (.+) :/)   { ", $1" }
+        else { '' }
+      },
+    },
   },
 
   # What programs (if any) are being recorded right now?