#!/usr/bin/perl -T
use warnings;
use strict;
use autodie;
use CGI::Carp qw/fatalsToBrowser/;

BEGIN {
    print "\n" x 10;
    print "content-type: text/plain;\n\n";
    $|=1;
    $\ = "\n";
}

use FindBin qw($RealBin);
my $safepath;
BEGIN {
    print "RealBin = $RealBin";
    if( $RealBin =~ m!^(/home1/pryrtcom)!) {
        $safepath = "$1/../lib";
    } else {
        die "insecure access!";
    }
}
use lib $safepath; # no reason to put quotes around it

use cPanelUserConfig;
use PDF::API2;

print "PDF::API2::VERSION = ", $PDF::API2::VERSION;

my $root = '/home1/pryrtcom/public_html';
print "ROOT = \$root = $root";

my $pdf = PDF::API2->open("$root/../local.pdf");
print "Font => ", my $font = $pdf->font("/usr/share/fonts/dejavu/DejaVuSans.ttf");
print "Page => ", my $page = $pdf->open_page(1);
print "Text => ", my $text = $page->text;

print "set font => ", $text->font($font, 36);
print "set pos => ", $text->position(656, 403);
print "set text => ", $text->text('ABC-123');

print "save => ", $pdf->save("$root/../output.pdf");

undef $\;
print "\n"x4;
print "Content-type: text/plain\n\n";
print "$ENV{'HTTP_HOST'}/../output.pdf\n";