version 1.16, 2016/10/12 18:50:02
|
version 1.17, 2020/02/19 18:53:17
|
Line 47 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 |")) { |
|
|
print <<"END"; |
print <<"END"; |
Content-type: image/$output |
Content-type: image/$output |
|
|
END |
END |
while (my $line = <$plot>) { |
while (my $line = <$plot>) { |
print($line); |
print($line); |
|
} |
|
close($plot); |
|
} else { |
|
die "failed to open pipe to run gnuplot\n"; |
} |
} |
|
|
} elsif ($output eq 'eps') { |
} elsif ($output eq 'eps') { |
Line 66 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"; |