#!/usr/bin/perl

use CGI qw/:standard :cgi-lib/;

my $cgi = CGI->new;
my $pre = '';
my $root = '';
my $suf = '';

if($cgi->param()) {
  $pre = "--pre=" . $cgi->param('pre')  if $cgi->param('pre');
  $root = "--root=" . $cgi->param('root') if $cgi->param('root');
  $suf = "--suf=" .$cgi->param('suf') if $cgi->param('suf');
}
print header,
start_html(-title=>'wordfountain',
		                                     ),
		                                     '<div align="center" width="100%" text-align="center"><div style="display: inline-block; text-align: left;">';
print `perl /home/scottvr/presufcomb.pl $pre $root $suf`;
print "</div></div></pre>";
print "<div align=\"center\"><p>Update: you now have the option of tossing one or more of a prefix, suffix, and/or root into the fountain.<P><form method=\"GET\" action=\"/wordfountain.cgi\">prefix: <input type=\"text\" name=\"pre\"> root <input type=\"text\" name=\"root\"> suffix: <input type=\"text\" name=\"suf\"><input type=\"submit\" value=\"submit\"></form>";
print end_html();