Issue #2: Added whitelist filtering. #6

Merged
demiguise merged 1 commits from issue-2-whitelist into master 2023-07-10 17:47:26 +02:00
Showing only changes of commit 5a1c720181 - Show all commits

View File

@ -41,6 +41,9 @@ sub new {
# load remembered update ids # load remembered update ids
$Self->{MessageIDs} = YAML::LoadFile("$FindBin::Bin/message_ids.yml"); $Self->{MessageIDs} = YAML::LoadFile("$FindBin::Bin/message_ids.yml");
# whitelist
$Self->{Whitelist} = $Param{Whitelist};
return $Self; return $Self;
} }
@ -389,6 +392,11 @@ sub fetchMessages {
MESSAGE: MESSAGE:
for my $Message (@Messages) { 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}}) { if ($Self->{MessageIDs}{$Message->{message}{message_id}}) {
$Self->{LogObject}->info('fetchMessages: Skipping known message_id'); $Self->{LogObject}->info('fetchMessages: Skipping known message_id');
next MESSAGE; next MESSAGE;