#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

my $status;
my $pkgkey;#=$ENV{'REPOCOP_PKG_KEY'};
my $testname; #=$ENV{'REPOCOP_TEST_NAME'};
my $message;

my $result = GetOptions (
#    "k|key=s"  => \$pkgkey,
    "t|test=s"  => \$testname,
    "s|status=s"  => \$status,
    "m|message=s"  => \$message,
);

my $key_col=0;
my $msg_col=1;
my $num_of_fields=2;
my $get_key=sub {$_[0]->[$key_col]};
my $get_msg=sub {$_[0]->[$msg_col]};

my @cmd=('repocop-test-'.$status);
push @cmd, '-t', $testname if $testname;

if ($message) {
    my $num_of_fields=1;
    $get_msg=sub {$message};
}

my $split_limit=$num_of_fields+1;

while (<>) {
    chomp;
    my @a=split /\t/, $_, $split_limit;
    system(@cmd, '-k', &$get_key(\@a), &$get_msg(\@a));
}
