diff --git a/F1DataBot.pm b/F1DataBot.pm index 808f54a..c026d4f 100644 --- a/F1DataBot.pm +++ b/F1DataBot.pm @@ -434,6 +434,8 @@ sub fetchMessages { if ( !$Self->{Whitelist}{$Message->{message}{from}{id}} ) { $Self->{LogObject} ->info( 'fetchMessages: User not whitelisted, skipping message ' . Dumper($MessageDataRaw) ); + + $Self->{MessageIDs}{$Message->{message}{message_id}} = 1; next MESSAGE; } if ($Self->{MessageIDs}{$Message->{message}{message_id}}) { @@ -446,7 +448,7 @@ sub fetchMessages { $Self->processMessage( Message => $Message, ); } } - YAML::DumpFile('message_ids.yml', $Self->{MessageIDs}); + YAML::DumpFile("$FindBin::Bin/message_ids.yml", $Self->{MessageIDs}); } 1;