← Back to branch summary

~alexharrington/xibo/pyclient-1.1.0a22

« back to all changes in this revision

Viewing changes to server/lib/fckeditor/editor/dialog/fck_spellerpages/spellerpages/server-scripts/spellchecker.pl

  • Committer: Dan Garner
  • Date: 2008-12-14 14:42:52 UTC
  • mto: (1.1.80 Xibo)
  • mto: This revision was merged to the branch mainline in revision 2.
  • Revision ID: mail@dangarner.co.uk-20081214144252-8dosaegtfwvv0dsl
Moved 3rd Party libraries to their own folder.
Updated jQuery to the latest revision and now use jQuery UI instead of individual plugins.

Tabs are not currently working

Show diffs side-by-side

added added

removed removed

Lines of Context:
server/lib/fckeditor/editor/dialog/fck_spellerpages/spellerpages/server-scripts/spellchecker.pl
1
 
#!/usr/bin/perl
2
 
 
3
 
use CGI qw/ :standard /;
4
 
use File::Temp qw/ tempfile tempdir /;
5
 
 
6
 
# my $spellercss = '/speller/spellerStyle.css';                                 # by FredCK
7
 
my $spellercss = '../spellerStyle.css';                                                 # by FredCK
8
 
# my $wordWindowSrc = '/speller/wordWindow.js';                                 # by FredCK
9
 
my $wordWindowSrc = '../wordWindow.js';                                                 # by FredCK
10
 
my @textinputs = param( 'textinputs[]' ); # array
11
 
# my $aspell_cmd = 'aspell';                                                                    # by FredCK (for Linux)
12
 
my $aspell_cmd = '"C:\Program Files\Aspell\bin\aspell.exe"';    # by FredCK (for Windows)
13
 
my $lang = 'en_US';
14
 
# my $aspell_opts = "-a --lang=$lang --encoding=utf-8";                 # by FredCK
15
 
my $aspell_opts = "-a --lang=$lang --encoding=utf-8 -H --rem-sgml-check=alt";           # by FredCK
16
 
my $input_separator = "A";
17
 
 
18
 
# set the 'wordtext' JavaScript variable to the submitted text.
19
 
sub printTextVar {
20
 
        for( my $i = 0; $i <= $#textinputs; $i++ ) {
21
 
                print "textinputs[$i] = decodeURIComponent('" . escapeQuote( $textinputs[$i] ) . "')\n";
22
 
        }
23
 
}
24
 
 
25
 
sub printTextIdxDecl {
26
 
        my $idx = shift;
27
 
        print "words[$idx] = [];\n";
28
 
        print "suggs[$idx] = [];\n";
29
 
}
30
 
 
31
 
sub printWordsElem {
32
 
        my( $textIdx, $wordIdx, $word ) = @_;
33
 
        print "words[$textIdx][$wordIdx] = '" . escapeQuote( $word ) . "';\n";
34
 
}
35
 
 
36
 
sub printSuggsElem {
37
 
        my( $textIdx, $wordIdx, @suggs ) = @_;
38
 
        print "suggs[$textIdx][$wordIdx] = [";
39
 
        for my $i ( 0..$#suggs ) {
40
 
                print "'" . escapeQuote( $suggs[$i] ) . "'";
41
 
                if( $i < $#suggs ) {
42
 
                        print ", ";
43
 
                }
44
 
        }
45
 
        print "];\n";
46
 
}
47
 
 
48
 
