Allow attrs to be flagged as optional.
authorAndrew Ruthven <andrew@etc.gen.nz>
Sat, 8 Dec 2018 13:03:26 +0000 (02:03 +1300)
committerAndrew Ruthven <andrew@etc.gen.nz>
Sat, 8 Dec 2018 13:03:26 +0000 (02:03 +1300)
bin/mythtv-status

index 8798b14..3a1ed86 100755 (executable)
@@ -249,6 +249,7 @@ my @blocks = (
     'type'  => 'xpath',
     'xpath' => "//Status",
     'attrs' => [ qw/ISODate time date/ ],
+    'optional_attrs' => [ qw/ISODate/ ],
     'template' => "__date__",
     'format' => 'one line',
     'rewrite' => {
@@ -1082,7 +1083,8 @@ sub substitute_vars {
           if $verbose;
         return undef;
       } else {
-        warn "Unable to find any value for $key while looking at $block->{'name'}\n";
+        warn "Unable to find any value for $key while looking at $block->{'name'}\n"
+            if $verbose || ! grep /^$key$/, @{$block->{'optional_attrs'}};
         next;
       }
     }