Multilingual Spell Checker

Multilingual Spell Checker

am 16.11.2005 23:59:49 von germonprez

I've been hammering away at the multilingual spell checker for a while
now and am having little luck. I was wondering if someone on this group
has gotten this thing to work with Perl:

http://www.strikeiron.com/ProductDetail.aspx?p=143

I can get a whole variety of errors to come back, but never the
response I'm looking for (which would be getting this text spell
checked). I've gotten 404s, Invalid user (I have a key but you'll have
to get your own) -- Mine cost me $10 and I can't use it!, etc.

Ugh.

TIA.

matt


#!/usr/bin/perl -w
use SOAP::Lite + trace => 'debug';

$text = 'qwick brown fox is a good guy';

my $spell=SOAP::Lite

->service('http://ws.strikeiron.com/wsdirect/spellchecker?WS DL');
#->proxy('http://ws.strikeiron.com/wsdirect/spellcheckerdoc' )

#->proxy('http://www.wsdirect.net/axis/services/spellchecker doc')

#->uri('http://ws.strikeiron.com/wsdirect/spellchecker/Spell erServiceService')
#->on_action(sub{sprintf '' });

$header = SOAP::Header
->name("LicenseInfo"=>\SOAP::Data->value(

SOAP::Data->name("RegisteredUser"=>\SOAP::Data->value(

SOAP::Data->name("UserID"=>'111111111111'),

SOAP::Data->name("Password"=>"")))));

$somspell = $spell
->GetMisspelledIndices( $header,

SOAP::Data->name("key"=>'11111111111111'),
SOAP::Data->name("text"=>$text),
SOAP::Data->name("dicCode"=>'32'));