#!/usr/bin/perl -w

use strict;
use warnings;
use Gear::Rules;

my $rules=Gear::Rules->new();
my $commits=$rules->external_commits;
unless (@$commits) {
    warn "No external commits found.\n";
    exit 1;
} else {
    map {print 'commit ', $_, "\n"} @$commits;
    exit 0;
}

=head1	NAME

gear-rules-print-external-commits - print external commits.

=head1	DESCRIPTION

Run gear-rules-print-external-commits to see which commits are recognized
by Gear::Rules module as external commits (i.e. commits that does not belong
to the ALT Linux Team maintaiuners, but are project's native commits
(upstream's or contributors' ones).

Exceptions should be saved as .gear/uupdate_ignore_commits
and reported to bugzilla.

=head1	AUTHOR

Written by Igor Vlasenko <viy@altlinux.org>.

=head1	COPYING

Copyright (c) 2010-2019 Igor Vlasenko, ALT Linux Team.

This is free software; you can redistribute it and/or modify it under the terms
of the GNU General Public License as published by the Free Software Foundation;
either version 2 of the License, or (at your option) any later version.

=cut

