Sample Hook

Kernel_System_TicketOverview_Hooks_Age.pm

# --
# Copyright (C) 2018 Perl-Services.de, http://perl-services.de
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --

package Kernel::System::TicketOverview::Hooks::Age;

use strict;
use warnings;

our @ObjectDependencies = qw(
    Kernel::Config
    Kernel::System::Time
);

=head1 NAME

Kernel::System::TicketOverview::Hooks::Age

=head1 PUBLIC INTERFACE

=over 4

=cut

=item new()

create an object

=cut

sub new {
    my ( $Type, %Param ) = @_;

    # allocate new hash for object
    my $Self = {};
    bless( $Self, $Type );

    return $Self;
}

=item Run()

Returns a color when the ticket belongs to the Junk-Queue

    my $JunkColor = $JunkObject->Run(
        TicketID => 123,
    );

=cut

sub Run {
    my ( $Self, %Param ) = @_;

    # check needed stuff
    if ( !$Param{Created} && !$Param{CreateTimeUnix} ) {
        $Self->{LogObject}->Log(
            Priority => 'error',
            Message  => "Need Created or CreateTimeUnix!",
        );
        return;
    }   

    my $TimeObject = $Kernel::OM->Get('Kernel::System::Time');
    my $Age        = $TimeObject->SystemTime() - ( $Param{CreateTimeUnix} || $Param{Created} );

    my @Colors = qw( ffff66 ff3300 );  # yellow => older than 7 days, red => older than 10 days

    my $Color;
    if ( $Age > 7 * 24 * 60 * 60 ) {  # older than 7 days
        $Color = $Colors[0];
    }
    if ( $Age > 10 * 24 * 60 * 60 ) {  # older than 10 days
        $Color = $Colors[1];
    }

    return $Color;
}

1;