File Coverage

blib/lib/FreePAN/SVKMirror.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::SVKMirror;
use FreePAN::Plugin -Base;
our $VERSION = '0.01';
use URI;
use SVK 0.30;
use SVK::XD;

field svk => -init => q{$self->svk_init};

sub svk_init {
    $self->create_repos unless (-d $self->plugin_directory);
    my $xd = SVK::XD->new(depotmap => {'' => $self->plugin_directory});
    return SVK->new(xd=>$xd);
}

sub register {
    my $reg = shift;
    $reg->add(command => 'mirror',
              description => 'Mirror other svn repository to freepan repository');
}

sub create_repos {
    system("svnadmin create --fs-type fsfs ". $self->plugin_directory);
}

sub resolve_remote {
    my @dir = split('/',URI->new(shift||return)->path);
    ($dir[-1]=~/trunk|tag|branch/i)?$dir[-2]:$dir[-1];
}

sub mirror_freepan_repos {
    my ($reponame) = @_;
    my $remote = $self->hub->config->svn_domain_name . "/$reponame";
    $self->svk->mirror("//freepan/$reponame",$remote);
    $self->svk->sync("//freepan/$reponame");
}

sub mirror_remote_repos {
    my ($reponame,$remote) = @_;
    $self->svk->mirror("//mirror/$reponame",$remote);
    $self->svk->sync("//mirror/$reponame");
}

sub handle_mirror {
    my ($repo,$remote,$rename) = @_;
    my $module = $self->resolve_remote($remote);
    $self->mirror_freepan_repos($repo);
    $self->mirror_remote_repos($module,$remote);
    $self->svk->mkdir("//freepan/$repo/$module",
                      -p => -m => "make $module directory");
    $self->svk->smerge(-BI => '--verbatim' => "//mirror/$module","//freepan/$repo/$module");
}

__DATA__