package InContact::PDF::Newsletter;
use strict;
use Data::Dumper;

use PDF::API2;

use constant mm => 25.4 / 72;
use constant in => 1 / 72;
use constant pt => 1;

sub new {
  my ( $class, %arg ) = @_;
  my $self = bless {
    _dbh      => $arg{-dbh},
    _tbl      => $arg{-tbl} || 'dst_tbl',
    _out_file => $arg{-outfile} || 'newsletter.pdf',
    #_compress => $arg{-compress} || 1,
    _mw => $arg{-mw},
  }, $class;
  return $self;
}

sub create_pdf {
  my $self = shift;

  my $pdf = PDF::API2->open('nltemplate.pdf');


  my %font = (
              LucidaSans => {
                             Regular => $pdf->ttfont('lsans.ttf'),
                             Italic => $pdf->ttfont('lsansi.ttf'),
                             },
              
              TimesNewRoman => {
                                Regular => $pdf->ttfont('TIMES.TTF'),
                                Italic => $pdf->ttfont('TIMESI.TTF'),
                                Bold => $pdf->ttfont('TIMESBD.TTF'),
                                BoldItalic => $pdf->ttfont('TIMESBI.TTF'),
                                
                               },
              );
  
  my %colour = (
                Brown => {
                          MastheadText => "#995D1D",
                         },
               );
  
  
  $pdf->saveas( $self->{_out_file} );
  system("$self->{_out_file}");

  return;

}

1;


##</code><code>##

Argument "a" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "b" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "c" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "d" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "e" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "f" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "g" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "h" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "i" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "j" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "k" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "l" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "m" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "n" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "o" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "p" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "q" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "r" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "s" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "t" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "u" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "v" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "w" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "x" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "y" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "z" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "A" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "B" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "C" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "D" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "E" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "F" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "G" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "H" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "I" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "J" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "K" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "L" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "M" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "N" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "O" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "P" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "Q" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "R" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "S" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "T" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "U" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "V" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "W" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "X" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "Y" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "Z" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Argument "space" isn't numeric in array element at C:/Perl/site/lib/PDF/API2/Resource/BaseFont.pm line 548.
Use of uninitialized value in addition (+) at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 358.
Use of uninitialized value in numeric ne (!=) at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 358.
Use of uninitialized value in numeric eq (==) at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 359.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 395.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 333.
Use of uninitialized value in addition (+) at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 358.
Use of uninitialized value in numeric ne (!=) at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 358.
Use of uninitialized value in numeric eq (==) at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 359.
Use of uninitialized value in pack at C:/Perl/site/lib/PDF/API2/Basic/TTF/Cmap.pm line 395.
Wide character in print at C:/Perl/site/lib/PDF/API2.pm line 775.