sub GetFreeBSDRepository {
    my ($message) = @_;
    my ($FreeBSDRepository) = 'unknown';

    my (@lines) = split("\n", $message);

    for (@lines) {
        my ($line) = $_;

        if ($line =~ /^  FreeBSD \w+? repository/i) {
            $FreeBSDRepository = (split(" ", $line, 3))[1];
            last;
        }
    }

    return $FreeBSDRepository;
}