249 |
</span> |
</span> |
250 |
|; |
|; |
251 |
|
|
252 |
my $svk = Frey::SVK->new; |
my $svk = Frey::SVK->new( request_url => '/' ); |
253 |
my $info = $svk->info; |
my $info = $svk->info; |
254 |
my $revision = $svk->info->{Revision} || ''; |
my $revision = $svk->info->{Revision} || ''; |
255 |
$revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)}; |
$revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)}; |
472 |
our $last_log_pos = 0; |
our $last_log_pos = 0; |
473 |
our $last_log_line = 0; |
our $last_log_line = 0; |
474 |
|
|
475 |
|
our $pwd = `pwd`; |
476 |
|
chomp $pwd; |
477 |
|
|
478 |
sub warnings_html { |
sub warnings_html { |
479 |
my ($self,$level) = shift; |
my ($self,$level) = shift; |
480 |
$level ||= $self->debug, |
$level ||= $self->debug, |
531 |
my $level = $1; |
my $level = $1; |
532 |
my $msg = $_; |
my $msg = $_; |
533 |
|
|
534 |
|
# Mojo seems to expand warn messages to full path which is annoying |
535 |
|
$msg =~ s{/[^/]+/\.\./}{/}gs; |
536 |
|
$msg =~ s{$pwd/*}{}gs; |
537 |
|
|
538 |
my $spacer = ' '; |
my $spacer = ' '; |
539 |
my $real_msg = expand( $msg ); |
my $real_msg = expand( $msg ); |
540 |
if ( length($real_msg) > $self->html_dump_width ) { |
if ( length($real_msg) > $self->html_dump_width ) { |