proxy

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@812 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/babel.pl b/src/Modules/babel.pl
index 053ceef159fcfb1412c7a28573b283b1ca234f6f..720f4b0029a24d1045d71e6dbc46d15f4fd0b6a4 100644 (file)
--- a/src/Modules/babel.pl
+++ b/src/Modules/babel.pl
@@ -59,6 +59,7 @@ sub babelfish {
   $to = $lang_code{$to};
 
   my $ua = new LWP::UserAgent;
+  $ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam("httpProxy"));
   $ua->agent("Mozilla/4.5 " . $ua->agent);        # Let's pretend
   $ua->timeout(5);