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'};