-
Frey $Frey::VERSION
-
| . dump( $ENV{'REQUEST_URI'} ) . qq|
-
-
-
+ my $status_line = '';
+
+ unshift @status, { 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup };
+ unshift @status, { 'Bookmarklets' => Frey::Bookmarklet->new->as_markup };
+
+ foreach my $part ( @status ) {
+ foreach my $name ( keys %$part ) {
+ my $content = $part->{$name};
+ if ( ref($content) ) {
+ $content = '
' . dump($content) . '';
+ my $l = length($content);
+ $content = qq|
$l bytes| if $l > $self->dump_max_bytes;
+ } else {
+ $content = qq|
$content|;
+ }
+ warn "### part [$name] = ", length( $content ), " bytes" if $self->debug;
+ $status_line .= qq|\n|;
+ }
+ }
+
+ my $url = $self->request_url;
+ $url =~ s{\?reload=\d+}{};
+
+ my $body = $a->{body};
+ $body ||= $self->as_markup if $self->can('as_markup');
+ if ( $self->content_type !~ m{html} ) {
+ warn "# return only $self body ", $self->content_type;
+ return $body
+ } elsif ( ! defined $body ) {
+ warn "# no body";
+ $body = '';
+ }
+
+ my $warn_colors = {
+ '#' => '#444',
+ '##' => '#888',
+ };
+
+ $status_line
+ .= qq||
+ if $self->warnings;
+
+ my ($exit,$description) = ('exit','stop server');
+ ($exit,$description) = ('restart','restart server')
+ if $ENV{FREY_RESTART}; # tune labels on exit link
+
+ my $right =
+ qq|
+
+ reload
+ $exit
+
+ |;
+
+ my $info = Frey::SVK->info;
+ my $revision = Frey::SVK->info->{Revision} || '';
+ $revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)};
+
+ $self->add_icon unless $icon_html;
+
+ my $html = join("\n",
+ qq||,
+ $self->_head_html,
+ '
' . ( $self->title || $a->{title} || ref($self) ) . '',
+ '
',
+ ( $icon_html || '' ),
+ ( $a->{head} || '' ),
+ qq|
+
+ $body
+
+
Frey $Frey::VERSION $revision
+ $status_line
+ $right
- |;
+ |,
+ );
warn "## >>> page ",length($html), " bytes\n" if $self->debug;
return $html;
}
-sub error {
+=head2 editor
+
+Create HTML editor link with optional line and title
+
+ my $html = $self->editor( $class, $line, $title );
+
+=cut
+
+sub editor {
+ my ( $self, $class, $line, $title ) = @_;
+ confess "need class" unless $class;
+ if ( ! defined $title ) {
+ $title = "edit $class";
+ $title .= " line $line" if $line;
+ }
+ $line ||= 1;
+ qq|
$class|;
+}
+
+=head2 editor_links
+
+Create HTML links to editor for perl error message
+
+ my $html = $self->editor_links( $error )
+
+=cut
+
+sub editor_links {
my ( $self, $error ) = @_;
- warn $error;
- $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{
$1 line $2}gsm;
- return qq|
$error
|;
+
+ $error =~ s{at\s+(\S+)\s+line\s+(\d+)}
+ {at
$1 line $2}gsm;
+
+ $error =~ s{(via package ")([\w:]+)(")}
+ {$1
$2$3}gsm;
+
+ return $error;
+}
+
+sub error {
+ my $self = shift;
+ my $error = join(" ", @_);
+
+ my @backtrace = $self->backtrace;
+ $error .= "\n\t" . join( "\n\t", @backtrace ) if @backtrace;
+
+ warn "ERROR: $error\n";
+ return
+ qq|
|
+ . $self->editor_links( $error ) .
+ qq|
|
+ ;
+}
+
+sub add_status {
+ my ( $self, $data ) = @_;
+ push @status, $data;
+}
+
+sub clean_status {
+ @status = ();
+ $icon_html = '';
+}
+
+sub status_parts {
+ warn "## status parts ", dump( map { keys %$_ } @status );
+}
+
+sub DEMOLISH {
+ my ( $self ) = @_;
+ cluck "## DEMOLISH status ", $#status + 1, " elements ", dump( map { keys %$_ } @status ) if @status;
+}
+
+=head2 add_icon
+
+ Frey::Foo->add_icon; # /static/icons/Frey/Foo.png
+ Frey::Foo->add_icon('warning'); # /static/icons/Frey/Foo/warning.png
+
+=cut
+
+sub add_icon {
+ my ($self,$name) = @_;
+ my $icon = ref($self);
+ $icon = $self->class if $self->can('class');
+ $icon =~ s{::}{/}g;
+ $icon .= "/$name" if $name;
+
+ my $icon_path = "static/icons/$icon.png";
+
+ if ( -e $icon_path ) {
+ $icon_html .= qq|
|;
+ warn "# using icon $icon_path";
+
+=for later
+
+ # FIXME http://en.wikipedia.org/wiki/Favicon suggest just rel="icon" but that doesn't seem to work!
+ my $ico_path = $icon_path;
+ $ico_path =~ s{png$}{ico};
+ if ( ! -e $ico_path ) {
+ system "convert $icon_path $ico_path";
+ warn "# convert $icon_path $ico_path : $@";
+ }
+ $icon_html .= qq|
| if -e $ico_path;
+
+=cut
+
+ } else {
+ warn "TODO add $icon_path icon";
+ }
}
1;