loncom/loncnew - diff

Return to loncnew CVS log

Up to [LON-CAPA] / loncom

version 1.58, 2004/09/22 10:34:44	version 1.59, 2004/09/22 10:46:06
Line 1466 sub SetupLoncListener {	Line 1466 sub SetupLoncListener {
Type => SOCK_STREAM)) {	Type => SOCK_STREAM)) {
die "Failed to create a lonc listner socket";	die "Failed to create a lonc listner socket";
}	}
Event->io(cb => \&NewClient,	return $socket;
poll => 'r',
desc => 'Lonc listener Unix Socket',
fd => $socket);
}	}

#	#
Line 1597 sub ChildProcess {	Line 1594 sub ChildProcess {
data => "INT");	data => "INT");


SetupLoncListener();	my $socket = SetupLoncListener();
	Event->io(cb => \&NewClient,
	poll => 'r',
	desc => 'Lonc Listener Unix Socket',
	fd => $socket);

$Event::Debuglevel = $DebugLevel;	$Event::Debuglevel = $DebugLevel;