More mail changes
authorDean Pemberton <dean@deanpemberton.com>
Thu, 31 Jul 2008 00:33:56 +0000 (12:33 +1200)
committerAndrew Ruthven <andrew@etc.gen.nz>
Thu, 31 Jul 2008 00:33:56 +0000 (12:33 +1200)
bin/mythtv-status

index 3ea7cd600cb5b60bfc95c79ada10de4c573debbd..86479d75050540eeb0fd9cf5d14232e1ce18666e 100755 (executable)
@@ -359,7 +359,7 @@ my @blocks = (
       },
     'sub' => sub {
       my ($str, $str_html) = substitute_vars($_[0], { 'next_time' => $next_time });
-      return $str;
+      return ($str);
       }
   },
 
@@ -436,11 +436,12 @@ my %version;
 
 my $exit_value = 0;
 my $title =  "MythTV status for $host";
-my $title_html =  "<h1>MythTV status for $host</h1>";
+my $title_html =  "<h1>MythTV status for $host</h1><br>";
 my $output = "$title\n";
 my $html = "$title_html\n";
 $output .= '=' x length($title) . "\n";
-$html .= '=' x length($title_html) . "\n";
+
+$html .= "<h1>" . '=' x length($title_html) . "</h1><br>\n";
 
 for my $block (@blocks) {
   $block->{'format'} ||= 'multi line';