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