loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.253, 2002/07/17 19:18:47	version 1.254, 2002/07/27 19:06:41
Line 708 sub ssi {	Line 708 sub ssi {
return $response->content;	return $response->content;
}	}

	# ------- Add a token to a remote URI's query string to vouch for access rights

	sub tokenwrapper {
	my $uri=shift;
	my $token=&reply('tmpput:'.&escape($uri),$perlvar{'lonHostID'});
	return $uri.(($uri=~/\?/)?'&':'?').
	'token='.$token.'&server='.$perlvar{'lonHostID'};
	}


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

sub log {	sub log {