From e7a03df5aedc83f3198057ea78f9cea4957959fa Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Wed, 18 May 2011 02:20:50 +0200
Subject: [PATCH] brmd::Alphasign: Improved input checking

---
 brmd/brmd.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/brmd/brmd.pl b/brmd/brmd.pl
index d2bc4f4..ab7e86d 100755
--- a/brmd/brmd.pl
+++ b/brmd/brmd.pl
@@ -837,6 +837,8 @@ sub text {
 	my ($heap, $self, $mode, $string) = (@_[HEAP, OBJECT, ARG0, ARG1]);
 	$mode = $modes{$mode};
 	$self->{last_text} = $string;
+	$string = substr($string, 0, 256);
+	$string =~ s/[\000-\037]//g;
 	$string =~ s/<\/(.*?)>/$markup{$1}->[1]/gei;
 	$string =~ s/<(.*?)>/$markup{$1}->[0]/gei;
 	$_[KERNEL]->yield('rawtext', $mode, $string);