|
Lines 23-29
use diagnostics;
Link Here
|
| 23 |
use C4::InstallAuth qw( get_template_and_user ); |
23 |
use C4::InstallAuth qw( get_template_and_user ); |
| 24 |
use CGI qw ( -utf8 ); |
24 |
use CGI qw ( -utf8 ); |
| 25 |
use POSIX; |
25 |
use POSIX; |
| 26 |
use HTML::FromANSI::Tiny; |
26 |
use HTML::FromANSI::Tiny::Bootstrap; |
| 27 |
|
27 |
|
| 28 |
use C4::Context; |
28 |
use C4::Context; |
| 29 |
use C4::Output qw( output_html_with_http_headers ); |
29 |
use C4::Output qw( output_html_with_http_headers ); |
|
Lines 568-581
sub chk_log { #returns a logfile in $dir or - if that failed - in temp dir
Link Here
|
| 568 |
|
568 |
|
| 569 |
sub colorize { |
569 |
sub colorize { |
| 570 |
my ($report) = @_; |
570 |
my ($report) = @_; |
| 571 |
my $h = HTML::FromANSI::Tiny->new( |
571 |
my $h = HTML::FromANSI::Tiny::Bootstrap->new( |
| 572 |
auto_reverse => 0, background => 'white', foreground => 'black', |
572 |
auto_reverse => 0, |
| 573 |
inline_style => 1, no_plain_tags => 1 |
573 |
background => 'white', |
|
|
574 |
foreground => 'black', |
| 575 |
no_plain_tags => 1 |
| 574 |
); |
576 |
); |
| 575 |
|
577 |
|
| 576 |
my @states = ( 'success', 'error' ); |
578 |
my @states = ( 'success', 'error' ); |
| 577 |
for my $state (@states) { |
579 |
for my $state (@states) { |
| 578 |
for my $result ( @{ $report->{$state} } ) { |
580 |
for my $result ( @{ $report->{$state} } ) { |
|
|
581 |
|
| 579 |
#@{ $result->{output} } = map { s/^\t+//; $h->html($_) } @{ $result->{output} }; |
582 |
#@{ $result->{output} } = map { s/^\t+//; $h->html($_) } @{ $result->{output} }; |
| 580 |
for my $output ( @{ $result->{output} } ) { |
583 |
for my $output ( @{ $result->{output} } ) { |
| 581 |
$output = $h->html($output); |
584 |
$output = $h->html($output); |