#!/usr/bin/perl -w

use strict;
use warnings;
use Carp;

use Source::Repository::Mass;
use Source::Repository::Mass::ALTLinuxImport qw(pldimport/Sisyphus);
use Source::Shared::FindLocalMirror;
use RPM::Source::Convert::Plugins::PLD2ALT;
$Source::Repository::Mass::origin_reponame='Origin repository (PLD)';

my $URL='rsync://ftp.heanet.ie/mirrors/pld-linux';
my $SRPMS='PLD/dists/th/PLD/SRPMS/RPMS';
my $MIRRORROOT=&Source::Shared::FindLocalMirror::find_local_mirror([$SRPMS]);
if (!$MIRRORROOT) {
     print STDERR "$Source::Repository::Mass::origin_reponame: local mirror not found, using web mirror...\n" if $Source::Shared::verbose;
     $MIRRORROOT=$URL.'/'.$SRPMS;
}
$Source::Repository::Mass::ORIGINPATH=$MIRRORROOT;

my $convert=Source::Repository::Mass::ALTLinuxImport->new();
$convert->process();
