#!/usr/bin/perl

my $name = "test";

my $tex_file = "${name}.tex";
my $log_file = "${name}.log";
my $pdf_file = "${name}.pdf";

my $kopf = <<"END_OF_KOPF";
\\documentclass[pdftex,a4paper,11pt,titlepage]{scrartcl}
\\usepackage[latin1]{inputenc}		% Eingabe-Zeichenkodierung
\\usepackage[T1]{fontenc}		% Ausgabe-Zeichenkodierung
\\usepackage[pdftex]{graphicx}
\\usepackage{float}
\\begin{document}
END_OF_KOPF

my $titelpage = <<"END_OF_TITEL";

\\titlehead{Willi Wuschel GmbH\\\\ 
	   \\vspace{-2cm}
	   \\hspace{8cm}
	   \\includegraphics[width=9cm]{logo.png}}
\\subject{Neues}
\\title{\\Large{Bilderbuch}}
\\author{Balduin Bankerotti}
\\publishers{Publishing Corp.}
\\maketitle
\\tableofcontents
END_OF_TITEL

my $bild = "Babyfoto1.png";
my $bildunterschrift = "Das ist ...";

my $text  = "\\newpage\n";
$text .= "\\section{Babyfotos}\n\n";
$text .= "\\begin{figure}[H]\n";
$text .= "\\centering\n";
$text .= "\\includegraphics[width=6cm,height=5cm]{$bild}\n";
$text .= "\\caption{$bildunterschrift}\n";
$text .= "\\end{figure}\n\n";
$text .= "\\end{document}\n\n";

open(my $fh, ">", $tex_file) or die "cannot open > $tex_file: $!";
print $fh $kopf;
print $fh $titelpage;
print $fh $text;
close $fh;

system("pdflatex -interaction=batchmode $tex_file >> $log_file}");
system("pdflatex -interaction=batchmode $tex_file >> $log_file}");

my $pdf_test = `gs -o nul -sDEVICE=nullpage $pdf_file`;

if ($pdf_test =~ /Error/) {
  print "\nFehler in der PDF-Datei. STOP!!\n";
} else {
  print "  ... ok ...\n";
  print "  $pdf_file erfolreich erzeugt.\n\n";  
}