Fix regexp

This commit is contained in:
root 2016-09-21 14:49:40 +02:00
parent 2b07935655
commit abd898f025

View File

@ -153,6 +153,9 @@ sub on_public {
# FIXME: the logging gets spammy ... do we actually want to log to stdout?
print "<$nick> $arg\n";
$mynick =~ s/\[/\\[/g;
$mynick =~ s/\]/\\]/g;
if ($arg =~ /^$mynick[,: ]/i || $arg =~ /^!/ ) {
if ($arg =~ /^(?:$mynick[,: ]|!)\s*ignore (.+)\s*$/i) {
$ignore{$1} = 1;
@ -235,7 +238,7 @@ sub on_public {
{
$self->privmsg([ @to ], "$nick: d'accord je la ferme :-(");
$::tagueule = 1;
$self->nick('vivivi{zzz}');
$self->nick('vivivi[zzz]');
}
else {
$self->privmsg([ @to ], "$nick: je reviens et je ne suis pas content !");
@ -507,6 +510,6 @@ sub adjust_nick
$count += $_;
}
close CMDPIPE;
$conn->nick(sprintf('vivivi{%s}', $count)) if ( $count > 0 );
$conn->nick(sprintf('vivivi[%s]', $count)) if ( $count > 0 );
}