loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.333, 2006/06/07 01:49:43	version 1.335, 2006/06/27 19:01:19
Line 1847 sub update_resource_handler {	Line 1847 sub update_resource_handler {
my $reply=&reply("unsub:$fname","$clientname");	my $reply=&reply("unsub:$fname","$clientname");
&devalidate_meta_cache($fname);	&devalidate_meta_cache($fname);
unlink("$fname");	unlink("$fname");
	unlink("$fname.meta");
} else {	} else {
my $transname="$fname.in.transfer";	my $transname="$fname.in.transfer";
my $remoteurl=&reply("sub:$fname","$clientname");	my $remoteurl=&reply("sub:$fname","$clientname");
Line 5712 sub get_chat {	Line 5713 sub get_chat {
my @entries=();	my @entries=();
my $namespace = 'nohist_chatroom';	my $namespace = 'nohist_chatroom';
my $namespace_inroom = 'nohist_inchatroom';	my $namespace_inroom = 'nohist_inchatroom';
if (defined($group)) {	if ($group ne '') {
$namespace .= '_'.$group;	$namespace .= '_'.$group;
$namespace_inroom .= '_'.$group;	$namespace_inroom .= '_'.$group;
}	}
Line 5744 sub chat_add {	Line 5745 sub chat_add {
my $time=time;	my $time=time;
my $namespace = 'nohist_chatroom';	my $namespace = 'nohist_chatroom';
my $logfile = 'chatroom.log';	my $logfile = 'chatroom.log';
if (defined($group)) {	if ($group ne '') {
$namespace .= '_'.$group;	$namespace .= '_'.$group;
$logfile = 'chatroom_'.$group.'.log';	$logfile = 'chatroom_'.$group.'.log';
}	}