/[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 210 by dpavlin, Fri Oct 31 16:28:58 2008 UTC revision 385 by dpavlin, Mon Nov 17 20:14:12 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 106  sub page { Line 107  sub page {
107          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>|
108          . $self->_head_html          . $self->_head_html
109          . '<title>' . ( $a->{title} || ref($self) ) . '</title>'          . '<title>' . ( $a->{title} || ref($self) ) . '</title>'
110            . '<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">'
111          . ( $a->{head} || '' )          . ( $a->{head} || '' )
112          . '</head><body>'          . '</head><body>'
113          . ( $a->{body} || '<!-- no body -->' )          . ( $a->{body} || '<!-- no body -->' )
114          . qq|<div class="frey-status-line">          . qq|<div class="frey-status-line">
115                  <a href="/">Frey</a> $Frey::VERSION                  <a href="/">Frey</a> $Frey::VERSION
116                  <a href="?reload=$reload_counter">reload</a>                  <a href="?reload=$reload_counter"><code>| . dump( $ENV{'REQUEST_URI'} ) . qq|</code></a>
117                  <span class="frey-popup">Bookmarklets<span>| . Frey::Bookmarklet->markup . qq|</span></span>                  <span class="frey-popup">Bookmarklets<span>| . Frey::Bookmarklet->markup . qq|</span></span>
118                  <span class="frey-popup">ClassBrowser<span>| . Frey::ClassBrowser->markup . qq|</span></span>                  <span class="frey-popup">ClassBrowser<span>| . Frey::ClassBrowser->markup . qq|</span></span>
119                    <span class="frey-popup">ENV<span><code>| . dump( %ENV ) . qq|</code></span></span>
120                  </div>                  </div>
121              </body></html>              </body></html>
122          |;          |;
# Line 123  sub page { Line 126  sub page {
126          return $html;          return $html;
127  }  }
128    
129    sub error {
130            my ( $self, $error ) = @_;
131            warn $error;
132            $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;
133            return qq|<pre class="frey-error">$error</pre>|;
134    }
135    
136  1;  1;
Legend:
Removed from v.210  
changed lines
  Added in v.385
  ViewVC Help
Powered by ViewVC 1.1.26