loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.123, 2003/03/28 20:40:52	version 1.125, 2003/04/05 00:11:34
Line 375 sub reconlonc {	Line 375 sub reconlonc {
if (kill 0 => $loncpid) {	if (kill 0 => $loncpid) {
&logthis("lonc at pid $loncpid responding, sending USR1");	&logthis("lonc at pid $loncpid responding, sending USR1");
kill USR1 => $loncpid;	kill USR1 => $loncpid;
sleep 5;
if (-e "$peerfile") { return; }
&logthis("$peerfile still not there, give it another try");
sleep 10;
if (-e "$peerfile") { return; }
&logthis(
"<font color=blue>WARNING: $peerfile still not there, giving up</font>");
} else {	} else {
&logthis(	&logthis(
"<font color=red>CRITICAL: "	"<font color=red>CRITICAL: "
Line 1843 sub getchat {	Line 1836 sub getchat {
@entries=map { $_.':'.$hash{$_} } sort keys %hash;	@entries=map { $_.':'.$hash{$_} } sort keys %hash;
untie %hash;	untie %hash;
}	}
	my @participants=();
$cutoff=time-60;	$cutoff=time-60;
if (tie(%hash,'GDBM_File',"$proname/nohist_inchatroom.db",	if (tie(%hash,'GDBM_File',"$proname/nohist_inchatroom.db",
&GDBM_READER(),0640)) {	&GDBM_WRCREAT(),0640)) {
$hash{$uname.':'.$undom}=time;	$hash{$uname.':'.$udom}=time;
foreach (sort keys %hash) {	foreach (sort keys %hash) {
if ($hash{$_}>$cutoff) {	if ($hash{$_}>$cutoff) {
$entries[$#entries+1]='active_participant:'.$_;	$participants[$#participants+1]='active_participant:'.$_;
}	}
}	}
untie %hash;	untie %hash;
}	}
return @entries;	return (@participants,@entries);
}	}

sub chatadd {	sub chatadd {