lib/Frey/VCI.pm

package Frey::VCI;

use Moose;

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

use HTML::Entities qw/encode_entities/;

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 pre_dump {
        my $o = shift;
        # because Data::Dumper::HTML sucks
        my $t;
        if ( blessed($o) && $o->can('dump') ) {
                $t = $o->dump;
                $t =~ s/ {8}/  /gm;
        } else {
                $t = dump( $o );
        }
        return '<hr><pre>' . encode_entities($t) . '</pre><hr>';
}

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

        my $html;

        my $repo = VCI->connect(
                repo  => $self->repo,
                type  => $self->type,
                debug => $self->debug,
        );

        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>' . encode_entities( $diff->raw ) . '</pre>' .
                pre_dump( $diff );

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

warn "## VCI loaded";

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	dpavlin	189	use HTML::Entities qw/encode_entities/;
9
10	dpavlin	185	extends 'Frey';
11			with 'Frey::Web';
12
13			use Data::Dump qw/dump/;
14
15	dpavlin	513	has 'repo' => (
16			is => 'rw',
17			isa => 'Str',
18			required => 1,
19			default => 'file:///home/dpavlin/private/svn/Frey',
20			);
21	dpavlin	185
22	dpavlin	513	has 'type' => (
23			is => 'rw',
24			isa => 'Str',
25			required => 1,
26			default => 'Svn',
27			);
28
29			has 'project' => (
30			is => 'rw',
31			isa => 'Str',
32			required => 1,
33			default => 'trunk',
34			);
35
36			has 'revision' => (
37			is => 'rw',
38			isa => 'Int\|Str',
39			documentation => 'last revision in repository if not specified',
40			);
41
42	dpavlin	186	sub pre_dump {
43			my $o = shift;
44			# because Data::Dumper::HTML sucks
45	dpavlin	188	my $t;
46			if ( blessed($o) && $o->can('dump') ) {
47			$t = $o->dump;
48			$t =~ s/ {8}/ /gm;
49			} else {
50			$t = dump( $o );
51			}
52	dpavlin	189	return '<hr><pre>' . encode_entities($t) . '</pre><hr>';
53	dpavlin	185	}
54
55	dpavlin	513	sub as_markup {
56			my ( $self ) = @_;
57	dpavlin	192
58	dpavlin	185	my $html;
59
60			my $repo = VCI->connect(
61	dpavlin	513	repo => $self->repo,
62			type => $self->type,
63			debug => $self->debug,
64	dpavlin	185	);
65
66	dpavlin	513	my @projects_available = map { $_->name } @{ $repo->projects };
67			die $self->project," not one of valid projects ", dump( @projects_available ) unless grep { $self->project } @projects_available;
68	dpavlin	185
69	dpavlin	513	my $project = $repo->get_project( name => $self->project );
70			my $rev = $self->revision \|\| $project->head_revision;
71	dpavlin	185
72	dpavlin	513	my $commit = $project->get_commit( revision => $rev ) \|\| die "can't get revision $rev: $@";
73	dpavlin	185
74	dpavlin	188	sub div {
75			my ( $class, $text ) = @_;
76			return "<div class=\"$class\">$text</div>";
77			}
78
79	dpavlin	189	my $diff = $commit->as_diff;
80
81	dpavlin	188	my $body =
82			'<h1>Commit</h1>' .
83			div( 'revision', $commit->revision ) .
84			div( 'commiter', $commit->committer ) .
85			div( 'date', $commit->time->iso8601 ) .
86			div( 'message', $commit->message ) .
87	dpavlin	189	'<pre>' . encode_entities( $diff->raw ) . '</pre>' .
88			pre_dump( $diff );
89	dpavlin	188
90	dpavlin	513	$self->title( $self->repo . '/' . $project->name );
91			return $body;
92	dpavlin	192	};
93	dpavlin	185
94			warn "## VCI loaded";
95
96			1;