#Wird mit USE eingebunden
package database;
use strict;
use Fcntl;
our (@ISA, @EXPORT, $VERSION);
use Exporter;
$VERSION = 1.00;
@ISA = ("Exporter");
@EXPORT = qw(html_ausgeben);

sub html_ausgeben {
my $cgi = CGI->new;
my ($vorlage, $htmlref) = @_;
my @vorlage = &lade_datei($vorlage);
my $html = $cgi->header;
foreach my $zeile (@vorlage) {
$zeile =~ s/<-html_([a-z0-9]+)->/$htmlref->{$1}/gix;
$html .= $zeile;
} return $html; }

sub lade_datei {
my $datei = shift;
sysopen(VORLAGE, $datei, O_RDONLY) or die("$!");
my @vorlage = <VORLAGE>;
close(VORLAGE) or die("$!");
return @vorlage;
}
1;