#!/usr/bin/perl

use strict;
use warnings;
use Error qw(:try);
use RT::Client::REST;
use DateTime;
use Text::SimpleTable;
use Data::Dumper;
use List::Util qw( max );

my $user = '';
my $pass = '';
my $dt   = DateTime->now;
my $ymd  = $dt->clone->subtract( months => 1 )->ymd;
my @queues = qw/ xxxx /;

my $rt = RT::Client::REST->new(
    server  => 'http://xxxxx',
    timeout => 30,
);

try {
    $rt->login( username => $user, password => $pass );
  }
  catch RT::Client::REST::Exception with {
    die "Problem logging in: ", shift->message;
  };

try {
    my $t = Text::SimpleTable->new(
        [ 11, 'ID' ],
        [ 25, 'Subject' ],
        [ 30, 'Requestor' ],
        [ 25, 'Created' ],
        [ 25, 'Last Updated' ]
    );
    my @subj_len;
    for my $queue (@queues) {
        my @ids = $rt->search(
            type  => 'ticket',
            query => "Created > '$ymd' AND Queue = '$queue'",
        );

        for my $id ( sort @ids ) {
            my ($ticket) = $rt->show( type  => 'ticket', id => $id );
            push @subj_len, length $ticket->{Subject};

            $t->row(
                $ticket->{id},         $ticket->{Subject},
                $ticket->{Requestors}, $ticket->{Created},
                $ticket->{LastUpdated},
            );
        }
        my $subj_max = max @subj_len;
        print $subj_max, "\n";
        print $t->draw;
    }
  }
  catch RT::Client::REST::Exception with {
    print "Something went wrong.", shift->message;
  };