/[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 418 by dpavlin, Tue Nov 18 16:54:10 2008 UTC revision 439 by dpavlin, Wed Nov 19 01:37:49 2008 UTC
# Line 25  has 'status' => ( Line 25  has 'status' => (
25          lazy => 1,          lazy => 1,
26          default => sub { [          default => sub { [
27                  { 'Bookmarklets' => Frey::Bookmarklet->new->markup },                  { 'Bookmarklets' => Frey::Bookmarklet->new->markup },
28                  { 'ClassBrowser' => Frey::ClassBrowser->new->markup },                  { 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->markup },
29          ] },          ] },
30  );  );
31    
# Line 136  sub page { Line 136  sub page {
136    
137          my $status_line = '';          my $status_line = '';
138          foreach my $part ( @{ $self->status } ) {          foreach my $part ( @{ $self->status } ) {
139                  confess "part not hash ",dump( $part ) unless ref($part) eq 'HASH';                  if ( ref($part) ne 'HASH' ) {
140                            warn "part not hash ",dump( $part ) ;
141                            #$self->status( $part );
142                            next;
143                    }
144                  foreach my $name ( keys %$part ) {                  foreach my $name ( keys %$part ) {
145                          my $content = $part->{$name};                          my $content = $part->{$name};
146                          if ( ref($content) ) {                          if ( ref($content) ) {
# Line 151  sub page { Line 155  sub page {
155                  }                  }
156          }          }
157    
158            my $url = $self->request_url;
159            $url =~ s{\?reload=\d+}{};
160    
161          my $html = join("\n",          my $html = join("\n",
162                  qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>|,                  qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>|,
163                  $self->_head_html,                  $self->_head_html,
# Line 162  sub page { Line 169  sub page {
169                  qq|                  qq|
170                  <div class="frey-status-line">                  <div class="frey-status-line">
171                          <a href="/">Frey</a> $Frey::VERSION                          <a href="/">Frey</a> $Frey::VERSION
172                          <a href="?reload=$reload_counter"><code>| . $self->request_url . qq|</code></a>                          <a href="?reload=$reload_counter"><code>$url</code></a>
173                          $status_line                          $status_line
174                  </div>                  </div>
175              </body></html>              </body></html>
Legend:
Removed from v.418  
changed lines
  Added in v.439
  ViewVC Help
Powered by ViewVC 1.1.26