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	dpavlin	185	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;