BEGIN { $| = 1;
print
"1..1\n"
; }
END {
print
"not ok 1\n"
unless
$loaded
;}
$loaded
= 1;
print
"ok 1\n"
;
if
( -f
"TTEST"
) {
print
"Your WWW proxy (hostname:port): [none] "
;
chomp
(
$proxy
= <stdin>);
print
"Translate with "
.
join
(
", "
,
&WWW::Babelfish::services
)
.
"?: [Babelfish] "
;
chomp
(
$service
= <stdin>);
$service
=
"Babelfish"
unless
defined
$service
;
$obj
=
$proxy
? new WWW::Babelfish(
'proxy'
=>
$proxy
,
'service'
=>
$service
) : new WWW::Babelfish(
'service'
=>
$service
);
die
(
"Babelfish server unavailable\n"
)
unless
defined
(
$obj
);
print
"Text to translate: "
;
$text
= <stdin>;
print
"Source language ("
.
join
(
", "
,
$obj
->languages) .
"): "
;
chomp
(
$source
= <stdin>);
print
"Target language: "
;
chomp
(
$target
= <stdin>);
print
"Translating...\n"
;
$trans
=
$obj
->translate(
'source'
=>
$source
,
'destination'
=>
$target
,
'text'
=>
$text
);
die
(
"Could not translate: "
.
$obj
->error)
unless
defined
(
$trans
);
print
"Translation: "
,
$trans
,
"\n"
;
}