#!/usr/local/bin/perl
use CGI qw(:standard);
use IO::Socket::INET;
$query = new CGI;
$maptext = param('maptext');
print "Content-type: text/html\n\n";
print "Translations\n";
print "\n";
if ($maptext =~ m/^\s*$/) {
print "Please fill in some text.";
print "";
exit;
}
# Open connection to server
$remote_host = "pincoya.lti.cs.cmu.edu";
$remote_port = 5400;
$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => "tcp",
Type => SOCK_STREAM) or
print "Couldn't connect to $remote_host:$remote_port : $!\n";
while ($line = <$socket>) {
last if $line =~ m/^\s*$/;
}
@mapsents = split(/\.|\r?\n/, $maptext);
foreach $mapsent (@mapsents) {
print $socket "$mapsent\n";
$trans = <$socket>;
print "$trans";
}
# Close connection to server
close($socket);
print "