loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.54, 2014/12/11 01:12:14	version 1.55, 2017/05/23 03:07:40
Line 31 package Apache::imsprocessor;	Line 31 package Apache::imsprocessor;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncleanup;	use Apache::loncleanup;
use Apache::lonlocal;	use Apache::lonlocal;
use LWP::UserAgent;
use HTTP::Request::Common;	use HTTP::Request::Common;
use LONCAPA::Configuration;	use LONCAPA::Configuration;
	use LONCAPA::LWPReq;
use strict;	use strict;

sub ims_config {	sub ims_config {
Line 4957 sub retrieve_image {	Line 4957 sub retrieve_image {
my ($context,$res,$dirname,$cdom,$cname,$docroot,$destdir,$urlpath,$filename) = @_;	my ($context,$res,$dirname,$cdom,$cname,$docroot,$destdir,$urlpath,$filename) = @_;
my $contents;	my $contents;
my $url = $urlpath.$filename;	my $url = $urlpath.$filename;
my $ua=new LWP::UserAgent;	my $lonhost = $Apache::lonnet::perlvar{'lonHostID'};
my $request=new HTTP::Request('GET',$url);	my $request=new HTTP::Request('GET',$url);
my $response=$ua->request($request);	my $response=&LONCAPA::LWPReq::makerequest($lonhost,$request);
if ($response->is_success) {	if ($response->is_success) {
$contents = $response->content;	$contents = $response->content;
if (!-e "$docroot/$res") {	if (!-e "$docroot/$res") {