File Coverage

blib/lib/FreePAN/IndexPages.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package FreePAN::IndexPages;
use FreePAN::Plugin -Base;
use mixin 'FreePAN::Installer';
use IO::All;
use SVK;
use SVK::XD;
our $VERSION = '0.02';

const class_id => 'indexpages';
const config_file => 'config/indexpages.yaml';

# module, repository, mirror

sub register {
    my $reg = shift;
    $reg->add(command => 'create_module_index',
              description => 'Create Module index page');
    $reg->add(command => 'create_repository_index',
              description => 'Create Repository index page');
}

sub handle_create_repository_index {
    my @repos = map { $_->filename } io($self->hub->config->repos_base)->all_dirs;
    my $output = $self->hub->template->process('repositories.html',repos => \@repos);
    $output > io->catfile($self->hub->config->document_root,"repositories.html")->assert;
}

sub handle_create_module_index {
    die("You don't have repos_base directory\n")
        unless -d $self->hub->config->repos_base;
    my %repos = sub {
        map {
            $_->filename , $_->name
        } io($self->hub->config->repos_base)->all_dirs;
    }->();
    my $output;
    my $xd = SVK::XD->new(depotmap => \%repos);
    my $svk = SVK->new(xd => $xd, output => \$output);
    my %author_of;
    for my $author (keys %repos) {
        $svk->ls("/$author/");
        $author_of{$_} = $author for map {s{/$}{};$_} grep !/^\s*$/,split/\n+/,$output;
    }
    $output = $self->hub->template->process('modules.html',
                                            modules => \%author_of,
                                            hub => $self->hub);
    $output > io->catfile($self->hub->config->document_root,"modules.html")->assert
}

__DATA__