X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2Fbabel.pl;h=26cad3c5219c73ba26e482fe18c8a6f320915671;hb=002adebb7a874cfa50b84c838d6965db57a9b523;hp=7cca74ef52d61508f654a0237aca5f338b64db3c;hpb=985d432b324e3a6f4e961bfbdf9bfdf6f0884396;p=infobot.git

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