#!/usr/bin/perl -w

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

print header();

my $from;

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

	my $title, $po, $links;
	if ($from eq 'en') {
		$title = "English to Spanish";
		$po = "Powered by ";
		$links = '';
	} else {
		$title = "Espaņol a Ingles";
		$po = "Accionado por ";
		$links = '<a href="http://www.verbix.com/languages/spanish.shtml" target=_new>Conjugaciones en Espaņol</a> por Verbix.';
	}

	print "<table border height=100% width=100%>";
	print "<tr valign=top><td width=50%>";
		print "<h1>$title</h1>";
		print "<form><textarea cols=60 rows=10 name=\"in\">$in</textarea><br>";
		print "<input type=hidden name=from value=$from>";
		print "<input type=\"submit\">";
		print " $po <a href=\"http://babelfish.altavista.com/tr\">AltaVista</a>. $links";
		print "</form>";
	print "<td>";
		print "$out";
	print "</table>";
} elsif (param('es')) {
	print "Es";
} else {
	print '<title>English/Spanish Translation</title>
<frameset rows="50%,50%">
<frame src="?from=en">
<frame src="?from=es">
</frameset>';
}

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

	if ($from eq 'en') {
		$from = 'en_es';
	} else {
		$from = 'es_en';
	}

	$in = uri_escape($in);
	my $file = "/tmp/out.$$";
	system("wget -O $file 'http://babelfish.altavista.com/tr?doit=1&intl=1&trtext=$in&tt=urltext&lp=$from'");

	open(F, $file) || return "Could not open $file: $!";

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

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

	return $out;
}