From 5da02187e6ea2106d608182b4ca8a9402aafa55d Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sun, 11 Feb 2024 20:52:09 +0100
Subject: [PATCH] Don't match dates in channel names.

---
 bin/ws.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/bin/ws.pl b/bin/ws.pl
index f3dd7bc..dd6a0ae 100644
--- a/bin/ws.pl
+++ b/bin/ws.pl
@@ -117,7 +117,9 @@ sub handle_event {
 	my $user = $ev->{'user'};
 
 	if ($type eq 'message') {
-		if ($ev->{'text'} =~ /(20\d{2}-\d{2}-\d{2})/ || $ev->{'message'}{'text'} =~ /(20\d{2}-\d{2}-\d{2})/) {
+		my $text = $ev->{'text'} // $ev->{'message'}{'text'};
+		$text =~ s/<#[A-Z0-9]+|[^>]+>//g; #  Don't match dates in channel names.
+		if ($text =~ /(20\d{2}-\d{2}-\d{2})/) {
 			# TODO: What if edits happen out-of-order?
 			my $date = $1;
 			my $channel = $ev->{'channel'};
-- 
2.39.2