loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/Attic/lonc between versions 1.9 and 1.10

version 1.9, 2000/12/05 16:51:41	version 1.10, 2000/12/05 19:03:55
Line 12	Line 12

# 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19,	# 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19,
# 10/8,10/9,10/15,11/18,12/22,	# 10/8,10/9,10/15,11/18,12/22,
# 2/8,7/25 Gerd Kortemeyer	# 2/8,7/25 Gerd Kortemeyer
	# 12/05 Scott Harrison
	# 12/05 Gerd Kortemeyer
	#
# based on nonforker from Perl Cookbook	# based on nonforker from Perl Cookbook
# - server who multiplexes without forking	# - server who multiplexes without forking

Line 28 use Crypt::IDEA;	Line 31 use Crypt::IDEA;
# grabs exception and records it to log before exiting	# grabs exception and records it to log before exiting
sub catchexception {	sub catchexception {
my ($signal)=@_;	my ($signal)=@_;
	$SIG{'QUIT'}='DEFAULT';
	$SIG{__DIE__}='DEFAULT';
&logthis("<font color=red>CRITICAL: "	&logthis("<font color=red>CRITICAL: "
."ABNORMAL EXIT. Child $$ for server $wasserver died through "	."ABNORMAL EXIT. Child $$ for server $wasserver died through "
."$signal with this parameter->[$@]</font>");	."$signal with this parameter->[$@]</font>");
Line 40 sub catchexception {	Line 45 sub catchexception {
# (despite what some of the documentation says about SIG{__DIE__}.	# (despite what some of the documentation says about SIG{__DIE__}.
sub catchdie {	sub catchdie {
my ($message)=@_;	my ($message)=@_;
	$SIG{'QUIT'}='DEFAULT';
	$SIG{__DIE__}='DEFAULT';
&logthis("<font color=red>CRITICAL: "	&logthis("<font color=red>CRITICAL: "
."ABNORMAL EXIT. Child $$ for server $wasserver died through "	."ABNORMAL EXIT. Child $$ for server $wasserver died through "
."\_\_DIE\_\_ with this parameter->[$message]</font>");	."\_\_DIE\_\_ with this parameter->[$message]</font>");

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.9
changed lines
	Added in v.1.10