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;