From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 13 Feb 2001 13:59:27 +0000 (+0000)
Subject: debugging added
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=002adebb7a874cfa50b84c838d6965db57a9b523;p=infobot.git

debugging added


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

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;	# ...