#!/usr/bin/perl -w

use strict;
use warnings;
use Carp;

use Source::Repository::Mass;
use Source::Repository::Mass::ALTLinuxImport;
use RPM::Source::Convert::Plugins::PLD2ALT;

$DistroMap::default_originrepo='pld';

my ($MIRRORROOT)= grep {-d $_} qw'/var/ftp/pub/Linux /mirror/Linux /srv/public/mirror/Linux Linux';

$ORIGINPATH="$MIRRORROOT/PLD/dists/th/PLD/SRPMS/RPMS";

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