#!/usr/bin/perl
# By Jon Dehdari, 2006. Originally for ArabicLG, adapted for Shereen's thesis
# This script started out as a small program that converts aramorph.pl output to
# something that Arabic teachers will use. It has morphed into something
# very different. That's my excuse that it's not pretty code, and I'm
# sticking to it!
use strict;
use CGI qw(:standard);
$CGI::POST_MAX=400000;
my $cgi = new CGI;
my %input;
my $counter = 0;
my ($newword, $romanized_word, $gloss, $nonhtml, $out);
my $appended_file = $cgi->param ("appended_file");
my $preparsed_file = $cgi->param ("preparsed_file");
for my $key ( $cgi->param() ) {
$input{$key} = $cgi->param($key);
}
if ($input{'save2file'} || $input{'append2file'} || $input{'save2xls'}) { $nonhtml = 1; }
unless ($nonhtml) {
print qq{Content-type: text/html; charset=windows-1256\n
Arabic Text Analysis
\n
\n
Arabic Text Analysis
\n