From 002adebb7a874cfa50b84c838d6965db57a9b523 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 13 Feb 2001 13:59:27 +0000
Subject: [PATCH] debugging added

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

diff --git a/src/Modules/babel.pl b/src/Modules/babel.pl
index 7cca74e..26cad3c 100644
--- a/src/Modules/babel.pl
+++ b/src/Modules/babel.pl
@@ -88,6 +88,16 @@ sub translate {
     my $translated;
     if ($res->is_success) {		# success.
 	my $html = $res->content;
+	my $textarea	= 0;
+	foreach (split "\n", $html) {
+	    $textarea	= 1	if (/<textarea/i);
+	    next unless ($textarea);
+
+	    &DEBUG("   '$_'");
+
+	    $textarea	= 0	if (/<\/textarea/i);
+	}
+
 	$html	=~ s/\cM//g;
 	$html	=~ s/\n\s*\n/\n/g;
 	$html	=~ s/\n/ /g;	# ...
-- 
2.39.5