#!/usr/bin/perl -w
use strict;
use warnings;
use Fcntl qw(:DEFAULT :flock);
my %env = ('server_errorlog' => 'testerror.log',);
if ($^O =~ /mswin/i) { $env{chmod_dateien} = 0666; }
else { $env{chmod_dateien} = 0600; }
local $SIG{__DIE__} = sub {
	(my $error = shift) =~ s/[\r\n]//g;
	&errorlog_eintrag ($error,7);
	close (STDERR);
};
require "math_modul2.pl";
sub errorlog_eintrag {
	my $meldung = shift;
	my $level = shift;
	my %apache_loglevel = (
		1	=> 'debug',
		2	=> 'info',
		3	=> 'notice',
		4	=> 'warn',
		5	=> 'error',
		6	=> 'crit',
		7	=> 'alert',
		8	=> 'emerg',
	);
	if (sysopen (my $errorlog,
			$env{server_errorlog},
			O_WRONLY|O_APPEND|O_CREAT,
			$env{chmod_dateien}))
	{
		print $errorlog '[' . localtime () .
			'] [' .
			$apache_loglevel{$level} .'] [client ' .
			(defined $ENV{'REMOTE_ADDR'} ? $ENV{'REMOTE_ADDR'} : 'localhost') .
			'] ' . $meldung . "\n";
		close $errorlog;
	}
}