ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Net-IRC3/lib/Net/IRC3/Util.pm
(Generate patch)

Comparing Net-IRC3/lib/Net/IRC3/Util.pm (file contents):
Revision 1.14 by elmex, Sat Aug 18 12:40:04 2007 UTC vs.
Revision 1.15 by elmex, Sat Aug 18 12:59:37 2007 UTC

… …
229=cut 229=cut
230 230
231sub filter_colors($) { 231sub filter_colors($) {
232 my ($line) = @_; 232 my ($line) = @_;
233 $line =~ s/\x1B\[.*?[\x00-\x1F\x40-\x7E]//g; # see ECMA-48 + advice by urxvt author 233 $line =~ s/\x1B\[.*?[\x00-\x1F\x40-\x7E]//g; # see ECMA-48 + advice by urxvt author
234 $line =~ s/\x03\d\d?(?:,\d\d?)?//g; # see http://www.mirc.co.uk/help/color.txt 234 $line =~ s/\x03\d\d?(?:,\d\d?)?//g; # see http://www.mirc.co.uk/help/color.txt
235 $line =~ s/[\x03\x16\x02\x1f\x0f]//g; # see some undefined place :-)
235 $line 236 $line
236} 237}
237 238
238 239
239# implemented after the below CTCP spec, but 240# implemented after the below CTCP spec, but

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines