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 = $o->dump; $t =~ s/ {8}/  /gm;
        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;

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

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

        $request->print( $self->page(
                title => $path . '/' . $project->name ,
                body => pre_dump( $project )
        ) );
        $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 = $o->dump; $t =~ s/ {8}/ /gm;
19	return "<pre>$t</pre>";
20	}
21
22	sub html {
23	my ( $self, $request ) = @_;
24
25	my %param = $request->params;
26	warn "## params = ",dump( %param );
27
28	my $html;
29	my $path = 'file:///home/dpavlin/private/svn/Frey';
30
31	my $repo = VCI->connect(
32	repo => $path,
33	type => 'Svn',
34	debug => 1,
35	);
36
37	$html .= qq\|<h1>Projects</h1><ul>\|;
38	$html .= qq\|<li><a href="?name=$_">$_</a></li>\| foreach map { $_->name } @{ $repo->projects };
39	$html .= qq\|</ul>\|;
40
41	$request->print( $self->page( title => $path, body => $html ) );
42	$request->next;
43
44	my %param = $request->params;
45	warn "## params = ",dump( %param );
46
47	my $project = $repo->get_project( name => $param{name} );
48
49	$request->print( $self->page(
50	title => $path . '/' . $project->name ,
51	body => pre_dump( $project )
52	) );
53	$request->next;
54	}
55
56	warn "## VCI loaded";
57
58	1;