#!/usr/bin/perl -w
use LWP::UserAgent;

if ($#ARGV < 0) {
	die("Käyttö: ".$0." <sana>\n");
}

$reqWord = $ARGV[0];
#$reqLang = "k%E4llspr%E5k";
$reqLang = "m%E5lspr%E5k";

$myAgent = LWP::UserAgent->new;
$myAgent->agent("Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.0.1) Gecko/20020823 Netscape/7.0");
$myAgent->default_headers->referer("http://lexikon.nada.kth.se/cgi-bin/sve-fin");

print "Haetaan '".$reqWord."' ...\n";
$formReq = HTTP::Request->new(POST => "http://lexikon.nada.kth.se/cgi-bin/sve-fin");
$formReq->content_type("application/x-www-form-urlencoded");
$formReq->content("sprak=".$reqLang."&stava=on&uppslagsord=".$reqWord);
$formRes = $myAgent->request($formReq);
$s = $formRes->as_string;

if ($s =~ /Svenskt uppslagsord<DD>(.+)/) {
	$q = $1;
	$q =~ s/<\/?[a-z]+>//ig;
	print "Ruotsiksi: ".$q."\n";
}

if ($s =~ /Finsk översättning<DD>(.+)/) {
	$q = $1;
	$q =~ s/<\/?[a-z]+>//ig;
	print "Suomeksi: ".$q."\n";
}