From 5a1c720181222bdcd761ee579d386ffee586b8bc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20H=C3=A4rter?= <stefan.haerter@protonmail.com>
Date: Mon, 10 Jul 2023 17:44:20 +0200
Subject: [PATCH] Issue #2: Added whitelist filtering.

---
 F1DataBot.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/F1DataBot.pm b/F1DataBot.pm
index 8d5c4d6..ea18351 100644
--- a/F1DataBot.pm
+++ b/F1DataBot.pm
@@ -41,6 +41,9 @@ sub new {
     # load remembered update ids
     $Self->{MessageIDs} = YAML::LoadFile("$FindBin::Bin/message_ids.yml");
 
+    # whitelist
+    $Self->{Whitelist} = $Param{Whitelist};
+
     return $Self;
 }
 
@@ -389,6 +392,11 @@ sub fetchMessages {
 
     MESSAGE:
     for my $Message (@Messages) {
+        if ( $Self->{Whitelist}{$Message->{message}{from}{id}} ) {
+            $Self->{LogObject}
+              ->info( 'fetchMessages: User not whitelisted, skipping message ' . Dumper($MessageDataRaw) );
+            next MESSAGE;
+        }
         if ($Self->{MessageIDs}{$Message->{message}{message_id}}) {
             $Self->{LogObject}->info('fetchMessages: Skipping known message_id');
             next MESSAGE;
-- 
2.45.2