trunk/lib/SourceSnoop.pm

package SourceSnoop;

use Moose;

use lib '/rest/cvs/vci/lib'; # FIXME
use VCI;

extends 'Frey';
with 'Frey::Web';

use Data::Dump qw/dump/;

our $debug = 1;

sub pre_dump {
        my $o = shift;
        # because Data::Dumper::HTML sucks
        my $t;
        if ( blessed($o) && $o->can('dump') ) {
                $t = $o->dump;
                $t =~ s/ {8}/  /gm;
        } else {
                $t = dump( $o );
        }
        return "<pre>$t</pre>";
}

sub html {
        my ( $self, $request ) = @_;

        my %param = $request->params;
        warn "## params = ",dump( %param );

        my $html;
        my $path = 'file:///home/dpavlin/private/svn/Frey';

        my $repo = VCI->connect(
                repo => $path,
                type => 'Svn',
                debug => 1,
        );

        $html .= qq|<h1>Projects</h1><ul>|;
        $html .= qq|<li><a href="?name=$_">$_</a></li>| foreach map { $_->name } @{ $repo->projects };
        $html .= qq|</ul>|;

        $request->print( $self->page( title => $path, body => $html ) );
        $request->next;

        %param = $request->params;
        warn "## params = ",dump( %param );

        my $project = $repo->get_project( name => $param{name} );
        my $rev = $project->head_revision;

        my $commit = $project->get_commit( revision => $rev );

        sub div {
                my ( $class, $text ) = @_;
                return "<div class=\"$class\">$text</div>";
        }

        my $body =
                '<h1>Commit</h1>' .
                div( 'revision', $commit->revision ) .
                div( 'commiter', $commit->committer ) .
                div( 'date',     $commit->time->iso8601 ) .
                div( 'message',  $commit->message ) .
                '<pre>' . $commit->as_diff->raw . '</pre>';

        $request->print( $self->page(
                title => $path . '/' . $project->name,
                body => $body,
        ) );
        $request->next;
}

warn "## VCI loaded";

1;
1	package SourceSnoop;
2
3	use Moose;
4
5	use lib '/rest/cvs/vci/lib'; # FIXME
6	use VCI;
7
8	extends 'Frey';
9	with 'Frey::Web';
10
11	use Data::Dump qw/dump/;
12
13	our $debug = 1;
14
15	sub pre_dump {
16	my $o = shift;
17	# because Data::Dumper::HTML sucks
18	my $t;
19	if ( blessed($o) && $o->can('dump') ) {
20	$t = $o->dump;
21	$t =~ s/ {8}/ /gm;
22	} else {
23	$t = dump( $o );
24	}
25	return "<pre>$t</pre>";
26	}
27
28	sub html {
29	my ( $self, $request ) = @_;
30
31	my %param = $request->params;
32	warn "## params = ",dump( %param );
33
34	my $html;
35	my $path = 'file:///home/dpavlin/private/svn/Frey';
36
37	my $repo = VCI->connect(
38	repo => $path,
39	type => 'Svn',
40	debug => 1,
41	);
42
43	$html .= qq\|<h1>Projects</h1><ul>\|;
44	$html .= qq\|<li><a href="?name=$_">$_</a></li>\| foreach map { $_->name } @{ $repo->projects };
45	$html .= qq\|</ul>\|;
46
47	$request->print( $self->page( title => $path, body => $html ) );
48	$request->next;
49
50	%param = $request->params;
51	warn "## params = ",dump( %param );
52
53	my $project = $repo->get_project( name => $param{name} );
54	my $rev = $project->head_revision;
55
56	my $commit = $project->get_commit( revision => $rev );
57
58	sub div {
59	my ( $class, $text ) = @_;
60	return "<div class=\"$class\">$text</div>";
61	}
62
63	my $body =
64	'<h1>Commit</h1>' .
65	div( 'revision', $commit->revision ) .
66	div( 'commiter', $commit->committer ) .
67	div( 'date', $commit->time->iso8601 ) .
68	div( 'message', $commit->message ) .
69	'<pre>' . $commit->as_diff->raw . '</pre>';
70
71	$request->print( $self->page(
72	title => $path . '/' . $project->name,
73	body => $body,
74	) );
75	$request->next;
76	}
77
78	warn "## VCI loaded";
79
80	1;