mata_bot

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

commit 3bebabfb747e2a236bae7c7c246d06aaaf63cd94
parent 46ca98d72e0fc81ffc29c72899ccad7957cb7589
Author: boredpasta <boredpasta@tutanota.com>
Date:   Sun, 16 Mar 2025 18:36:08 +0200

add a s/// command

Diffstat:
Mmata_bot.pl | 12++++++++++++
1 file changed, 12 insertions(+), 0 deletions(-)

diff --git a/mata_bot.pl b/mata_bot.pl @@ -17,6 +17,7 @@ my $host = 'irc.libera.chat'; my $logging = 0; my $port = '6697'; my $tls = 1; +my %subbuffer; sub logger { my $logmessage = shift; @@ -53,7 +54,18 @@ sub respond { } else { msg($sock, "${sender_nick}: Bleep Bloop? <[._.]>"); } + } elsif ($subbuffer{$sender_nick} && $message =~ m,s/([^\000\r\n/]*)/([^\000\r\n/]*)/?,) { + # chat s/// + my $toreplace = $1; + my $replacement = $2; + if ($subbuffer{$sender_nick} =~ s/$toreplace/$replacement/) { + msg($sock, "${sender_nick} meant to say: $subbuffer{$sender_nick}"); + } else { + msg($sock, "${sender_nick} meant to say something but idk lol ($toreplace doesn't exist in their last message)"); + } + return; } + $subbuffer{$sender_nick} = $message; } # process args