sub printCheckerResults {
49
 
        my $textInputIdx = -1;
50
 
        my $wordIdx = 0;
51
 
        my $unhandledText;
52
 
        # create temp file
53
 
        my $dir = tempdir( CLEANUP => 1 );
54
 
        my( $fh, $tmpfilename ) = tempfile( DIR => $dir );
55
 
 
56
 
        # temp file was created properly?
57
 
 
58
 
        # open temp file, add the submitted text.
59
 
        for( my $i = 0; $i <= $#textinputs; $i++ ) {
60
 
                $text = url_decode( $textinputs[$i] );
61
 
                # Strip all tags for the text. (by FredCK - #339 / #681)
62
 
                $text =~ s/<[^>]+>/ /g;
63
 
                @lines = split( /\n/, $text );
64
 
                print $fh "\%\n"; # exit terse mode
65
 
                print $fh "^$input_separator\n";
66
 
                print $fh "!\n";  # enter terse mode
67
 
                for my $line ( @lines ) {
68
 
                        # use carat on each line to escape possible aspell commands
69
 
                        print $fh "^$line\n";
70
 
                }
71
 
 
72
 
        }
73
 
        # exec aspell command
74
 
        my $cmd = "$aspell_cmd $aspell_opts < $tmpfilename 2>&1";
75
 
        open ASPELL, "$cmd |" or handleError( "Could not execute `$cmd`\\n$!" ) and return;
76
 
        # parse each line of aspell return
77
 
        for my $ret ( <ASPELL> ) {
78
 
                chomp( $ret );
79
 
                # if '&', then not in dictionary but has suggestions
80
 
                # if '#', then not in dictionary and no suggestions
81
 
                # if '*', then it is a delimiter between text inputs
82
 
                if( $ret =~ /^\*/ ) {
83
 
                        $textInputIdx++;
84
 
                        printTextIdxDecl( $textInputIdx );
85
 
                        $wordIdx = 0;
86
 
 
87
 
                } elsif( $ret =~ /^(&|#)/ ) {
88
 
                        my @tokens = split( " ", $ret, 5 );
89
 
                        printWordsElem( $textInputIdx, $wordIdx, $tokens[1] );
90
 
                        my @suggs = ();
91
 
                        if( $tokens[4] ) {
92
 
                                @suggs = split( ", ", $tokens[4] );
93
 
                        }
94
 
                        printSuggsElem( $textInputIdx, $wordIdx, @suggs );
95
 
                        $wordIdx++;
96
 
                } else {
97
 
                        $unhandledText .= $ret;
98
 
                }
99
 
        }
100
 
        close ASPELL or handleError( "Error executing `$cmd`\\n$unhandledText" ) and return;
101
 
}
102
 
 
103
 
sub escapeQuote {
104
 
        my $str = shift;
105
 
        $str =~ s/'/\\'/g;
106
 
        return $str;
107
 
}
108
 
 
109
 
sub handleError {
110
 
        my $err = shift;
111
 
        print "error = '" . escapeQuote( $err ) . "';\n";
112
 
}
113
 
 
114
 
sub url_decode {
115
 
        local $_ = @_ ? shift : $_;
116
 
        defined or return;
117
 
        # change + signs to spaces
118
 
        tr/+/ /;
119
 
        # change hex escapes to the proper characters
120
 
        s/%([a-fA-F0-9]{2})/pack "H2", $1/eg;
121
 
        return $_;
122
 
}
123
 
 
124
 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
125
 
# Display HTML
126
 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
127
 
 
128
 
print <<EOF;
129
 
Content-type: text/html; charset=utf-8
130
 
 
131
 
<html>
132
 
<head>
133
 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
134
 
<link rel="stylesheet" type="text/css" href="$spellercss"/>
135
 
<script src="$wordWindowSrc"></script>
136
 
<script type="text/javascript">
137
 
var suggs = new Array();
138
 
var words = new Array();
139
 
var textinputs = new Array();
140
 
var error;
141
 
EOF
142
 
 
143
 
printTextVar();
144
 
 
145
 
printCheckerResults();
146
 
 
147
 
print <<EOF;
148
 
var wordWindowObj = new wordWindow();
149
 
wordWindowObj.originalSpellings = words;
150
 
wordWindowObj.suggestions = suggs;
151
 
wordWindowObj.textInputs = textinputs;
152
 
 
153
 
 
154
 
function init_spell() {
155
 
        // check if any error occured during server-side processing
156
 
        if( error ) {
157
 
                alert( error );
158
 
        } else {
159
 
                // call the init_spell() function in the parent frameset
160
 
                if (parent.frames.length) {
161
 
                        parent.init_spell( wordWindowObj );
162
 
                } else {
163
 
                        error = "This page was loaded outside of a frameset. ";
164
 
                        error += "It might not display properly";
165
 
                        alert( error );
166
 
                }
167
 
        }
168
 
}
169
 
 
170
 
</script>
171
 
 
172
 
</head>
173
 
<body onLoad="init_spell();">
174
 
 
175
 
<script type="text/javascript">
176
 
wordWindowObj.writeBody();
177
 
</script>
178
 
 
179
 
</body>
180
 
</html>
181
 
EOF
182
 
 
183