#!/tools/cs/perl5/bin/perl
$ENV{PATH} = '/bin:/usr/bin:/usr/ucb';
use CGI qw/:standard/;
#use strict;
require "translation.pl";
require "webpage.pl";
#Get the environment variables
$query = new CGI;
$SrcText = $query->param('SrcText');
$WebPage = $query->param('WebPage');
$Language = $query->param('Language');
$Translation = $query->param('Translation');
#Translate a web page
if ($WebPage ne '') {
$ReturnPage = &webpage::TranslatePage($Language,$WebPage);
print "Content-type: text/html", "\n\n";
print $ReturnPage;
exit(0);
}
#Create the page
print "Content-type: text/html", "\n\n";
print "", "\n\n";
print "", "\n";
#Give the title
print "French Idiom Transducer", "\n";
print "", "\n\n";
#Start the body section
print "", "\n";
#Print out the passed variables
print "", "\n";
print "SrcText: " . $SrcText . "
", "\n";
print "WebPage: " . $WebPage . "
", "\n";
print "Language: " . $Language . "
", "\n";
print "
", "\n";
print "
", "\n";
if ($SrcText ne '') {
#Print the translation
print "", "\n";
print "Translation:", "\n";
print "
", "\n";
#$MyResult = &translation::translate($SrcText);
$MyResult = &translation::translate_lang($Language,$SrcText);
print $MyResult, "\n";
print "
", "\n";
print "
", "\n";
}
#Let the user go again
print "", "\n";
print "", "\n";
print "", "\n";