From: Dean Pemberton Date: Thu, 31 Jul 2008 03:55:42 +0000 (+1200) Subject: Starting to add style to the html email. Working with the mythweb look X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=93b7baa7a0a93df2c4585bacdfda40347f818e9e;p=mythtv-status.git Starting to add style to the html email. Working with the mythweb look --- diff --git a/bin/mythtv-status b/bin/mythtv-status index 94489d4..a1dc93e 100755 --- a/bin/mythtv-status +++ b/bin/mythtv-status @@ -109,6 +109,12 @@ if (defined $colour && scalar(@email) == 1) { $normal = ''; } +# +# The HTML Email headers +# + +$html_header = ""; + # Is a warning present? my $warn_present = 0; @@ -450,7 +456,7 @@ my %version; my $exit_value = 0; my $title = "MythTV status for $host"; my $output = "$title\n"; -my $html = "

$title

\n"; +my $html = $html_header . "

$title

\n"; $output .= '=' x length($title) . "\n"; for my $block (@blocks) { @@ -574,10 +580,6 @@ if ($return_code_only) { $suffix = "MULTIPLE WARNINGS"; } - # my $html = '\n'; - # $html .= $output; - # $html .= "\n"; - my $mail = MIME::Entity->build( To => \@email, Subject => $title . (defined $suffix ? " - $suffix" : ''), @@ -598,7 +600,7 @@ if ($return_code_only) { $mail->send('sendmail'); - # print $mail->as_string; + print $mail->as_string; } }