plot.cgi

#! /usr/bin/perl

require "/u/www/root/admin/bin/cgi.pl";

print "content-type:  text/html\n\n";
%data = &get_data();

print "Maple output:\n";
print "<PRE>\n";
print 
`
/usr/local/bin/maple -q << .End.
  f := $data{f};
  plot(f,x = $data{min}..$data{max});
  quit;
.End.
`;

print "</PRE>\n";