/[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

trunk/lib/Frey/Web.pm revision 1124 by dpavlin, Tue Jun 30 13:58:38 2009 UTC branches/zimbardo/lib/Frey/Web.pm revision 1172 by dpavlin, Sun Jul 5 21:40:16 2009 UTC
# Line 312  sub html_page { Line 312  sub html_page {
312          my $revision = $svk->info->{Revision} || '';          my $revision = $svk->info->{Revision} || '';
313          $revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)};          $revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)};
314    
315            $status_line = $ENV{FREY_DEV} ? qq|
316                    <div class="frey-status-line">
317                            <a href="/">Frey</a> $Frey::VERSION $revision
318                            $status_line
319                            $right
320                    </div>
321            | : '';
322    
323          $self->add_icon;          $self->add_icon;
324    
325          my $title = undef          my $title = undef
# Line 338  sub html_page { Line 346  sub html_page {
346                  qq|                  qq|
347                  </head><body>                  </head><body>
348                  $body                  $body
349                  <div class="frey-status-line">                  $status_line
                         <a href="/">Frey</a> $Frey::VERSION $revision  
                         $status_line  
                         $right  
                 </div>  
350              </body></html>              </body></html>
351                  |,                  |,
352          );          );
# Line 431  sub error { Line 435  sub error {
435          my $self = shift;          my $self = shift;
436          my $error = join(" ", @_);          my $error = join(" ", @_);
437    
438            if ( $error =~ m{<error>(.+)</error>}s ) {
439                    return qq|<div class="frey-error frey-fatal">$1</div>|;
440            }
441    
442          my $fatal = '';          my $fatal = '';
443          my $backtrace = '';          my $backtrace = '';
444    
# Line 478  sub add_status { Line 486  sub add_status {
486    
487  Called at beginning of each request  Called at beginning of each request
488    
489    $self->clean_status;    $self->setup_request;
490    
491  =cut  =cut
492    
493  sub clean_status {  sub setup_request {
494          my ($self) = shift;          my ($self) = shift;
495          warn "## clean_status";          warn "## clean_status";
496          @head = ( 'static/frey.css' );          @head = ( 'static/frey.css' );
# Line 714  sub strip { Line 722  sub strip {
722          return $t;          return $t;
723  }  }
724    
725    no Moose::Role;
726    
727  1;  1;
Legend:
Removed from v.1124  
changed lines
  Added in v.1172
  ViewVC Help
Powered by ViewVC 1.1.26