loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.70, 2003/10/18 16:33:44	version 1.71, 2003/12/05 22:14:15
Line 270 sub author_res_msg {	Line 270 sub author_res_msg {
my ($filename,$message)=@_;	my ($filename,$message)=@_;
unless ($message) { return 'empty'; }	unless ($message) { return 'empty'; }
$filename=&Apache::lonnet::declutter($filename);	$filename=&Apache::lonnet::declutter($filename);
my ($domain,$author,@dummy)=split(/\//,$filename);	my ($domain,$author)=split(/\//,$filename);
my $homeserver=&Apache::lonnet::homeserver($author,$domain);	my $homeserver=&Apache::lonnet::homeserver($author,$domain);
if ($homeserver ne 'no_host') {	if ($homeserver ne 'no_host') {
my $id=unpack("%32C*",$message);	my $id=unpack("%32C*",$message);
my $msgid;	my $msgid;
($msgid,$message)=&packagemsg($filename,$message);	($msgid,$message)=&packagemsg("Error: [$filename]",$message);
	#FIXME this should be nohist_res_msg, we need to provide an interface
	# to this hash BUG#2444
	#return &Apache::lonnet::reply('put:'.$domain.':'.$author.
	# ':nohist_res_msg:'.
	# &Apache::lonnet::escape($filename.'_'.$id).'='.
	# &Apache::lonnet::escape($message),$homeserver);
return &Apache::lonnet::reply('put:'.$domain.':'.$author.	return &Apache::lonnet::reply('put:'.$domain.':'.$author.
':nohist_res_msgs:'.	':nohist_email:'.
&Apache::lonnet::escape($filename.'_'.$id).'='.	&Apache::lonnet::escape($msgid).'='.
&Apache::lonnet::escape($message),$homeserver);	&Apache::lonnet::escape($message),$homeserver);
}	}
return 'no_host';	return 'no_host';
}	}