#!/usr/bin/perl -w
use strict;
use diagnostics;
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{__WARN__} = sub {
	(my $error = shift) =~ s/[\r\n]//g;
	&errorlog_eintrag ($error,4);
};
local $SIG{__DIE__} = sub {
	(my $error = shift) =~ s/[\r\n]//g;
	&errorlog_eintrag ($error,7);
	close (STDERR);
};

# Hier Programm, dass Fehler macht
my $a;
my $b = $a + 3;		# __WARN__ "Use of uninitialized value $a in addition (+) at sig.pl line ..."
print "Bin noch da in " . __LINE__ . "\n";

if (1==2) {
	alarm (2);
	while (1==1) {}		# __DIE__ "Terminating on signal SIGALRM(14)"
}
print "Bin noch da in " . __LINE__ . "\n";

if (1==1) {
	$a = 7/0;			# __DIE__ "Illegal division by zero at sig.pl line ..."
}
print "Bin noch da in " . __LINE__ . "\n";
###############################################################################
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;
	}
}