/[Frey]/trunk/lib/Frey/Web.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Web.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 121 by dpavlin, Mon Jul 14 21:22:43 2008 UTC revision 142 by dpavlin, Wed Jul 16 14:14:18 2008 UTC
# Line 43  sub _unroll_markup { Line 43  sub _unroll_markup {
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 )
# Line 54  sub page { Line 58  sub page {
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    

Legend:
Removed from v.121  
changed lines
  Added in v.142

  ViewVC Help
Powered by ViewVC 1.1.26