view release on metacpan or  search on metacpan

eg/nagios2bugzilla/talktobugzilla.pl  view on Meta::CPAN

            if (0 == DateTime->compare($bug->last_change_time,$bug->creation_time)) {

                if ($now->delta_ms($bug->last_change_time)->in_units('hours') < $acktime ) {
                    # give people time to look at it
                    $log->debug(sprintf 'Bug %d is NEW but not yet passed ACK time. Leaving it alone', $bug->id);
                    next
                }

                $log->debug(sprintf 'Bug %d has not been ACK\'d - adding a comment', $bug->id);

                # add a comment, this will taint the bug's last_change_time
                my %comment = (
                    id => $bug->id,
                    comment => sprintf(<<'EOF', $0, hostname(), $acktime)
No activity on new bug within %3$d hours of creation.

***Please tend to this issue urgently***

PLEASEACK: By %1$s running on %2$s
EOF

eg/nagios2bugzilla/talktobugzilla.pl  view on Meta::CPAN

                next

            }

            # if last_change_time >= stir time, then absolutely we need to do something
            if ($now->delta_ms($bug->last_change_time)->in_units('hours') >= $stirtime ) {

                $log->debug(sprintf 'Bug %d needs a stir - adding a comment', $bug->id);

                # add a comment, this will taint the bug's last_change_time
                my %comment = (
                    id => $bug->id,
                    comment => sprintf(<<'EOF', $0, hostname(), $stirtime)
Bug appears to have stalled, %3$d hours of inactivity.

***Please tend to this issue urgently***

STIRSTALLED: By %1$s running on %2$s
EOF