loncom/homework/randomlylabel.pm - diff

Return to randomlylabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.37, 2024/04/09 18:47:23	version 1.37.2.1, 2024/07/04 17:55:04
Line 210 use Apache::loncommon();	Line 210 use Apache::loncommon();
use Math::Trig();	use Math::Trig();
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;

#	#
# Note: Math::Trig is included in the standard perl package for many distros.	# Note: Math::Trig is included in the standard perl package for many distros.
Line 232 sub get_image {	Line 232 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 $lonhost = $Apache::lonnet::perlvar{'lonHostID'};	my $response=$ua->request($request,$file);
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;