Start using the new xmlVer.

diff --git a/ChangeLog b/ChangeLog
index db80d0778a7f325733e7a593ab2f725d727f09d6..fa3389432ab769ec8e0704b443b1fece2005461d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2007-12-08     Andrew Ruthven
+       Allow using my new xmlVer attribute in the XML.
+
 2007-12-07     Andrew Ruthven
        Better suppress warnings from the MythTV Perl API if we can't access
          the database.

diff --git a/bin/mythtv-status b/bin/mythtv-status
index c2bacdd63583556ca89e11e650896c3ecfa06e69..672a23a4be1b19ff13f92fb8fe18ee32bae153fd 100755 (executable)
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -196,7 +196,7 @@ my @blocks = (
     'name' => 'Total Disk Space',
     'type' => 'xpath',
     'xpath' => '//Status/MachineInfo/Storage',
-    'xml_version' => [ "<= 31" ],
+    'protocol_version' => [ "<= 31" ],
     'attrs' => [ qw/_total_total _total_used/ ],
     'commify' => [ qw/_total_total _total_used/ ],
     'template' => "Total space is ___total_total__ GB, with ___total_used__ GB used (__percent__)",
@@ -221,7 +221,7 @@ my @blocks = (
     'name' => 'Total Disk Space',
     'type' => 'xpath',
     'xpath' => '//Status/MachineInfo/Storage',
-    'xml_version' => [ ">= 32" ],
+    'protocol_version' => [ ">= 32" ],
     'attrs' => [ qw/drive_total_total drive_total_used/ ],
     'commify' => [ qw/drive_total_total drive_total_used/ ],
     'template' => "Total space is __drive_total_total__ GB, with __drive_total_used__ GB used (__percent__)",
@@ -277,7 +277,8 @@ our $today    = substr(ParseDate('today'), 0, 8);
 our $tomorrow = substr(ParseDate('tomorrow'), 0, 8);
 
 # A couple of global variables
-my ($xml, $xml_version, $myth);
+my ($xml, $myth);
+my %version;
 
 my $title =  "MythTV status for $host";
 my $output = "$title\n";
@@ -409,7 +410,8 @@ sub load_xml {
 
   # Pick out the XML version.
   my $items = $xml->documentElement->find('//Status');
-  $xml_version = @{ $items }[0]->getAttribute('protoVer');
+  $version{'xml'}      = @{ $items }[0]->getAttribute('xmlVer') || 0;
+  $version{'protocol'} = @{ $items }[0]->getAttribute('protoVer');
 
   return $xml;
 }
@@ -451,19 +453,21 @@ sub process_xml {
 
   # Only work on this block if we have received the appropriate version of
   # the XML.
-  if (defined $block->{'xml_version'}) {
-    my $result = undef;
+  for my $vers (qw/protocol xml/) {
+    if (defined $block->{"${vers}_version"}) {
+      my $result = undef;
 
-    # At least one of the version checks must pass.
-    for my $check (@{ $block->{'xml_version'} }) {
-      $result ||= eval ( "$xml_version $check" );
-    }
+      # At least one of the version checks must pass.
+      for my $check (@{ $block->{"${vers}_version"} }) {
+        $result ||= eval ( "$version{$vers} $check" );
+      }
 
-    return
-      unless defined $result && $result ne '';
+      return
+        unless defined $result && $result ne '';
 
-    warn "We have the correct version of the XML protocol\n"
-      if $verbose;
+      warn "We have the correct version of the XML protocol\n"
+        if $verbose;
+    }
   }
 
   my $items = $xml->documentElement->find($block->{'xpath'});