#!/usr/bin/perl use strict; our(%params,$params,@params); print "Content-Type: text/html\n\n"; require "../cgi-lib.pl"; ReadParse(*params); if(!defined($params{minx})) { $params{minx} = -1; } if(!defined($params{maxx})) { $params{maxx} = 1; } if(!defined($params{mini})) { $params{mini} = -1; } if(!defined($params{maxi})) { $params{maxi} = 1; } $params{formula} =~ s/[^0-9\.A-Za-z\+\-\/\*\^]+//gsi; $params{minx} =~ s/[^0-9\.\-]+//gsi; $params{maxx} =~ s/[^0-9\.\-]+//gsi; $params{mini} =~ s/[^0-9\.\-]+//gsi; $params{maxi} =~ s/[^0-9\.\-]+//gsi; if($params{minx} > $params{maxx}) { my($tmp) = $params{maxx}; $params{maxx} = $params{minx}; $params{minx} = $tmp; } if($params{mini} > $params{maxi}) { my($tmp) = $params{maxi}; $params{maxi} = $params{mini}; $params{mini} = $tmp; } print qq`