/[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 434 by dpavlin, Wed Nov 19 01:21:31 2008 UTC revision 439 by dpavlin, Wed Nov 19 01:37:49 2008 UTC
# Line 155  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 166  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.434  
changed lines
  Added in v.439
  ViewVC Help
Powered by ViewVC 1.1.26