loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.262, 2002/08/07 20:40:57	version 1.263, 2002/08/08 13:42:01
Line 608 sub userenvironment {	Line 608 sub userenvironment {
return %returnhash;	return %returnhash;
}	}

	# -------------------------------------------------------------------- New chat

	sub chatsend {
	my ($newentry,$anon)=@_;
	my $cnum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};
	my $cdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
	my $chome=$ENV{'course.'.$ENV{'request.course.id'}.'.home'};
	&reply('chatsend:'.$cdom.':'.$cnum.':'.
	&escape($ENV{'user.domain'}.':'.$ENV{'user.name'}.':'.$anon.':'.
	&escape($newentry)),$chome);
	}

# ----------------------------- Subscribe to a resource, return URL if possible	# ----------------------------- Subscribe to a resource, return URL if possible

sub subscribe {	sub subscribe {
Line 766 sub userfileupload {	Line 778 sub userfileupload {
}	}
# Notify homeserver to grep it	# Notify homeserver to grep it
#	#
# FIXME - this still needs to happen	if
	(&reply('fetchuserfile:'.$docudom.'/'.$docuname.'/'.$fname,$docuhome) eq 'ok')
	{
#	#
# Return the URL to it	# Return the URL to it
return '/uploaded/'.$path.$fname;	return '/uploaded/'.$path.$fname;
	} else {
	return '/adm/notfound.html';
	}
}	}

# ------------------------------------------------------------------------- Log	# ------------------------------------------------------------------------- Log