commit 3bebabfb747e2a236bae7c7c246d06aaaf63cd94
parent 46ca98d72e0fc81ffc29c72899ccad7957cb7589
Author: boredpasta <boredpasta@tutanota.com>
Date: Sun, 16 Mar 2025 18:36:08 +0200
add a s/// command
Diffstat:
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