#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

use strict;
use warnings;

use lib "$ENV{'DOCUMENT_ROOT'}/../lib";

use cPanelUserConfig;
use PDF::API2;
use GD::Tiler qw(tile);

my $test = 0;

my $pdf  = PDF::API2->open("$ENV{'DOCUMENT_ROOT'}/../data/Consent.pdf");
my $page = $pdf->open_page(1);

my @image = (
    "$ENV{'DOCUMENT_ROOT'}/images/admin/dogs/boomer.jpg",
    "$ENV{'DOCUMENT_ROOT'}/images/admin/dogs/1.jpg",
    "$ENV{'DOCUMENT_ROOT'}/images/admin/dogs/2.jpg",
);

my $gd = tile(
            Images          => \@image,
            Center          => 1,
            ImagesPerRow    => 3,
    );

# GD::Tiler is returning a PNG not a GD::Image object
my $image = GD::Image->new($gd);

if ($test == 1) {
    print "Content-type: image/png\n\n";
    print $gd;
    exit;
}
if ($test == 2) {
    use Scalar::Util qw(blessed reftype);

    print "Content-type: text/plain\n\n";
    print blessed($image);  # GD::Imaage
    exit;
}

my $dogs = $pdf->image($image);  # FAILS HERE
$page->object($dogs, 1000 - $gd->width / 2, 100, 100);

$pdf->save("$ENV{'DOCUMENT_ROOT'}/test.pdf");

print "Location: /test.pdf\n\n";
exit;