mata_bot

some cheeky bot for #unix_surrealism
git clone https://git.pastanoggin.com/mata_bot.git
Log | Files | Refs | README | LICENSE

commit 9a845840fcd8688495db20d2454274982b170e99
parent abd40d0d1f54a510a2dae21077f38ddb05d3a92c
Author: noodle <noodle@pastanoggin.com>
Date:   Sat, 14 Jun 2025 21:01:33 +0300

Merge branches 'change_mom' and 'fix_chat_regex_error'

Diffstat:
Mmata_bot.pl | 5+++--
1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/mata_bot.pl b/mata_bot.pl @@ -12,7 +12,7 @@ my $CHUNK_LENGTH = 1024; my $NICK = 'mata_bot'; my $USER = 'mata_bot_beta4'; my $REAL = 'death to technomage!!'; -my $MOTHER = 'anelli'; +my $MOTHER = 'noodle'; my $MATA_NORM = '[._.]'; my $MATA_HAPPY = '[^_^]'; my $MATA_DEAD = '[x~x]'; @@ -121,7 +121,8 @@ sub respond { # chat s/// my $toreplace = $1; my $replacement = $2; - if ($subbuffer{$sender_nick} =~ s/$toreplace/$replacement/) { + eval { $subbuffer{$sender_nick} =~ s/$toreplace/$replacement/ }; + if (not $@ and $subbuffer{$sender_nick}) { msg($sock, "${sender_nick} meant to say: $subbuffer{$sender_nick}"); return 1; }