loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.943, 2008/02/24 22:59:17	version 1.944, 2008/02/26 10:39:44
Line 1692 sub absolute_url {	Line 1692 sub absolute_url {
# fn Possibly encrypted resource name/id.	# fn Possibly encrypted resource name/id.
# form Hash that describes how the rendering should be done	# form Hash that describes how the rendering should be done
# and other things.	# and other things.
# r Optional reference that will be given the response.	# Returns:
# This is mostly provided so that the caller can implement	# Scalar context: The content of the reply.
# error detection, recovery and retry policies.	# Array context: 2 element list of the content and the full response variable.
#	#
# Returns:	# Returns:
# The content of the response.	# The content of the response.
sub ssi {	sub ssi {

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


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

Line 1717 sub ssi {	Line 1719 sub ssi {

$request->header(Cookie => $ENV{'HTTP_COOKIE'});	$request->header(Cookie => $ENV{'HTTP_COOKIE'});
my $response=$ua->request($request);	my $response=$ua->request($request);
	my $status = $response->code;

if ($r) {	if (wantarray) {
$$r = $response;	return ($response->content, $response);
	} else {
	return $response->content;
}	}

return $response->content;
}	}

sub externalssi {	sub externalssi {