#!/usr/bin/perl -w

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

$AUTOREPO_BRANCH||='p8';
$AUTOREPO_BRANCH=shift @ARGV if @ARGV;
my $platform=substr($AUTOREPO_BRANCH,1,1);

$Source::Repository::Mass::ORIGINPATH='/ALT/Sisyphus/files/SRPMS';
$Source::Repository::Mass::DESTPATH=$AUTOREPO_ROOT.'/'.$AUTOREPO_SHARED_SRPMS.':/ALT/p'.$platform.'/files/SRPMS:/ALT/t'.$platform.'/files/SRPMS';
$RPM::Source::Convert::ALTLinuxBackport::backport_suffix='A'.$platform.'0';
$DistroMap::default_destbranch=$AUTOREPO_BRANCH;

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