43 |
return $out; |
return $out; |
44 |
} |
} |
45 |
|
|
46 |
|
our $reload_counter = 0; |
47 |
|
|
48 |
sub page { |
sub page { |
49 |
my $self = shift; |
my $self = shift; |
50 |
my $a = {@_}; |
my $a = {@_}; |
51 |
|
|
52 |
|
$reload_counter++; |
53 |
|
|
54 |
my $html = qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>| |
my $html = qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>| |
55 |
. _unroll_markup( qq|<script type="text/javascript" src="/%s"></script>|, $self->javascript ) |
. _unroll_markup( qq|<script type="text/javascript" src="/%s"></script>|, $self->javascript ) |
56 |
. _unroll_markup( qq|<link type="text/css" rel="stylesheet" href="/%s" media="screen">|, $self->css ) |
. _unroll_markup( qq|<link type="text/css" rel="stylesheet" href="/%s" media="screen">|, $self->css ) |
58 |
. ( $a->{head} || '' ) |
. ( $a->{head} || '' ) |
59 |
. '</head><body>' |
. '</head><body>' |
60 |
. ( $a->{body} || '<!-- no body -->' ) |
. ( $a->{body} || '<!-- no body -->' ) |
61 |
. qq|<div class="status-line"> <a href="/">Frey</a> $Frey::VERSION </div>| |
. qq|<div class="status-line"> <a href="/">Frey</a> $Frey::VERSION <a href="?reload=$reload_counter">reload</a> </div>| |
62 |
. '</body></html>' |
. '</body></html>' |
63 |
; |
; |
64 |
|
|