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;