#!/usr/bin/perl -w

use CGI qw(:all);
use URI::Escape;

my %links;
$links{'es'} = '<a target=gg href="http://www.verbix.com/languages/spanish.shtml">Conjugaciones</a> por Verbix.';
$links{'fr'} = '<a target=gg href="http://www.verbix.com/languages/french.shtml">Conjugations</a> by Verbix.';
$links{'it'} = '<a target=gg href="http://www.verbix.com/languages/italian.shtml">Conjugations</a> by Verbix.';

my %lang = (
	'de' => 'German',
	'en' => 'English',
	'es' => 'Spanish',
	'fr' => 'French',
	'it' => 'Italian',
	'nl' => 'Dutch',
	'pt' => 'Portugese',
	'ja' => 'Japanese',
	'el' => 'Greek',
	'ko' => 'Korean',
	'ru' => 'Russian',
	'zh' => 'Simplified Chinese',
	'zt' => 'Traditional Chinese',
);

print header('text/html; charset=UTF-8');

my($L1, $L2) = (param('L1'), param('L2'));
my($L1_) = $lang{$L1} || $L1;
my($L2_) = $lang{$L2} || $L2;

if (!defined($L1)) {
	foreach my $l (sort keys %lang) {
		if ($l eq 'en') {
			$opt1 .= "<option value=$l selected>$lang{$l}</option>\n";
			$opt2 .= "<option value=$l>$lang{$l}</option>\n";
		} elsif ($l eq 'es') {
			$opt1 .= "<option value=$l>$lang{$l}</option>\n";
			$opt2 .= "<option value=$l selected>$lang{$l}</option>\n";
		} else {
			$opt1 .= "<option value=$l>$lang{$l}</option>\n";
			$opt2 .= "<option value=$l>$lang{$l}</option>\n";
		}
	}

	print "<h1> Choose your languages </h1>\n";
	print "<form><table><tr>";
	print "<td>From:<br><select name=L1>$opt1</select></td>";
	print "<td>  To:<br><select name=L2>$opt2</select></td>";
	print "</tr><tr><td colspan=2><input type=submit value=\"  Go  \"></td>";
	print "</tr></table></form>";
}

my($from, $to);

if ($from = param('from')) {
	$to = param('to');
	my ($in, $out);
	if ($in = param('in')) {
		$out = trans($in, $from, $to);
	} else {
		$in = '';
		$out = "&nbsp;";
	}

	my($title, $links);

	if ($from eq $L1) {
		$title = "$L1_ to $L2_";
		$links = $links{$L1} || '';
		$wr = "Look up words at <a target=gg href=\"http://www.wordreference.com/$L1$L2\">WordReference</a>";
	} else {
		$title = "$L2_ to $L1_";
		$links = $links{$L2} || '';
		$wr = "Look up words at <a target=gg href=\"http://www.wordreference.com/$L2$L1\">WordReference</a>";
	}

	print "<table border height=100% width=100%>";
	print "<tr valign=top><td width=50%>";
		print "<b>$title</b><br>";
		print "<form><textarea cols=60 rows=10 name=\"in\">$in</textarea><br>";
		print "<input type=hidden name=from value=$from>";
		print "<input type=hidden name=to value=$to>";
		print "<input type=hidden name=L1 value=$L1>";
		print "<input type=hidden name=L2 value=$L2>";
		print "<input type=\"submit\">";
		print "<p>Powered by <a target=gg href=\"http://babelfish.altavista.com/tr\">AltaVista</a>. $links $wr";
		print "</form>";
	print "<td>";
		print "$out";
	print "</table>";
} else {
	print "<title>$L1_/$L2_ Translation</title>
<frameset rows=\"50%,50%\">
<frame src=\"?L1=${L1}&L2=${L2}&from=$L1&to=$L2\">
<frame src=\"?L1=${L1}&L2=${L2}&from=$L2&to=$L1\">
</frameset>";
}

sub trans {
	my($in, $from, $to) = @_;
	my $out = '';

	my $lp = "${from}_${to}";

	$in = uri_escape($in);
	$in =~ s/'/\'/;

	open(F, "wget -O- -q --header='Accept-Charset: utf-8' \"http://babelfish.altavista.com/tr?doit=1&intl=1&trtext=$in&tt=urltext&lp=$lp\" |");

	my $found = 0;
	while (<F>) {
		if (! $found) {
			next unless s/<td bgcolor=white class=s><div style=padding:10px;>//;
			$found = 1;
		}

		if (/<\/div>/) {
			s/<\/div>.*$//;
			$out .= $_;
			last;
		} else {
			$out .= $_;
		}
	}
	close F;

	return $out;
}