#!/usr/local/bin/perl

use CGI;

my $JAVA               = "/usr/local/java/bin/java";
my $PID = $$;

my $query = new CGI;
my $eq = $query->param("eq");

print STDERR "eq = ".$eq."\n";

##
## You will need to change this command to reflect the paths on your system.
##

system("$JAVA webeq.wizard.clwizard -keyfile /home/webeq/.webeqrc -bg \"#ffffff\" -yscale 1.20 -errors /home/webeq/tmp/errors -outtype Images_Only -imgtype png -delims mathml -parser mathml -imgname \"test$$\" -o /home/webeq/tmp/junk -eq \"$eq\"");

print $query->header();
print qq|

<h1>Test page</h1>

Here is your equation as an image:

<img src="tmp/test$$.gif" align="absmiddle">

|;