brmlab/brmdoor
4
0
Fork 0
mirror of https://github.com/brmlab/brmdoor.git synced 2025-06-08 11:44:01 +02:00
Code Issues Projects Releases Packages Wiki Activity

brmd::Alphasign: Improved input checking

Browse source
This commit is contained in:
Petr Baudis 2011-05-18 02:20:50 +02:00
parent 1022ae7ddd
commit e7a03df5ae
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
brmd/brmd.pl
View file

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