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_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	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	dpavlin	186	sub pre_dump {
16			my $o = shift;
17			# because Data::Dumper::HTML sucks
18			my $t = $o->dump; $t =~ s/ {8}/ /gm;
19	dpavlin	185	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	dpavlin	186	body => pre_dump( $project )
52	dpavlin	185	) );
53			$request->next;
54			}
55
56			warn "## VCI loaded";
57
58			1;