lib/Frey/VCI.pm

package Frey::VCI;

use Moose;

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

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

use Data::Dump qw/dump/;

has 'repo' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'file:///home/dpavlin/private/svn/Frey',
);

has 'type' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'Svn',
);

has 'project' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'trunk',
);

has 'revision' => (
        is => 'rw',
        isa => 'Int|Str',
        documentation => 'last revision in repository if not specified',
);

sub as_markup {
        my ( $self ) = @_;

        my $html;

        my $repo = VCI->connect(
                repo  => $self->repo,
                type  => $self->type,
                debug => $self->debug,
        ) || die "can't open ",$self->type," ",$self->repo;

        my @projects_available = map { $_->name } @{ $repo->projects };
        die $self->project," not one of valid projects ", dump( @projects_available ) unless grep { $self->project } @projects_available;

        my $project = $repo->get_project( name => $self->project );
        my $rev = $self->revision || $project->head_revision;

        my $commit = $project->get_commit( revision => $rev ) || die "can't get revision $rev: $@";

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

        my $diff = $commit->as_diff;

        my $body =
                '<h1>Commit</h1>' .
                div( 'revision', $commit->revision ) .
                div( 'commiter', $commit->committer ) .
                div( 'date',     $commit->time->iso8601 ) .
                div( 'message',  $commit->message ) .
                '<pre>' . $self->html_escape( $diff->raw ) . '</pre>';
        
        $self->add_status({ dump => $diff });

        $self->title( $self->repo . '/' . $project->name );
        return $body;
};

warn "## VCI loaded";

__PACKAGE__->meta->make_immutable;
no Moose;

1;
1	dpavlin	513	package Frey::VCI;
2	dpavlin	185
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	dpavlin	513	has 'repo' => (
14			is => 'rw',
15			isa => 'Str',
16			required => 1,
17			default => 'file:///home/dpavlin/private/svn/Frey',
18			);
19	dpavlin	185
20	dpavlin	513	has 'type' => (
21			is => 'rw',
22			isa => 'Str',
23			required => 1,
24			default => 'Svn',
25			);
26
27			has 'project' => (
28			is => 'rw',
29			isa => 'Str',
30			required => 1,
31			default => 'trunk',
32			);
33
34			has 'revision' => (
35			is => 'rw',
36			isa => 'Int\|Str',
37			documentation => 'last revision in repository if not specified',
38			);
39
40			sub as_markup {
41			my ( $self ) = @_;
42	dpavlin	192
43	dpavlin	185	my $html;
44
45			my $repo = VCI->connect(
46	dpavlin	513	repo => $self->repo,
47			type => $self->type,
48			debug => $self->debug,
49	dpavlin	515	) \|\| die "can't open ",$self->type," ",$self->repo;
50	dpavlin	185
51	dpavlin	513	my @projects_available = map { $_->name } @{ $repo->projects };
52			die $self->project," not one of valid projects ", dump( @projects_available ) unless grep { $self->project } @projects_available;
53	dpavlin	185
54	dpavlin	513	my $project = $repo->get_project( name => $self->project );
55			my $rev = $self->revision \|\| $project->head_revision;
56	dpavlin	185
57	dpavlin	513	my $commit = $project->get_commit( revision => $rev ) \|\| die "can't get revision $rev: $@";
58	dpavlin	185
59	dpavlin	188	sub div {
60			my ( $class, $text ) = @_;
61			return "<div class=\"$class\">$text</div>";
62			}
63
64	dpavlin	189	my $diff = $commit->as_diff;
65
66	dpavlin	188	my $body =
67			'<h1>Commit</h1>' .
68			div( 'revision', $commit->revision ) .
69			div( 'commiter', $commit->committer ) .
70			div( 'date', $commit->time->iso8601 ) .
71			div( 'message', $commit->message ) .
72	dpavlin	518	'<pre>' . $self->html_escape( $diff->raw ) . '</pre>';
73
74			$self->add_status({ dump => $diff });
75	dpavlin	188
76	dpavlin	513	$self->title( $self->repo . '/' . $project->name );
77			return $body;
78	dpavlin	192	};
79	dpavlin	185
80			warn "## VCI loaded";
81
82	dpavlin	1133	__PACKAGE__->meta->make_immutable;
83			no Moose;
84
85	dpavlin	185	1;