1 |
package Frey::Web; |
package Frey::Web; |
2 |
use Moose::Role; |
use Moose::Role; |
3 |
|
|
4 |
with 'Frey::Session'; |
with 'Frey::Session', 'Frey::Class::Icon'; |
|
with 'Frey::Class::Icon'; |
|
5 |
|
|
6 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
7 |
use Carp qw/confess cluck carp/; |
use Carp qw/confess cluck carp/; |
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 |
); |
); |
435 |
my $self = shift; |
my $self = shift; |
436 |
my $error = join(" ", @_); |
my $error = join(" ", @_); |
437 |
|
|
438 |
|
if ( $error =~ m{<error>(.+)</error>}s ) { |
439 |
|
return qq|<div class="frey-error frey-fatal">$1</div>|; |
440 |
|
} |
441 |
|
|
442 |
my $fatal = ''; |
my $fatal = ''; |
443 |
my $backtrace = ''; |
my $backtrace = ''; |
444 |
|
|
486 |
|
|
487 |
Called at beginning of each request |
Called at beginning of each request |
488 |
|
|
489 |
$self->clean_status; |
$self->setup_request; |
490 |
|
|
491 |
=cut |
=cut |
492 |
|
|
493 |
sub clean_status { |
sub setup_request { |
494 |
my ($self) = shift; |
my ($self) = shift; |
495 |
warn "## clean_status"; |
warn "## clean_status"; |
496 |
@head = ( 'static/frey.css' ); |
@head = ( 'static/frey.css' ); |
722 |
return $t; |
return $t; |
723 |
} |
} |
724 |
|
|
725 |
|
no Moose::Role; |
726 |
|
|
727 |
1; |
1; |