loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.953, 2008/03/28 14:52:57	version 1.954, 2008/04/04 16:56:11
Line 1696 sub ssi_body {	Line 1696 sub ssi_body {
my $output='';	my $output='';
my $response;	my $response;
if ($filelink=~/^http\:/) {	if ($filelink=~/^http\:/) {
$output=&externalssi($filelink);	($output,$response)=&externalssi($filelink);
} else {	} else {
($output,$response)=&ssi($filelink,%form);	($output,$response)=&ssi($filelink,%form);
}	}
Line 1761 sub externalssi {	Line 1761 sub externalssi {
my $ua=new LWP::UserAgent;	my $ua=new LWP::UserAgent;
my $request=new HTTP::Request('GET',$url);	my $request=new HTTP::Request('GET',$url);
my $response=$ua->request($request);	my $response=$ua->request($request);
return $response->content;	if (wantarray) {
	return ($response->content, $response);
	} else {
	return $response->content;
	}
}	}

# -------------------------------- Allow a /uploaded/ URI to be vouched for	# -------------------------------- Allow a /uploaded/ URI to be vouched for