#!/usr/bin/perl # Written by Jon Dehdari 2004-2005 # Perl 5.8 # Arabic LG Syntax Parser # The license is the GPL (www.fsf.org) use strict; use utf8; #use diagnostics; #binmode(STDOUT, ":utf8"); #use LWP::Simple qw(!head); use CGI qw(:standard); #must use this full line, not just CGI $CGI::POST_MAX=50000; my $query = new CGI; my $input_type = param ("input_type"); my $output_type = param ("output_type"); my $width = param ("width"); my $root_only = param ("root_only"); my $preserve_links = param ("preserve_links"); my $use_web_page = param ("use_web_page"); my $web_page = param ("web_page"); my $use_file = param ("use_file"); my $uploaded_file = param ("uploaded_file"); my $text_from = param ("text_from"); #my $input_type = "1"; #my $text_from = "\u{d986}\u{d8a7}\u{d986}\u{d987}\u{d8a7}"; #my $text_from = "\u{0646}\u{0627}\u{0646}\u{0647}\u{0627}"; #my $text_from = "نانها"; #my $text_from = "قدومي بفارغ الصبر"; #my $preserve_links = 0; #my $use_file = "false"; #my $uploaded_file = "false"; #my $use_web_page = "false"; #my $web_page = "false"; #my $remove_stops = "false"; my $text_from_new; my @charx; my $charx; my $input_rtl; if ($input_type =~ /[^0]/) { $input_rtl = "true"; } if ($input_type eq "utf8" || $output_type eq "utf8") { print $query->header( -charset => 'UTF-8'); } else { print $query->header( -charset => 'windows-1256'); } print( '', "\n", '', "\n", "\n", # "