#!/usr/bin/perl -w

use strict;
use CGI::Carp 'fatalsToBrowser';
use Time::HiRes qw(gettimeofday tv_interval usleep);
use PDF::Reuse;

my $stoppuhr = [gettimeofday];

print "Content-type: text/html\n\n";
print "Ich schreibe eine PDF-Rechnung!<br>";

# Vorlage laden
prFile('../customercare/rechnungen/neu.pdf');

# Zielfile bestimmen
prForm( { file  => 'rechungstemplate.pdf',
    first => 1, 
    last  => 1 });

my $abs = "knoefler.com, Tiroler Str. 101, 60385 Frankfurt\n";
my @adressfeld = ('erfolgreiche-firma.de',
          'z.H. Name Nachname',
          'Kundenweg 1',
          '60325 Frankofurto');
my $betreff = "Rechnung zweites Halbjahr 2004";
my $rechnungsnummer = "Rechnungsnummer: 100020042";
my $datum = "19.12.2004";

my @gruss = ("Wir bedanken uns für Ihren Auftrag.",
      "Bitte überweisen Sie den zu zahlenden Betrag innerhalb von 10 Tagen.",
      "Diese Rechnung wurde automatisch erstellt und ist auch ohne Unterschrift gültig."
      );
      
### ADRESSEFELD ###
my $xabstand = 60;
my $yabstand = 680;
my $textsize = 10;
#------------------
my $zeilenabstand = 3;
prFontSize($textsize-4);
prText($xabstand, $yabstand, $abs);
$yabstand -= $zeilenabstand*3;
prFontSize($textsize);
my $cnt=1;
foreach my $zeile (@adressfeld){
    my $y =$yabstand - ($textsize+$zeilenabstand)*$cnt;
    print "schreibe Adresse '$zeile' mit x:$xabstand y:$y <br>\n";
    prText($xabstand , $y, $zeile);
    $cnt++;
}

### BETREFF ###
prFontSize($textsize);
prText($xabstand, 555, $betreff);

###  R-NUMMER  ###
prFontSize($textsize);
prText($xabstand, 490, $rechnungsnummer);

###  DATUM  ###
prFontSize($textsize);
prText(420, 480, $datum);

###    GRUSS    ###
$xabstand = 60;
$yabstand = 200;
$textsize = 10;
$zeilenabstand = 3;
#------------------
prFontSize($textsize);
$cnt=1;
foreach my $zeile (@gruss){
    my $y =$yabstand - ($textsize+$zeilenabstand)*$cnt;
    print "schreibe Gruss '$zeile' mit x:$xabstand y:$y <br>\n";
    prText($xabstand , $y, $zeile);
    $cnt++;
}

my $prozesszeit = tv_interval($stoppuhr, [gettimeofday]);
print "Der Spass dauerte ".$prozesszeit."Sekunden<br>\n";


prEnd();
exit(1);