312 |
my $revision = $svk->info->{Revision} || ''; |
my $revision = $svk->info->{Revision} || ''; |
313 |
$revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)}; |
$revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)}; |
314 |
|
|
315 |
|
$status_line = $ENV{FREY_DEV} ? qq| |
316 |
|
<div class="frey-status-line"> |
317 |
|
<a href="/">Frey</a> $Frey::VERSION $revision |
318 |
|
$status_line |
319 |
|
$right |
320 |
|
</div> |
321 |
|
| : ''; |
322 |
|
|
323 |
$self->add_icon; |
$self->add_icon; |
324 |
|
|
325 |
my $title = undef |
my $title = undef |
346 |
qq| |
qq| |
347 |
</head><body> |
</head><body> |
348 |
$body |
$body |
349 |
<div class="frey-status-line"> |
$status_line |
|
<a href="/">Frey</a> $Frey::VERSION $revision |
|
|
$status_line |
|
|
$right |
|
|
</div> |
|
350 |
</body></html> |
</body></html> |
351 |
|, |
|, |
352 |
); |
); |
542 |
=cut |
=cut |
543 |
|
|
544 |
sub log_path { |
sub log_path { |
545 |
$Frey::Bootstrap::log_path || die "no log_path?"; |
$Frey::Bootstrap::log_path || die "no log_path did you load Frey::Bootstrap?"; |
546 |
} |
} |
547 |
|
|
548 |
our $pwd = `pwd`; |
our $pwd = `pwd`; |