#!/usr/bin/perl # Written by Jon Dehdari 2004-2006 # Perl 5.8 # Arabic Morphological Analyzer CGI # The license is the GPL v. 2 (See http://www.fsf.org for details) use strict; use utf8; #use diagnostics; #binmode(STDOUT, ":utf8"); #use LWP::Simple qw(!head); use CGI qw(:standard); #must use this full line $CGI::POST_MAX=50000; my $query = new CGI; my $input_type = param ("input_type"); my $output_type = param ("output_type"); 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 $use_file = "false"; #my $uploaded_file = "false"; #my $use_web_page = "false"; #my $web_page = "false"; my $text_from_new; my @charx; my $charx; my $input_rtl; unless ($input_type eq 'roman') { $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", # "