loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.941, 2008/02/03 05:08:05	version 1.942, 2008/02/21 10:04:35
Line 1650 sub absolute_url {	Line 1650 sub absolute_url {
return $protocol.$host_name;	return $protocol.$host_name;
}	}

	#
	# Server side include.
	# Parameters:
	# fn Possibly encrypted resource name/id.
	# form Hash that describes how the rendering should be done
	# and other things.
	# r Optional reference that will be given the response.
	# This is mostly provided so that the caller can implement
	# error detection, recovery and retry policies.
	#
	# Returns:
	# The content of the response.
sub ssi {	sub ssi {

my ($fn,%form)=@_;	my ($fn,%form, $r)=@_;

my $ua=new LWP::UserAgent;	my $ua=new LWP::UserAgent;

Line 1670 sub ssi {	Line 1682 sub ssi {
$request->header(Cookie => $ENV{'HTTP_COOKIE'});	$request->header(Cookie => $ENV{'HTTP_COOKIE'});
my $response=$ua->request($request);	my $response=$ua->request($request);

	if ($r) {
	$$r = $response;
	}

return $response->content;	return $response->content;
}	}