Fixed message remembering.

This commit is contained in:
Stefan Härter 2023-07-12 20:03:02 +02:00
parent 36ec0c88b8
commit d39a2f15e2

View File

@ -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;