#!/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!
";
# 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
\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
\n";
prText($xabstand , $y, $zeile);
$cnt++;
}
my $prozesszeit = tv_interval($stoppuhr, [gettimeofday]);
print "Der Spass dauerte ".$prozesszeit."Sekunden
\n";
prEnd();
exit(1);