gistfile1.txt

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use lib qw(. local/lib/perl5)';

use Bugzilla;
use Bugzilla::FlagType;
use Bugzilla::User;

my $dbh = Bugzilla->dbh;

my $sth = $dbh->prepare("SELECT flag_when, type_id, setter_id, status
                           FROM flag_state_activity
                          WHERE YEAR(flag_when) = 2016 AND MONTH(flag_when) > 2",
                        { Slice => {} });
$sth->execute();

while (my $row = $sth->fetchrow_hashref()) {
    my $type = Bugzilla::FlagType->new({ id => $row->{type_id}, cache => 1 });
    my $setter = Bugzilla::User->new({ id => $row->{setter_id}, cache => 1 });
    my $status = $row->{status};
    my $when = $row->{flag_when};

    if ((($status eq '+' || $status eq '-') && !$setter->can_set_flag($type))
        || ($status eq '?' && !$setter->can_request_flag($type)))
    {
        print STDERR $setter->login . " inappropriately set " . $type->name . $status . " on " . $when . "\n";
    }
}