#------------------------------------------------------------------------------------- # toolbox -- enthält nützliche HTML-Routinen #------------------------------------------------------------------------------------- package toolbox; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(Logging Templateausgabe HTML_Start HTML_Abschluss HTML_Fehlermeldung); use Time::Local; #----------------------------------------------------------- # Logging(typ,programm,funktion,msg): Gibt Texte in ein Logfile aus #----------------------------------------------------------- sub Logging { my $typ = shift; my $programm = shift; my $funktion = shift; my $msg = shift; my $zeile1 = ""; my $logfile = "logfile.txt"; if (!open (LOGFILE, ">> $logfile")) { print "Die Logdatei $logfile wurde nicht gefunden"; return 0; } $zeile1 = &DateTime(); print LOGFILE "$zeile1;$typ;$programm;$funktion;$msg\n"; close (LOGFILE); return 1; } #----------------------------------------------------------- # Templateausgabe(templatefile,text): Fibt Text mit Hilfe eines Templates aus #----------------------------------------------------------- sub Templateausgabe { my $templatefile = shift; my $text = shift; my $zeile1 = ""; my $logfile = "errorlog.txt"; if ($templatefile =~ /fehlermeldung.htm/i) { # Logdatei schreiben if (!open (LOGFILE, ">> $logfile")) { print "Die Logdatei $logfile wurde nicht gefunden"; } else { $zeile1 = &DateTime(); print LOGFILE "$zeile1: $text\n"; close (LOGFILE); } } if (!open (TEMPLATEFILE, "< $templatefile")) { # Templatedatei öffnen print "Die Templatedatei $templatefile wurde nicht gefunden"; return 0; # habe fertig! } while ($zeile1 = ) { # Schreibe in die Templatedatei print $zeile1; if ($zeile1 =~ /\