/[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 214 by dpavlin, Fri Oct 31 19:53:50 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 112  sub page { Line 113  sub page {
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">reload</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          ;                  </div>
119                </body></html>
120            |;
121    
122          warn "## >>> page ",length($html), " bytes\n" if $self->debug;          warn "## >>> page ",length($html), " bytes\n" if $self->debug;
123    
Legend:
Removed from v.206  
changed lines
  Added in v.214
  ViewVC Help
Powered by ViewVC 1.1.26