#!/usr/bin/perl

my $tb = $ARGV[0];

$tb =~ /\.tar\.gz$/ or die "not tarball: $tb";

my $tts = `rpmbuild -ts $tb`;
$tts =~ /\s+(\S*\.src\.rpm)/ or die "$tts";
$tts = $1;

print "$tb $tts\n";

my @args =  (qw(sudo /usr/local/encap/mock-git/sbin/mock rebuild -r fedora-13-i386),  "$tts", qw/--no-clean --no-cleanup-after/);

print join ' ',@args;
print "\n";

system @args;