/[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 350 by dpavlin, Sun Nov 16 00:37:34 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>                  <span class="frey-popup">Bookmarklets<span>| . Frey::Bookmarklet->markup . qq|</span></span>
117                  <span class="frey-popup">ClassBrowser<span>| . Frey::ClassBrowser->markup . qq|</span></span>                  <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>                  </div>
120              </body></html>              </body></html>
121          |;          |;
# Line 123  sub page { Line 125  sub page {
125          return $html;          return $html;
126  }  }
127    
128    sub error {
129            my ( $self, $error ) = @_;
130            warn $error;
131            $error =~ s{\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;
132            return qq|<pre class="frey-error">$error</pre>|;
133    }
134    
135  1;  1;
Legend:
Removed from v.210  
changed lines
  Added in v.350
  ViewVC Help
Powered by ViewVC 1.1.26