version 1.26, 2005/04/07 06:56:22
|
version 1.31, 2008/12/19 14:28:14
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# randomlabel.png: composite together text and images into 1 image |
# randomlabel.png: composite together text and images into 1 image |
# |
# |
Line 206 use GD;
|
Line 205 use GD;
|
use GD::Polyline(); |
use GD::Polyline(); |
use LWP::UserAgent(); |
use LWP::UserAgent(); |
use Apache::lonnet; |
use Apache::lonnet; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
sub get_image { |
sub get_image { |
my ($imgsrc,$set_trans)=@_; |
my ($imgsrc,$set_trans)=@_; |
my $image; |
my $image; |
if ($imgsrc !~ m|^(/home/)|) { |
if ($imgsrc !~ m|^(/home/)|) { |
if ($imgsrc !~ /^http:/) { |
if ($imgsrc !~ /^https?\:/) { |
$imgsrc="http://".$ENV{'HTTP_HOST'}.$imgsrc; |
$imgsrc=&Apache::lonnet::absolute_url($ENV{'HTTP_HOST'}).$imgsrc; |
} |
} |
my $ua=new LWP::UserAgent; |
my $ua=new LWP::UserAgent; |
my $request=new HTTP::Request('GET',"$imgsrc"); |
my $request=new HTTP::Request('GET',"$imgsrc"); |
Line 265 sub get_color_from_hexstring {
|
Line 267 sub get_color_from_hexstring {
|
return $imcolor; |
return $imcolor; |
} |
} |
|
|
|
sub add_click { |
|
my ($image) = @_; |
|
|
|
my $length=6; |
|
my $bgcolor=&get_color_from_hexstring($image,'FFFFFF'); |
|
my $fgcolor=&get_color_from_hexstring($image,'009999'); |
|
|
|
my ($x,$y) = split(':',$env{'form.clickdata'}); |
|
|
|
$image->setThickness(3); |
|
$image->line($x-$length,$y, $x+$length,$y, $bgcolor); |
|
$image->line($x, $y-$length,$x, $y+$length,$bgcolor); |
|
$image->setThickness(1); |
|
$image->line($x-$length,$y, $x+$length,$y, $fgcolor); |
|
$image->line($x, $y-$length,$x, $y+$length,$fgcolor); |
|
} |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('image/png'); |
$r->content_type('image/png'); |
$r->send_http_header; |
$r->send_http_header; |
my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'}); |
|
my $image; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
my $prefix="cgi.$id."; |
|
|
my $prefix; |
if ($ENV{'QUERY_STRING'}=~/OBJCOUNT\=/) { |
if ($ENV{'QUERY_STRING'}=~/OBJCOUNT\=/) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
|
$prefix='form.'; |
$prefix='form.'; |
|
} else { |
|
$prefix="cgi.$env{'form.token'}."; |
} |
} |
|
|
|
my $image; |
if (defined($env{$prefix."BGIMG"})) { |
if (defined($env{$prefix."BGIMG"})) { |
my $bgimg=&Apache::lonnet::unescape($env{$prefix."BGIMG"}); |
my $bgimg=&unescape($env{$prefix."BGIMG"}); |
#&Apache::lonnet::logthis("BGIMG is ".$bgimg); |
#&Apache::lonnet::logthis("BGIMG is ".$bgimg); |
$image=&get_image($bgimg,0); |
$image=&get_image($bgimg,0); |
if (! defined($image)) { |
if (! defined($image)) { |
&Apache::lonnet::logthis('Unable to create image object for -'. |
&Apache::lonnet::logthis('Unable to create image object for -'. |
$id.'-'.$bgimg); |
$env{'form.token'}.'-'.$bgimg); |
return OK; |
return OK; |
} |
} |
} elsif (defined($env{$prefix."SIZE"})) { |
} elsif (defined($env{$prefix."SIZE"})) { |
Line 299 sub handler {
|
Line 322 sub handler {
|
$image->transparent($bgcolor); |
$image->transparent($bgcolor); |
} |
} |
} else { |
} else { |
&Apache::lonnet::logthis('Unable to create image object, no info'); |
&Apache::lonnet::logthis('Unable to create image object, no info '.$prefix); |
return OK; |
return OK; |
} |
} |
#binmode(STDOUT); |
#binmode(STDOUT); |
Line 372 sub handler {
|
Line 395 sub handler {
|
} elsif ($type eq 'IMAGE') { |
} elsif ($type eq 'IMAGE') { |
my ($x,$y,$file,$transparent,$srcX,$srcY,$destW,$destH,$srcW, |
my ($x,$y,$file,$transparent,$srcX,$srcY,$destW,$destH,$srcW, |
$srcH)=split(':',$env{$prefix."OBJ$i"}); |
$srcH)=split(':',$env{$prefix."OBJ$i"}); |
$file=&Apache::lonnet::unescape($file); |
$file=&unescape($file); |
if (!defined($transparent)) { $transparent=1; } |
if (!defined($transparent)) { $transparent=1; } |
my $subimage=&get_image($file,$transparent); |
my $subimage=&get_image($file,$transparent); |
if (!defined($subimage)) { |
if (!defined($subimage)) { |
Line 389 sub handler {
|
Line 412 sub handler {
|
} elsif ($type eq 'LABEL') { |
} elsif ($type eq 'LABEL') { |
my ($x,$y,$text,$font,$color,$direction)= |
my ($x,$y,$text,$font,$color,$direction)= |
split(':',$env{$prefix."OBJ$i"}); |
split(':',$env{$prefix."OBJ$i"}); |
$text=&Apache::lonnet::unescape($text); |
$text=&unescape($text); |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $type='normal'; |
my $type='normal'; |
my ($height,$fontref); |
my ($height,$fontref); |
Line 423 sub handler {
|
Line 446 sub handler {
|
&Apache::lonnet::logthis("randomlylabel unable to handle object of type $type"); |
&Apache::lonnet::logthis("randomlylabel unable to handle object of type $type"); |
} |
} |
} |
} |
|
if (exists($env{'form.clickdata'})) { &add_click($image); } |
$image->setThickness(1); |
$image->setThickness(1); |
$r->print($image->png); |
$r->print($image->png); |
return OK; |
return OK; |