/[Frey]/trunk/lib/Frey/VCI.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/VCI.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 188 by dpavlin, Sat Sep 13 16:59:07 2008 UTC revision 189 by dpavlin, Sun Sep 14 00:45:11 2008 UTC
# Line 5  use Moose; Line 5  use Moose;
5  use lib '/rest/cvs/vci/lib'; # FIXME  use lib '/rest/cvs/vci/lib'; # FIXME
6  use VCI;  use VCI;
7    
8    use HTML::Entities qw/encode_entities/;
9    
10  extends 'Frey';  extends 'Frey';
11  with 'Frey::Web';  with 'Frey::Web';
12    
# Line 22  sub pre_dump { Line 24  sub pre_dump {
24          } else {          } else {
25                  $t = dump( $o );                  $t = dump( $o );
26          }          }
27          return "<pre>$t</pre>";          return '<hr><pre>' . encode_entities($t) . '</pre><hr>';
28  }  }
29    
30  sub html {  sub html {
# Line 60  sub html { Line 62  sub html {
62                  return "<div class=\"$class\">$text</div>";                  return "<div class=\"$class\">$text</div>";
63          }          }
64    
65            my $diff = $commit->as_diff;
66    
67          my $body =          my $body =
68                  '<h1>Commit</h1>' .                  '<h1>Commit</h1>' .
69                  div( 'revision', $commit->revision ) .                  div( 'revision', $commit->revision ) .
70                  div( 'commiter', $commit->committer ) .                  div( 'commiter', $commit->committer ) .
71                  div( 'date',     $commit->time->iso8601 ) .                  div( 'date',     $commit->time->iso8601 ) .
72                  div( 'message',  $commit->message ) .                  div( 'message',  $commit->message ) .
73                  '<pre>' . $commit->as_diff->raw . '</pre>';                  '<pre>' . encode_entities( $diff->raw ) . '</pre>' .
74                    pre_dump( $diff );
75    
76          $request->print( $self->page(          $request->print( $self->page(
77                  title => $path . '/' . $project->name,                  title => $path . '/' . $project->name,
Legend:
Removed from v.188  
changed lines
  Added in v.189
  ViewVC Help
Powered by ViewVC 1.1.26