loncom/homework/randomlylabel.pm - diff

Return to randomlylabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.31, 2008/12/19 14:28:14	version 1.32, 2017/05/23 03:07:34
Line 203 use Apache::Constants qw(:common);	Line 203 use Apache::Constants qw(:common);
use Apache::loncommon();	use Apache::loncommon();
use GD;	use GD;
use GD::Polyline();	use GD::Polyline();
use LWP::UserAgent();
use Apache::lonnet;	use Apache::lonnet;
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;
	use LONCAPA::LWPReq;

sub get_image {	sub get_image {
my ($imgsrc,$set_trans)=@_;	my ($imgsrc,$set_trans)=@_;
Line 216 sub get_image {	Line 215 sub get_image {
if ($imgsrc !~ /^https?\:/) {	if ($imgsrc !~ /^https?\:/) {
$imgsrc=&Apache::lonnet::absolute_url($ENV{'HTTP_HOST'}).$imgsrc;	$imgsrc=&Apache::lonnet::absolute_url($ENV{'HTTP_HOST'}).$imgsrc;
}	}
my $ua=new LWP::UserAgent;
my $request=new HTTP::Request('GET',"$imgsrc");	my $request=new HTTP::Request('GET',"$imgsrc");
$request->header(Cookie => $ENV{'HTTP_COOKIE'});	$request->header(Cookie => $ENV{'HTTP_COOKIE'});
my $file="/tmp/imagetmp".$$;	my $file="/tmp/imagetmp".$$;
my $response=$ua->request($request,$file);	my $lonhost = $Apache::lonnet::perlvar{'lonHostID'};
	my $response=&LONCAPA::LWPReq::makerequest($lonhost,$request,$file,'','','',1);
if ($response->is_success) {	if ($response->is_success) {
if ($response->content_type !~ m-/(png\|jpg\|jpeg)$-i) {	if ($response->content_type !~ m-/(png\|jpg\|jpeg)$-i) {
my $conv_image = Image::Magick->new;	my $conv_image = Image::Magick->new;