#!/usr/bin/env perl
#
# wctest.pl - A test to see where the wide characters come from.

use strict;
use warnings;
use RT::Client::REST;
use RT::Client::REST::Ticket;
use Data::HexDump;

my $user='user';
my $pass='pass';

my $rt = RT::Client::REST->new(
    server  => ('https://rt.local'),
	basic_auth_cb => ( sub { return ($user, $pass); } )

);

$rt->login( username=> $user, password=> $pass,);
my $ticket_ptr = RT::Client::REST::Ticket->new(rt => $rt);

my $results = $ticket_ptr->search( limits => [ { attribute => 'id', operator => '=', value => '51447' }, ],);

my $iterator = $results->get_iterator;
my ($ticket, $attachments);
while ($ticket = &$iterator) {
	$attachments = $ticket->attachments;

	# Store attachments
	my $atch_ater = $attachments->get_iterator;
	while (my $att = &$atch_ater) {
		next if ($att->file_name eq '');
		print HexDump substr($att->content, 0, 64);
	}
}