Ivan Tcholakov
17 years ago
parent
4a3cef1636
commit
059c98f110
@ -1,148 +0,0 @@ |
|||||||
<cfsetting enablecfoutputonly="true"> |
|
||||||
<!--- |
|
||||||
This code uses a CF User Defined Function and should work in CF version 5.0 |
|
||||||
and up without alteration. |
|
||||||
|
|
||||||
Also if you are hosting your site at an ISP, you will have to check with them |
|
||||||
to see if the use of <CFEXECUTE> is allowed. In most cases ISP will not allow |
|
||||||
the use of that tag for security reasons. Clients would be able to access each |
|
||||||
others files in certain cases. |
|
||||||
---> |
|
||||||
|
|
||||||
<!--- The following variables values must reflect your installation. ---> |
|
||||||
<cfset aspell_dir = "C:\Program Files\Aspell\bin"> |
|
||||||
<cfset lang = "en_US"> |
|
||||||
<cfset aspell_opts = "-a --lang=#lang# --encoding=utf-8 -H --rem-sgml-check=alt"> |
|
||||||
<cfset tempfile_in = GetTempFile(GetTempDirectory(), "spell_")> |
|
||||||
<cfset tempfile_out = GetTempFile(GetTempDirectory(), "spell_")> |
|
||||||
<cfset spellercss = "../spellerStyle.css"> |
|
||||||
<cfset word_win_src = "../wordWindow.js"> |
|
||||||
|
|
||||||
<cfset form.checktext = form["textinputs[]"]> |
|
||||||
|
|
||||||
<!--- make no difference between URL and FORM scopes ---> |
|
||||||
<cfparam name="url.checktext" default=""> |
|
||||||
<cfparam name="form.checktext" default="#url.checktext#"> |
|
||||||
|
|
||||||
<!--- Takes care of those pesky smart quotes from MS apps, replaces them with regular quotes ---> |
|
||||||
<cfset submitted_text = ReplaceList(form.checktext,"%u201C,%u201D","%22,%22")> |
|
||||||
|
|
||||||
<!--- submitted_text now is ready for processing ---> |
|
||||||
|
|
||||||
<!--- use carat on each line to escape possible aspell commands ---> |
|
||||||
<cfset text = ""> |
|
||||||
<cfset CRLF = Chr(13) & Chr(10)> |
|
||||||
|
|
||||||
<cfloop list="#submitted_text#" index="field" delimiters=","> |
|
||||||
<cfset text = text & "%" & CRLF |
|
||||||
& "^A" & CRLF |
|
||||||
& "!" & CRLF> |
|
||||||
<!--- Strip all tags for the text. (by FredCK - #339 / #681) ---> |
|
||||||
<cfset field = REReplace(URLDecode(field), "<[^>]+>", " ", "all")> |
|
||||||
<cfloop list="#field#" index="line" delimiters="#CRLF#"> |
|
||||||
<cfset text = ListAppend(text, "^" & Trim(JSStringFormat(line)), CRLF)> |
|
||||||
</cfloop> |
|
||||||
</cfloop> |
|
||||||
|
|
||||||
<!--- create temp file from the submitted text, this will be passed to aspell to be check for misspelled words ---> |
|
||||||
<cffile action="write" file="#tempfile_in#" output="#text#" charset="utf-8"> |
|
||||||
|
|
||||||
<!--- execute aspell in an UTF-8 console and redirect output to a file. UTF-8 encoding is lost if done differently ---> |
|
||||||
<cfexecute name="cmd.exe" arguments='/c type "#tempfile_in#" | "#aspell_dir#\aspell.exe" #aspell_opts# > "#tempfile_out#"' timeout="100"/> |
|
||||||
|
|
||||||
<!--- read output file for further processing ---> |
|
||||||
<cffile action="read" file="#tempfile_out#" variable="food" charset="utf-8"> |
|
||||||
|
|
||||||
<!--- remove temp files ---> |
|
||||||
<cffile action="delete" file="#tempfile_in#"> |
|
||||||
<cffile action="delete" file="#tempfile_out#"> |
|
||||||
|
|
||||||
<cfset texts = StructNew()> |
|
||||||
<cfset texts.textinputs = ""> |
|
||||||
<cfset texts.words = ""> |
|
||||||
<cfset texts.abort = ""> |
|
||||||
|
|
||||||
<!--- Generate Text Inputs ---> |
|
||||||
<cfset i = 0> |
|
||||||
<cfloop list="#submitted_text#" index="textinput"> |
|
||||||
<cfset texts.textinputs = ListAppend(texts.textinputs, 'textinputs[#i#] = decodeURIComponent("#textinput#");', CRLF)> |
|
||||||
<cfset i = i + 1> |
|
||||||
</cfloop> |
|
||||||
|
|
||||||
<!--- Generate Words Lists ---> |
|
||||||
<cfset word_cnt = 0> |
|
||||||
<cfset input_cnt = -1> |
|
||||||
<cfloop list="#food#" index="aspell_line" delimiters="#CRLF#"> |
|
||||||
<cfset leftChar = Left(aspell_line, 1)> |
|
||||||
<cfif leftChar eq "*"> |
|
||||||
<cfset input_cnt = input_cnt + 1> |
|
||||||
<cfset word_cnt = 0> |
|
||||||
<cfset texts.words = ListAppend(texts.words, "words[#input_cnt#] = [];", CRLF)> |
|
||||||
<cfset texts.words = ListAppend(texts.words, "suggs[#input_cnt#] = [];", CRLF)> |
|
||||||
<cfelse> |
|
||||||
<cfif leftChar eq "&" or leftChar eq "##"> |
|
||||||
<!--- word that misspelled ---> |
|
||||||
<cfset bad_word = Trim(ListGetAt(aspell_line, 2, " "))> |
|
||||||
<cfset bad_word = Replace(bad_word, "'", "\'", "ALL")> |
|
||||||
<!--- sugestions ---> |
|
||||||
<cfset sug_list = Trim(ListRest(aspell_line, ":"))> |
|
||||||
<cfset sug_list = ListQualify(Replace(sug_list, "'", "\'", "ALL"), "'")> |
|
||||||
<!--- javascript ---> |
|
||||||
<cfset texts.words = ListAppend(texts.words, "words[#input_cnt#][#word_cnt#] = '#bad_word#';", CRLF)> |
|
||||||
<cfset texts.words = ListAppend(texts.words, "suggs[#input_cnt#][#word_cnt#] = [#sug_list#];", CRLF)> |
|
||||||
<cfset word_cnt = word_cnt + 1> |
|
||||||
</cfif> |
|
||||||
</cfif> |
|
||||||
</cfloop> |
|
||||||
|
|
||||||
<cfif texts.words eq ""> |
|
||||||
<cfset texts.abort = "alert('Spell check complete.\n\nNo misspellings found.'); top.window.close();"> |
|
||||||
</cfif> |
|
||||||
|
|
||||||
<cfcontent type="text/html; charset=utf-8"> |
|
||||||
|
|
||||||
<cfoutput><html> |
|
||||||
<head> |
|
||||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"> |
|
||||||
<link rel="stylesheet" type="text/css" href="#spellercss#" /> |
|
||||||
<script language="javascript" src="#word_win_src#"></script> |
|
||||||
<script language="javascript"> |
|
||||||
var suggs = new Array(); |
|
||||||
var words = new Array(); |
|
||||||
var textinputs = new Array(); |
|
||||||
var error; |
|
||||||
|
|
||||||
#texts.textinputs##CRLF# |
|
||||||
#texts.words# |
|
||||||
#texts.abort# |
|
||||||
|
|
||||||
var wordWindowObj = new wordWindow(); |
|
||||||
wordWindowObj.originalSpellings = words; |
|
||||||
wordWindowObj.suggestions = suggs; |
|
||||||
wordWindowObj.textInputs = textinputs; |
|
||||||
|
|
||||||
function init_spell() { |
|
||||||
// check if any error occured during server-side processing |
|
||||||
if( error ) { |
|
||||||
alert( error ); |
|
||||||
} else { |
|
||||||
// call the init_spell() function in the parent frameset |
|
||||||
if (parent.frames.length) { |
|
||||||
parent.init_spell( wordWindowObj ); |
|
||||||
} else { |
|
||||||
alert('This page was loaded outside of a frameset. It might not display properly'); |
|
||||||
} |
|
||||||
} |
|
||||||
} |
|
||||||
</script> |
|
||||||
|
|
||||||
</head> |
|
||||||
<body onLoad="init_spell();"> |
|
||||||
|
|
||||||
<script type="text/javascript"> |
|
||||||
wordWindowObj.writeBody(); |
|
||||||
</script> |
|
||||||
|
|
||||||
</body> |
|
||||||
</html></cfoutput> |
|
||||||
<cfsetting enablecfoutputonly="false"> |
|
||||||
@ -1,181 +0,0 @@ |
|||||||
#!/usr/bin/perl |
|
||||||
|
|
||||||
use CGI qw/ :standard /; |
|
||||||
use File::Temp qw/ tempfile tempdir /; |
|
||||||
|
|
||||||
# my $spellercss = '/speller/spellerStyle.css'; # by FredCK |
|
||||||
my $spellercss = '../spellerStyle.css'; # by FredCK |
|
||||||
# my $wordWindowSrc = '/speller/wordWindow.js'; # by FredCK |
|
||||||
my $wordWindowSrc = '../wordWindow.js'; # by FredCK |
|
||||||
my @textinputs = param( 'textinputs[]' ); # array |
|
||||||
# my $aspell_cmd = 'aspell'; # by FredCK (for Linux) |
|
||||||
my $aspell_cmd = '"C:\Program Files\Aspell\bin\aspell.exe"'; # by FredCK (for Windows) |
|
||||||
my $lang = 'en_US'; |
|
||||||
# my $aspell_opts = "-a --lang=$lang --encoding=utf-8"; # by FredCK |
|
||||||
my $aspell_opts = "-a --lang=$lang --encoding=utf-8 -H --rem-sgml-check=alt"; # by FredCK |
|
||||||
my $input_separator = "A"; |
|
||||||
|
|
||||||
# set the 'wordtext' JavaScript variable to the submitted text. |
|
||||||
sub printTextVar { |
|
||||||
for( my $i = 0; $i <= $#textinputs; $i++ ) { |
|
||||||
print "textinputs[$i] = decodeURIComponent('" . escapeQuote( $textinputs[$i] ) . "')\n"; |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
sub printTextIdxDecl { |
|
||||||
my $idx = shift; |
|
||||||
print "words[$idx] = [];\n"; |
|
||||||
print "suggs[$idx] = [];\n"; |
|
||||||
} |
|
||||||
|
|
||||||
sub printWordsElem { |
|
||||||
my( $textIdx, $wordIdx, $word ) = @_; |
|
||||||
print "words[$textIdx][$wordIdx] = '" . escapeQuote( $word ) . "';\n"; |
|
||||||
} |
|
||||||
|
|
||||||
sub printSuggsElem { |
|
||||||
my( $textIdx, $wordIdx, @suggs ) = @_; |
|
||||||
print "suggs[$textIdx][$wordIdx] = ["; |
|
||||||
for my $i ( 0..$#suggs ) { |
|
||||||
print "'" . escapeQuote( $suggs[$i] ) . "'"; |
|
||||||
if( $i < $#suggs ) { |
|
||||||
print ", "; |
|
||||||
} |
|
||||||
} |
|
||||||
print "];\n"; |
|
||||||
} |
|
||||||
|
|
||||||
sub printCheckerResults { |
|
||||||
my $textInputIdx = -1; |
|
||||||
my $wordIdx = 0; |
|
||||||
my $unhandledText; |
|
||||||
# create temp file |
|
||||||
my $dir = tempdir( CLEANUP => 1 ); |
|
||||||
my( $fh, $tmpfilename ) = tempfile( DIR => $dir ); |
|
||||||
|
|
||||||
# temp file was created properly? |
|
||||||
|
|
||||||
# open temp file, add the submitted text. |
|
||||||
for( my $i = 0; $i <= $#textinputs; $i++ ) { |
|
||||||
$text = url_decode( $textinputs[$i] ); |
|
||||||
# Strip all tags for the text. (by FredCK - #339 / #681) |
|
||||||
$text =~ s/<[^>]+>/ /g; |
|
||||||
@lines = split( /\n/, $text ); |
|
||||||
print $fh "\%\n"; # exit terse mode |
|
||||||
print $fh "^$input_separator\n"; |
|
||||||
print $fh "!\n"; # enter terse mode |
|
||||||
for my $line ( @lines ) { |
|
||||||
# use carat on each line to escape possible aspell commands |
|
||||||
print $fh "^$line\n"; |
|
||||||
} |
|
||||||
|
|
||||||
} |
|
||||||
# exec aspell command |
|
||||||
my $cmd = "$aspell_cmd $aspell_opts < $tmpfilename 2>&1"; |
|
||||||
open ASPELL, "$cmd |" or handleError( "Could not execute `$cmd`\\n$!" ) and return; |
|
||||||
# parse each line of aspell return |
|
||||||
for my $ret ( <ASPELL> ) { |
|
||||||
chomp( $ret ); |
|
||||||
# if '&', then not in dictionary but has suggestions |
|
||||||
# if '#', then not in dictionary and no suggestions |
|
||||||
# if '*', then it is a delimiter between text inputs |
|
||||||
if( $ret =~ /^\*/ ) { |
|
||||||
$textInputIdx++; |
|
||||||
printTextIdxDecl( $textInputIdx ); |
|
||||||
$wordIdx = 0; |
|
||||||
|
|
||||||
} elsif( $ret =~ /^(&|#)/ ) { |
|
||||||
my @tokens = split( " ", $ret, 5 ); |
|
||||||
printWordsElem( $textInputIdx, $wordIdx, $tokens[1] ); |
|
||||||
my @suggs = (); |
|
||||||
if( $tokens[4] ) { |
|
||||||
@suggs = split( ", ", $tokens[4] ); |
|
||||||
} |
|
||||||
printSuggsElem( $textInputIdx, $wordIdx, @suggs ); |
|
||||||
$wordIdx++; |
|
||||||
} else { |
|
||||||
$unhandledText .= $ret; |
|
||||||
} |
|
||||||
} |
|
||||||
close ASPELL or handleError( "Error executing `$cmd`\\n$unhandledText" ) and return; |
|
||||||
} |
|
||||||
|
|
||||||
sub escapeQuote { |
|
||||||
my $str = shift; |
|
||||||
$str =~ s/'/\\'/g; |
|
||||||
return $str; |
|
||||||
} |
|
||||||
|
|
||||||
sub handleError { |
|
||||||
my $err = shift; |
|
||||||
print "error = '" . escapeQuote( $err ) . "';\n"; |
|
||||||
} |
|
||||||
|
|
||||||
sub url_decode { |
|
||||||
local $_ = @_ ? shift : $_; |
|
||||||
defined or return; |
|
||||||
# change + signs to spaces |
|
||||||
tr/+/ /; |
|
||||||
# change hex escapes to the proper characters |
|
||||||
s/%([a-fA-F0-9]{2})/pack "H2", $1/eg; |
|
||||||
return $_; |
|
||||||
} |
|
||||||
|
|
||||||
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # |
|
||||||
# Display HTML |
|
||||||
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # |
|
||||||
|
|
||||||
print <<EOF; |
|
||||||
Content-type: text/html; charset=utf-8 |
|
||||||
|
|
||||||
<html> |
|
||||||
<head> |
|
||||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"> |
|
||||||
<link rel="stylesheet" type="text/css" href="$spellercss"/> |
|
||||||
<script src="$wordWindowSrc"></script> |
|
||||||
<script type="text/javascript"> |
|
||||||
var suggs = new Array(); |
|
||||||
var words = new Array(); |
|
||||||
var textinputs = new Array(); |
|
||||||
var error; |
|
||||||
EOF |
|
||||||
|
|
||||||
printTextVar(); |
|
||||||
|
|
||||||
printCheckerResults(); |
|
||||||
|
|
||||||
print <<EOF; |
|
||||||
var wordWindowObj = new wordWindow(); |
|
||||||
wordWindowObj.originalSpellings = words; |
|
||||||
wordWindowObj.suggestions = suggs; |
|
||||||
wordWindowObj.textInputs = textinputs; |
|
||||||
|
|
||||||
|
|
||||||
function init_spell() { |
|
||||||
// check if any error occured during server-side processing |
|
||||||
if( error ) { |
|
||||||
alert( error ); |
|
||||||
} else { |
|
||||||
// call the init_spell() function in the parent frameset |
|
||||||
if (parent.frames.length) { |
|
||||||
parent.init_spell( wordWindowObj ); |
|
||||||
} else { |
|
||||||
error = "This page was loaded outside of a frameset. "; |
|
||||||
error += "It might not display properly"; |
|
||||||
alert( error ); |
|
||||||
} |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
</script> |
|
||||||
|
|
||||||
</head> |
|
||||||
<body onLoad="init_spell();"> |
|
||||||
|
|
||||||
<script type="text/javascript"> |
|
||||||
wordWindowObj.writeBody(); |
|
||||||
</script> |
|
||||||
|
|
||||||
</body> |
|
||||||
</html> |
|
||||||
EOF |
|
||||||
Loading…
Reference in new issue