nl

[infobot.git] / src / Modules / babel.pl

diff --git a/src/Modules/babel.pl b/src/Modules/babel.pl
index 720f4b0029a24d1045d71e6dbc46d15f4fd0b6a4..d3543ce61c2b02f681aaa573462a2127a156693b 100644 (file)
--- a/src/Modules/babel.pl
+++ b/src/Modules/babel.pl
@@ -27,23 +27,24 @@ BEGIN {
   # expects.
     use vars qw!%lang_code $lang_regex!;
     %lang_code = (
-                'fr' => 'fr',
-                'sp' => 'es',
-                'es' => 'es',
-                'po' => 'pt',
-                'pt' => 'pt',
-                'it' => 'it',
-                'ge' => 'de',
-                'de' => 'de',
-                'gr' => 'de',
-                'en' => 'en',
-                'zh' => 'zh',
-                'ja' => 'ja',
-                'jp' => 'ja',
-                'ko' => 'ko',
-                'kr' => 'ko',
-                'ru' => 'ru'
-               );
+               'fr' => 'fr',
+               'sp' => 'es',
+               'es' => 'es',
+               'po' => 'pt',
+               'pt' => 'pt',
+               'it' => 'it',
+               'ge' => 'de',
+               'de' => 'de',
+               'gr' => 'de',
+               'en' => 'en',
+               'zh' => 'zh',
+               'ja' => 'ja',
+               'jp' => 'ja',
+               'ko' => 'ko',
+               'kr' => 'ko',
+               'nl' => 'nl',
+               'ru' => 'ru'
+              );
 
   # Here's how we recognize the language you're asking for.  It looks
   # like RTSL saves you a few keystrokes in #perl, huh?
@@ -60,7 +61,8 @@ sub babelfish {
 
   my $ua = new LWP::UserAgent;
   $ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam("httpProxy"));
-  $ua->agent("Mozilla/4.5 " . $ua->agent);        # Let's pretend
+  # Let's pretend
+  $ua->agent("Mozilla/5.0 " . $ua->agent);
   $ua->timeout(5);
 
   my $req =
@@ -71,6 +73,7 @@ sub babelfish {
 # Accept-Charset: iso-8859-1
 #  $req->header('Accept-Charset' => 'iso-8859-1');
 #  print $req->header('Accept-Charset');
+  $req->header('Accept-Language' => 'en');
   $req->content_type('application/x-www-form-urlencoded');
 
   return translate($phrase, "${from}_${to}", $req, $ua);
@@ -106,7 +109,7 @@ sub translate {
       &main::DEBUG("$translated\n===remove to first ':', optional Help\n");
 
       $translated =~ s/\n/ /g;
-      # FIXME should we do unicode->iso
+      # FIXME: should we do unicode->iso (no. use utf8!)
   } else {
       $translated = ":("; # failure
   }
@@ -115,11 +118,11 @@ sub translate {
 
 if (0) {
     if (-t STDIN) {
-        #my $result = babel::babelfish('en','sp','hello world');
-        #my $result = babel::babelfish('en','sp','The cheese is old and moldy, where is the bathroom?');
-        my $result = babel::babelfish('en','gr','doesn\'t seem to translate things longer than 40 characters');
-        $result =~ s/; /\n/g;
-        print "Babelfish says: \"$result\"\n";
+       #my $result = babel::babelfish('en','sp','hello world');
+       #my $result = babel::babelfish('en','sp','The cheese is old and moldy, where is the bathroom?');
+       my $result = babel::babelfish('en','gr','doesn\'t seem to translate things longer than 40 characters');
+       $result =~ s/; /\n/g;
+       print "Babelfish says: \"$result\"\n";
     }
 }