#!/usr/bin/perl -w

use strict;
use PDF::API2;
use PDF::Table;

my $pdftable = new PDF::Table;
my $pdf = new PDF::API2(-file => "pdf/table-1.pdf");
   $pdf->preferences(
                      -thumbs => 1,
                );

my $page_num = 1;

my ($name_info, $city_info, $account_info, $location, $all_data);

# this data will be from a db but here it is for testing only
push @$name_info,
                     ['John', 'Carter', 'Verify', 'First and Last', 'Included',],
                     ['John', 'Carter', 'Verify', 'First and Last', 'Included',],
                     ['John', 'Carter', 'Verify', 'First and Last', 'Included',],
                     ['','','','','',],
                     ;
                     
push @$city_info,    
                     ['Populated', 'Warm', 'Ocean', 'Flat', 'Winter',],
                     ['','','','','',],
                     ;
                     
push @$account_info, 
                     ['Paid Acccount', 'Debt', 'Amount', '250.00', 'Total',],
                     ['Paid Acccount', 'Debt', 'Amount', '250.00', 'Total',],
                     ['Paid Acccount', 'Debt', 'Amount', '250.00', 'Total',],
                     ['Paid Acccount', 'Debt', 'Amount', '250.00', 'Total',],
                     ['Paid Acccount', 'Debt', 'Amount', '250.00', 'Total',],
                     ['','','','','',],
                     ;
                     
push @$location, 
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale',],
                     ['','','','','',],
                     ;

############################
my $ref_name_info_header = [ "Name Information", ];
unshift @{ $name_info }, $ref_name_info_header;
#name_info_table($pdf, \@{$name_info});
############################

############################
my $ref_city_info_header = [ "City Information", ];
unshift @{ $city_info }, $ref_city_info_header;
#city_info_table($pdf, \@{$city_info});
############################

############################
my $ref_account_info_header = [ "Account", ];
unshift @{ $account_info }, $ref_account_info_header;
#account_info_table($pdf, \@{$account_info});
############################

############################
my $ref_location_header = [ "Location", ];
unshift @{ $location }, $ref_location_header;
#location_table($pdf, \@{$location});
############################

########## MAIN TABLE HEADER#
my $ref_header =
                 ["Header 1",
                  "Header 2",
                  "Header 3",
                  "Header 4",
                  "Header 5"
                  ];
############################

#unshift @{ $location }, $ref_header; # uncommment to test
#main_table($pdf, \@{$location});     # uncommment to test

# I know this is not possible this way, but thats what I am trying to do.
#push @$all_data, name_info_table, city_info_table, account_info_table, location_table;

unshift @{ $all_data }, $ref_header; 

main_table($pdf, \@{$all_data});


$pdf->saveas();


##########################
sub main_table {
    my $pdf  = shift;
    my $data = shift;

    my $page = newpage();  # first page

# build the table layout

$pdftable->table(
    
    # required params
    $pdf,
    $page,
    $data,
    x => 70,
    w => 650,
    start_y => 550,
    next_y  => 550,
    start_h => 500,
    next_h  => 500,
    
    # some optional params
    padding => 5,
    padding_right => 10,
    border        => 0,
    #background_color_odd  => "gray",
    #background_color_even => "lightblue", 

    new_page_func => \&newpage,  # it brigs header to other pages

    header_props => {  
                           font => $pdf->corefont("Helvetica", -encoding => "uft8"),
                           font_size  => 7,
                           font_color => '#ffffff',
                           bg_color => '#003366',
                           repeat => 1,
                        },
                        
   column_props   => [ map{{justify => 'center' }}1..5, ],
   
 ),


}
################

################
 sub newpage {

    my $page = $pdf->page;

    my $logo = "images/photo.png";
    my $image = $pdf->image_png($logo, 181, 91);
    my $gfx = $page->gfx;
    $gfx->image($image, 5, 530);

    $page->mediabox(792,612);

    page_nr($page, $page_num++);

    return $page;
}

################

################
sub name_info_table {
	
    #my $page = shift;
    my $page = $pdf->page;
    my $pdf = shift;
    my $data = shift;
  
     $pdftable->table(
         # required params
         $pdf,
         $page,
         $data,
         x => 70, # move header to the right
         w => 650,
         start_y => 550, # top od doc on page - 594
         next_y  => 550,
         start_h => 500,
         next_h  => 500,
         
        #OPTIONAL PARAMS BELOW
         padding        => 1,     # cell padding
         padding_top    => 1,    # top cell padding, overides padding
         border         => 1,     # border width, default 1, use 0 for no border
         border_color   => '#ffffff', # default black
         column_props   => [ { justify => 'left' } ],
     );
}
################
################
sub city_info_table {
	
    #my $page = shift; 
    my $page = $pdf->page;
    my $pdf = shift;
    my $data = shift;
  
     $pdftable->table(
         # required params
         $pdf,
         $page,
         $data,
         x => 70, # move header to the right
         w => 650,
         start_y => 550, # top od doc on page - 594
         next_y  => 550,
         start_h => 500,
         next_h  => 500,
         
        #OPTIONAL PARAMS BELOW
         padding        => 1,     # cell padding
         padding_top    => 1,    # top cell padding, overides padding
         border         => 1,     # border width, default 1, use 0 for no border
         border_color   => '#ffffff', # default black
         column_props   => [ { justify => 'left' } ],
     );
}
################
################
sub account_info_table {
	
    #my $page = shift; 
    my $page = $pdf->page;
    my $pdf = shift;
    my $data = shift;
  
     $pdftable->table(
         # required params
         $pdf,
         $page,
         $data,
         x => 70, # move header to the right
         w => 650,
         start_y => 550, # top od doc on page - 594
         next_y  => 550,
         start_h => 500,
         next_h  => 500,
         
        #OPTIONAL PARAMS BELOW
         padding        => 1,     # cell padding
         padding_top    => 1,    # top cell padding, overides padding
         border         => 1,     # border width, default 1, use 0 for no border
         border_color   => '#ffffff', # default black
         column_props   => [ { justify => 'left' } ],
     );
}
################
################
sub location_table {
	
    #my $page = shift;
    my $page = $pdf->page;
    my $pdf = shift;
    my $data = shift;
  
     $pdftable->table(
         # required params
         $pdf,
         $page,
         $data,
         x => 70, # move header to the right
         w => 650,
         start_y => 550, # top od doc on page - 594
         next_y  => 550,
         start_h => 500,
         next_h  => 500,
         
        #OPTIONAL PARAMS BELOW
         padding        => 1,     # cell padding
         padding_top    => 1,    # top cell padding, overides padding
         border         => 1,     # border width, default 1, use 0 for no border
         border_color   => '#ffffff', # default black
         column_props   => [ { justify => 'left' } ],
     );
}
################




################
sub page_nr {
    my $page = shift;
    my $num  = shift;

    $page->gfx->textlabel(   # PDF::API2 method
        760, 15,                           # x, y
        $pdf->corefont("Helvetica"), 8,   # font, size
        "Page $num",                       # text
        -color => '#808080',
        -align => 'right',
    );
}
#################

#################
sub get_date {
    my ($mon, $mday, $year) = (localtime)[4,3,5];
    return sprintf '%02d-%02d-%04d', $mon+1, $mday, $year+1900;
}
#################