#!/usr/bin/perl -w

use strict;
use warnings;
use Carp;

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

my $MIRRORROOT=&Source::Repository::FindLocalMirror::find_local_mirror(['PLD/dists/th/PLD/SRPMS/RPMS']);
$Source::Repository::Mass::ORIGINPATH=$MIRRORROOT if $MIRRORROOT;

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