#!/usr/bin/perl

use strict;
$|++;

use Lingua::Ispell qw(:all);
use CGI qw(standard);

# override the default path - Your Mileage May Vary
$Lingua::Ispell::path = '/usr/bin/ispell';

my $cgi = new CGI;
print $cgi->header;

if (my $query = $cgi->param('query')) {
   &print_form;
   &print_corrections($query);
}
else {
   &print_form;
}

#thanks to Randall for this slick dereferencing trick
sub print_form {

   print <<_FORM_;
<H1 align=center>Spell Checker</H1>
<HR align=center>
@{[$cgi->startform('POST',$cgi->script_name)]}
<P>
Enter Text To Spell Check:
@{[$cgi->textfield('query')]}
@{[$cgi->submit('Go')]}
@{[$cgi->endform]}
<P>
<HR>
_FORM_
}

sub print_corrections($) {

   my $query = shift;
   print "Results for <i>'$query'</i> :<p>";

   for my $result (spellcheck($query)) {

      my $term = "<font color=red>$result->{'term'}</font>";

      if ($result->{'type'} eq 'miss') {
         print "'$term' was not found in the dictionary,<br>\n";
         print "<u>Near misses</u>: ";
         print join(',', @{$result->{'misses'}}), "<p>\n";
      }
      elsif ($result->{'type'} eq 'none') {
         print "No match for term '$term'.<p>\n";
      }
   }
}