/[Frey]/branches/zimbardo/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 /branches/zimbardo/lib/Frey/Web.pm

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

revision 206 by dpavlin, Thu Oct 30 22:35:11 2008 UTC revision 316 by dpavlin, Wed Nov 5 21:40:02 2008 UTC
# Line 96  our $reload_counter = 0; Line 96  our $reload_counter = 0;
96  =cut  =cut
97    
98  use Frey::Bookmarklet;  use Frey::Bookmarklet;
99    use Frey::ClassBrowser;
100    
101  sub page {  sub page {
102          my $self = shift;          my $self = shift;
# Line 111  sub page { Line 112  sub page {
112          . ( $a->{body} || '<!-- no body -->' )          . ( $a->{body} || '<!-- no body -->' )
113          . qq|<div class="frey-status-line">          . qq|<div class="frey-status-line">
114                  <a href="/">Frey</a> $Frey::VERSION                  <a href="/">Frey</a> $Frey::VERSION
115                  <a href="?reload=$reload_counter">reload</a>                  <a href="?reload=$reload_counter"><code>| . dump( $ENV{'REQUEST_URI'} ) . qq|</code></a>
116                  <span class="frey-popup">Bookmarklets<span>| . Frey::Bookmarklet->markup . qq|</span>|                  <span class="frey-popup">Bookmarklets<span>| . Frey::Bookmarklet->markup . qq|</span></span>
117          . '</body></html>'                  <span class="frey-popup">ClassBrowser<span>| . Frey::ClassBrowser->markup . qq|</span></span>
118          ;                  <span class="frey-popup">ENV<span><code>| . dump( %ENV ) . qq|</code></span></span>
119                    </div>
120                </body></html>
121            |;
122    
123          warn "## >>> page ",length($html), " bytes\n" if $self->debug;          warn "## >>> page ",length($html), " bytes\n" if $self->debug;
124    
Legend:
Removed from v.206  
changed lines
  Added in v.316
  ViewVC Help
Powered by ViewVC 1.1.26