#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use lib '/var/www/cgi-bin/newtest';
use template;

my $vorlage = "test.tmpl";
my $data={};
my $cgi = CGI->new();
# ein Templateobjekt erzeugen.
# der Vorteil ist,
# wenn das Templatesystem komplexer wird,
# kann man Problemlos mehrere Instanzen nebeneinander nutzen.
my $template=template->new();

# abbruch wenn das template nicht geladen werden konnte
die "Error Read Templatefile ($!)" if(!$template->read($vorlage));

$data->{'print'} = 'Das ist ein test!';

# HTTP-Header Ausgeben
print $cgi->header();

# Warnungen im Browser ausgeben.
# sonst nützt das "use warnings" nicht so viel,
# da die Meldungen sonst nur im Errorlog des Webservers landen
warningsToBrowser(1);

# Das print nicht im templatesystem.
# Eventuell sollen die Generierten Daten noch nacharbeitetet werden.
# (z.B dienen als Daten für ein weiteres Template)
print $template->render($data);

package template;
use strict;
use warnings;

sub new
{
  my $class=shift;
  my $self={};

  # hier wird das Template gespeichert
  $self->{template}='';

  # wir machen aus dem Paket (Klasse) ein Objekt
  bless($self,$class);

  return $self;
}

sub read
{
  # objekt übernehmen
  my $self=shift;
  # dateiname übernehmen
  my $file=shift;

  # ganze Datei einlesen
  # da Inputseparator undef
  local $/=undef;

  # Fehler beim öffnen der Datei -> abbruch
  return 0 if(!open(my $fh, '<', $file));
  # man braucht kein sysopen um eine Datei nur lesend zu öffnen

  # alles einlesen
  $self->{template}=<$fh>;
  close($fh);

  return 1;
}

sub render
{
  my $self=shift;
  my $data=shift;

  # kein Hash -> abbruch
  return '' if(!ref($data) eq 'HASH');

  my $output=$self->{template};

  # "\w" findet alle alphanumerischen Zeichen "[A-Za-z0-9]"
  $output=~ s/<-html_(\w+)->/$data->{lc($1)}/gsx;

  # gerenderter Text zurück
  return $output;
}

1;