GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Replace control chars with escaped ordinals

This commit is contained in:
Pragmatic Software 2017-09-02 00:19:39 -07:00
parent 2f014ba2f0
commit 5ee07e08d2
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
PBot/Interpreter.pm
View File

@ -82,6 +82,7 @@ sub process_line {
$text =~ s/^\s+//;
$text =~ s/\s+$//;
$text =~ s/([\01-\010]|[\016-\037])/'\\' . ord $1/ge;
my $cmd_text = $text;
$cmd_text =~ s/^\/me\s+//;

2
PBot/Logger.pm
View File

@ -36,7 +36,7 @@ sub log {
my ($self, $text) = @_;
my $time = localtime;
$text =~ s/(?:[\01-\010]|[\016-\037])/^/g;
$text =~ s/([\01-\010]|[\016-\037])/'\\' . ord $1/ge;
if(defined $self->{log_file}) {
print PLOG_FILE "$time :: $text";