#!/usr/bin/perl -w

use strict;
use warnings;
use Carp;

use Source::Repository::Mass;
use Source::Repository::Mass::ALTLinuxImport qw!mgaimport/Sisyphus!;
use Source::Repository::Mass::SkipPkg::ImportSkipMassRebuild;
use RPM::Source::Convert::Plugins::Mageia2ALT;
use Source::Shared::FindLocalMirror;
$Source::Repository::Mass::origin_reponame='Origin repository (Mageia)';

my $MIRRORROOT=&Source::Shared::FindLocalMirror::find_local_mirror(['mageia/distrib/cauldron/SRPMS']);
if (!$MIRRORROOT) {
    my $URL=$ENV{'USE_YANDEX_MIRROR'} ? 'rsync://mirror.yandex.ru/mageia' :
	'rsync://ftp-stud.hs-esslingen.de/Mageia';
    #rsync://ftp.acc.umu.se/mirror/mageia
    print STDERR "$Source::Repository::Mass::origin_reponame: local mirror not found, using web mirror...\n" if $Source::Shared::verbose;
    $MIRRORROOT=$URL.'/'.'distrib/cauldron/SRPMS';
}
my @subdirs;
foreach my $level1 (qw!core tainted nonfree!) {
    foreach my $level2 (qw!release!) { # updates - empty for cauldron
	push @subdirs, $level1.'/'.$level2;
    }
}
$Source::Repository::Mass::ORIGINPATH=join(':',map {$MIRRORROOT.'/'.$_} @subdirs);

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