-
Notifications
You must be signed in to change notification settings - Fork 1
/
hspell.color.cgi
executable file
·95 lines (75 loc) · 2.42 KB
/
hspell.color.cgi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
#!/usr/bin/perl
use CGI;
$query = new CGI;
@keywords = $query->keywords;
$myself = $query->self_url;
my $p = $query->param('text');
sub printDonate() {
print <<EOF
<form action="https://www.paypal.com/cgi-bin/webscr" method="post">
<input type="hidden" name="cmd" value="_s-xclick">
<input type="hidden" name="hosted_button_id" value="S6R66E99RL6TW">
<input type="image" src="https://www.paypalobjects.com/WEBSCR-640-20110429-1/en_US/i/btn/btn_donate_LG.gif" border="0" name="submit" alt="Send donation via PayPal">
<img alt="" border="0" src="https://www.paypalobjects.com/WEBSCR-640-20110429-1/en_US/i/scr/pixel.gif" width="1" height="1">
</form>
EOF
}
print <<EOF
Content-type: text/html
<HTML DIR=RTL>
<head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-8-i">
<title>Hspell</title></head>
<STYLE>
.spell {background-color: red; }
</STYLE>
<H1><A HREF=http://hspell.ivrix.org.il/>Hspell</a> - äîàééú äòáøé äçåôùé</H1>
<H2>èåôñ äãâîä öáòåðé</H2>
ëúáå ëàï îéìéí ìáãé÷ä. ùâéàåú ééöáòå áàãåí,
äöòåú ìúé÷åï éöåöå òí äææú äñîï îòì ùâéàä.<BR>
<FORM>
<TEXTAREA NAME=text ROWS=10 COLS=60>
$p</TEXTAREA>
<BR>
<INPUT TYPE=SUBMIT VALUE="áãå÷!" >
</FORM>
EOF
;
chdir("/home/danken/.www/cgi-bin/1.1");
$ENV{"PATH"} = $ENV{"PATH"}.':/usr/local/bin';
#$ENV{"LD_LIBRARY_PATH"} = $ENV{"LD_LIBRARY_PATH"}.':/net/cel2-4/local/solaris/lib';
if ($p =~ m/^\s*$/o) {
print "<HR>\nàæäøä: ééúëï ùäè÷ñè ùàúí î÷ìéãéí ðùîø åîâéò ìéãé ÷åøà àðåùé.<BR>\n";
print "<P DIR=LTR>\n";
system("hspell -V");
print "</P>\n";
print "<HR>\n";
print "àí áøöåðê ìäùúîù á-Hspell áàåôï îñçøé, àå ìäúééòõ ìâáé àéåú åðéúåç îåøôåìåâé
ùì òáøéú áàîöòåúå, àðé ôðä/é ì<A HREF=mailto:$com_email>ãï
÷ðéâñáøâ</A>.\n";
print "<P DIR=LTR>\n";
print "If you would like to use Hspell comercially, or consult about
Hebrew morphology with Hspell, please contact <A HREF=mailto:$com_email>Dan Kenigsberg</A>.\n";
print "</P>\n";
print "</HTML>\n";
exit(0);
}
print "úåöàåú äáãé÷ä:<br>\n";
print "<PRE>\n";
my $res = open(HSPELL, "| ./color.pl ");
print HSPELL "$p\n";
close(HSPELL);
print "</PRE>\n";
print <<EOF
<BR><HR>
àí îöàúí ùâéàä, àå âéìéúí îéìä ùçñøä áîéìåï ùì Hspell, àå ìëì äòøä àçøú,
àúí îåæîðéí ìôðåú ì<a href=mailto:$tech_email>øùéîú äãéååø</a>.
àí áøöåðëí ìúøåí îéìä ì־<LRM>Hspell, àðà ååãàå îäå äàéåú äðëåï ùìä áëúéá
çñø־äðé÷åã ò\"ô ëììé äà÷ãîéä ììùåï äòáøéú, úåê äñúééòåú áîéìåï äçáéá
òìéëí.
EOF
;
printDonate();
print <<EOF
</HTML>
EOF
;