From 4ad14deaa5938d112b6bb537855f0b77773fe79f Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@cyclops.etc.gen.nz>
Date: Sat, 17 Nov 2007 18:59:42 +1300
Subject: [PATCH] Add an option to display the encoder status in colour.

---
 bin/mythtv-status | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 112e27e..8e86545 100755
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -19,8 +19,10 @@ my $host = "localhost";
 my $port = "6544";
 my $description = undef;
 my $episode = undef;
+my $colour = undef;
 
 GetOptions(
+  'c|colour|color' => \$colour,
   'd|descripton' => \$description,
   'e|episode'    => \$episode,
   'h|host=s'     => \$host,
@@ -30,6 +32,15 @@ GetOptions(
 die "Sorry, port isn't a number.\n"
   if $port !~ /^\d+$/;
 
+my $safe = '';
+my $warning = '';
+my $normal = '';
+if (defined $colour) {
+  $safe    = "\033[0;32;40m";
+  $warning = "\033[1;31;40m";
+  $normal  = "\033[0m";
+}
+
 my $url = "http://$host:$port/xml";
 my $status = get($url);
 
@@ -61,11 +72,11 @@ my @blocks = (
     'template' => "__hostname__ (__id__) - __state____connected__",
     'rewrite' => {
       'connected' => { '1' => '', '0' => ' (Disconnected)' },
-      'state' =>{ '0' => 'Idle',
-                  '1' => 'Watching LiveTV',
-                  '2' => 'Watching Pre-recorded',
-		  '3' => 'Watching Recording',
-		  '4' => 'Recording' },
+      'state' =>{ '^0$' => "${safe}Idle${normal}",
+                  '^1$' => "${warning}Watching LiveTV${normal}",
+                  '^2$' => "${warning}Watching Pre-recorded${normal}",
+		  '^3$' => "${warning}Watching Recording${normal}",
+		  '^4$' => "${warning}Recording${normal}" },
     }
   },
 
@@ -166,6 +177,10 @@ about to be recorded.
 
 =over
 
+=item B<-c, --colour>
+
+Use colour when showing the status of the encoder(s).
+
 =item B<-d, --description>
 
 Display the description for the scheduled recordings.
-- 
2.30.2