#!/usr/local/bin/perl
#Todo:
# 4) Spruce up results page
#
# 5) Speed things up by spawning processes
#
# 6) Add log number, to make references easier
use CGI;
use LWP::UserAgent;
use URI::Escape;
#Settings
$cgi = new CGI;
$surl = "http://babelfish.altavista.digital.com/cgi-bin/translate?";
%re_table = ("en_fr" => 'En Français:\n.*?\n.*?\n.*?\n\n([^<]*)',
"en_de" => 'Auf Deutsch:\n.*?\n.*?\n.*?\n\n([^<]*)',
"en_it" => 'In Italiano:\n.*?\n.*?\n.*?\n\n([^<]*)',
"en_pt" => 'Em Português:\n.*?\n.*?\n.*?\n\n([^<]*)',
"en_es" => 'En Español:\n.*?\n.*?\n.*?\n\n([^<]*)',
"fr_en" => 'In English:\n.*?\n.*?\n.*?\n\n([^<]*)',
"de_en" => 'In English:\n.*?\n.*?\n.*?\n\n([^<]*)',
"it_en" => 'In English:\n.*?\n.*?\n.*?\n\n([^<]*)',
"es_en" => 'In English:\n.*?\n.*?\n.*?\n\n([^<]*)',
"pt_en" => 'In English:\n.*?\n.*?\n.*?\n\n([^<]*)',
);
%lang_text = ("en_fr" => 'English To French To English',
"en_de" => 'English To German To English',
"en_it" => 'English To Italian To English',
"en_pt" => 'English To Portugouse To English',
"en_es" => 'English To Spanish To English',
"en" => 'Given Text'
);
$given_phrase = $cgi->param("phrase");
unless ($given_phrase) {
print "Location: http://www.cs.uchicago.edu/~wdr1/Tushar/","\n\n";
}
&log_entry($given_phrase);
%finished_translations = &do_translations($given_phrase);
$finished_translations{"en"} = $given_phrase;
&output_html_header($given_phrase);
foreach $lang (sort keys %finished_translations){
&output_html_item($lang);
}
&output_html_footer;
sub output_html_item{
my $lang = shift;
my ($section,$translation);
$section = $lang_text{$lang};
$translation = $finished_translations{$lang};
print <<"End";
$section