loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.15, 2002/11/01 22:12:46	version 1.16, 2002/12/13 21:33:30
Line 104 $MyGraph->set(	Line 104 $MyGraph->set(
#}	#}


# Tell the server we are sending a gif graphic	# Tell the server we are sending a png graphic
print <<END;	print <<END;
Content-type: image/gif	Content-type: image/png

END	END

Line 122 END	Line 122 END
my $BinaryData=$MyGraph->plot(\@data)->png;	my $BinaryData=$MyGraph->plot(\@data)->png;
undef $MyGraph;	undef $MyGraph;
binmode(STDOUT);	binmode(STDOUT);
open IMG,"\|pngtopnm\|ppmtogif 2>/dev/null"; # convert into a gif image	#open IMG,"\|pngtopnm\|ppmtogif 2>/dev/null"; # convert into a gif image
print IMG $BinaryData; # output image	#print IMG $BinaryData; # output image
$\|=1; # be sure to flush before closing	#$\|=1; # be sure to flush before closing
close IMG;	#close IMG;
	print $BinaryData;