Lines 322-332
foreach my $report_id (@ARGV) {
Link Here
|
322 |
|
322 |
|
323 |
my $msg = MIME::Lite->new(%mail); |
323 |
my $msg = MIME::Lite->new(%mail); |
324 |
|
324 |
|
|
|
325 |
my $contenttype = "text/$format"; |
325 |
if ( $format eq 'html' ) { |
326 |
if ( $format eq 'html' ) { |
326 |
$message = "<html><head><style>tr:nth-child(2n+1) { background-color: #ccc;}</style></head><body>$message</body></html>"; |
327 |
$message = "<html><head><style>tr:nth-child(2n+1) { background-color: #ccc;}</style></head><body>$message</body></html>"; |
327 |
$args->{contenttype} = 'text/html'; |
|
|
328 |
} |
328 |
} |
329 |
$msg-> attr("content-type" => $args->{contenttype}); |
329 |
$msg->attr("content-type" => $contenttype); |
330 |
|
330 |
|
331 |
$msg->attach( |
331 |
$msg->attach( |
332 |
Type => "text/$format", |
332 |
Type => "text/$format", |
333 |
- |
|
|