From 3f7f34788c4b472be15e552f0475959b1d0adc3a Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 22 Aug 2003 00:59:01 +0000
Subject: [PATCH] proxy

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@812 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/babel.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Modules/babel.pl b/src/Modules/babel.pl
index 053ceef..720f4b0 100644
--- 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);
 
-- 
2.39.5