#!/usr/bin/perl -w

use strict;
use warnings;
use Source::Repository::Mass::ALTLinuxBackport::PassThrough;
use RPM::Source::Transformation::GenericUtility;
use Autorepo::Config;

$AUTOREPO_BRANCH||='p10';
$AUTOREPO_BRANCH=shift @ARGV if @ARGV;
my $platform= $AUTOREPO_BRANCH=~s,^\D(\d+).*$,$1,r;

$Source::Repository::Mass::ORIGINPATH='/ALT/Sisyphus/files/SRPMS';
$Source::Repository::Mass::DESTPATH=$AUTOREPO_ROOT.'/'.$AUTOREPO_SHARED_SRPMS.':/ALT/p'.$platform.'/files/SRPMS';
$Source::Repository::Mass::DESTPATH.=':/ALT/t'.$platform.'/files/SRPMS' if $platform < 9;

if ($platform < 10) {
    $RPM::Source::Convert::ALTLinuxBackport::backport_suffix='A'.$platform.'0';
} else {
    $RPM::Source::Convert::ALTLinuxBackport::backport_suffix='a'.$platform;
}
$DistroMap::default_destbranch=$AUTOREPO_BRANCH;

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