Pull out the XML generated timestamp and allow one line output.

diff --git a/bin/status.pl b/bin/status.pl
index 237133a22af8508424f544e11ca8d8faef15ddb4..9e0df9e54b042c8a3332b1836d81ee1af74f920a 100755 (executable)
--- a/bin/status.pl
+++ b/bin/status.pl
@@ -33,6 +33,15 @@ our $tomorrow = substr(ParseDate('tomorrow'), 0, 8);
 
 # The blocks of output which we might generate.
 my @blocks = (
+  # Date/Time from server
+  {
+    'name'  => 'Status',
+    'xpath' => "//Status",
+    'attrs' => [ qw/time date/ ],
+    'template' => "__date__, __time__",
+    'format' => 'one line'
+  },
+
   # Info about the encoders.
   {
     'name'  => 'Encoders',
@@ -85,7 +94,8 @@ for my $block (@blocks) {
   next
     if (scalar(@$items) == 0);
 
-  print "$block->{'name'}:\n";
+  $block->{'format'} ||= 'multi line';
+  print "$block->{'name'}:" . ($block->{'format'} eq 'one line' ? ' ' : "\n");
 
   for my $item (@{ $items }) {
     my $template = $block->{'template'};