loncom/cgi/plot.gif - diff

Return to plot.gif CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.15, 2016/08/19 05:15:21	version 1.17, 2020/02/19 18:53:17
Line 25	Line 25
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
use strict;	use strict;
use bytes;

$\|=1;	$\|=1;

Line 48 if ($output eq '') {	Line 47 if ($output eq '') {
}	}

if ($output eq 'gif' \|\| $output eq 'png') {	if ($output eq 'gif' \|\| $output eq 'png') {
open(my $plot, "gnuplot $filename \|");	if (open(my $plot, "export LANG='en_US.UTF-8'; gnuplot $filename \|")) {
my $image_content= '';
while (my $line = <$plot>) {	print <<"END";
$image_content .= $line;
}
my $length = bytes::length($image_content);
print <<"END";
Content-type: image/$output	Content-type: image/$output
Content-length: $length

$image_content
END	END
	while (my $line = <$plot>) {
	print($line);
	}
	close($plot);
	} else {
	die "failed to open pipe to run gnuplot\n";
	}

} elsif ($output eq 'eps') {	} elsif ($output eq 'eps') {
print <<"END";	print <<"END";
Line 70 Content-type: text/html	Line 70 Content-type: text/html
<h2>Creating eps plot</h2>	<h2>Creating eps plot</h2>

END	END
if (! system ("gnuplot $filename")) {	if (! system ("export LANG='en_US.UTF-8'; gnuplot $filename")) {
print "<h2>An error occurred.</h2>\n".	print "<h2>An error occurred.</h2>\n".
"I am not going to tell you about it as I have not bothered ".	"I am not going to tell you about it as I have not bothered ".
"to figure out how to get you the error text.\n";	"to figure out how to get you the error text.\n";