#!/usr/bin/perl
use PDF::API2;

$InFile = $ARGV[0];
$InImage = $ARGV[1];
$OutFile = $ARGV[2];

#$InFile = $Global_ImageFile;
my ($aLine);
my($count);


#########################
sub escape
#########################
{
  local ( $text ) = @_;
  $text =~ s/\014//g;
  $text =~ s/\015//g;
  $text =~ s/\133\133B\135\135//g;
  $text =~ s/\133\133\057B\135\135//g;
  $text =~ s/\133\133U\135\135//g;
  $text =~ s/\133\133\057U\135\135//g;
  $text =~ s/\133\133BU\135\135/<B><U>/g;
  $text =~ s/\133\133\057BU\135\135/<\/U><\/B>/g;
  #$text =~ s/\050/\134\050/g;
  $text =~ s/\133\133O\061\067\135\135//g;
  $text =~ s/\133\133O\061\062\135//g;
  #$text =~ s/\051/\134\051/g;
  $text =~ s/\115\105\123\123\105\122\123\072//g; 
  $text =~ s/&#1491;&#1493;&#1489;&#1499;&#1500;//g;
  return $text;
}


$pdf  = PDF::API2->new();                                       
$page = $pdf->page;
print "$InImage\n";                                             
$img = $pdf->image_jpeg($InImage) or die "Couldn't add '$InImage' as a file.";                             
$gfx = $page->gfx;                                              
$font = $pdf->corefont('Helvetica', -encoding => 'latin1');     
$pagelines = 1;
$MaxHeight=900;
$TopPage=$MaxHeight ;

$page ->mediabox( 'A4');
$gfx->image( $img,-15, -25, 0.25);


open (InFile,$InFile);
while ($fLine = <InFile>)
   {

    $aLine = $fLine;
	#chomp $aLine;                  
	#$pos = index($aLine,"\014");
	$aLine = &escape( $aLine );    
	$pagelines++;
	$text = $page->text; 
	$text->font($font, 10); 
    $tmp_page=$TopPage - $pagelines*13; 
	$text->translate(0, $tmp_page); 
    $text->text($aLine);
	

###    file load     ###
	if(!(($count % 2)==0 ))
	{
		printf("$count\n");
	}
	$count++;
########################	
   };

close (InFile);

$pdf->saveas($OutFile);