Fixed message remembering.
This commit is contained in:
parent
36ec0c88b8
commit
d39a2f15e2
@ -434,6 +434,8 @@ sub fetchMessages {
|
|||||||
if ( !$Self->{Whitelist}{$Message->{message}{from}{id}} ) {
|
if ( !$Self->{Whitelist}{$Message->{message}{from}{id}} ) {
|
||||||
$Self->{LogObject}
|
$Self->{LogObject}
|
||||||
->info( 'fetchMessages: User not whitelisted, skipping message ' . Dumper($MessageDataRaw) );
|
->info( 'fetchMessages: User not whitelisted, skipping message ' . Dumper($MessageDataRaw) );
|
||||||
|
|
||||||
|
$Self->{MessageIDs}{$Message->{message}{message_id}} = 1;
|
||||||
next MESSAGE;
|
next MESSAGE;
|
||||||
}
|
}
|
||||||
if ($Self->{MessageIDs}{$Message->{message}{message_id}}) {
|
if ($Self->{MessageIDs}{$Message->{message}{message_id}}) {
|
||||||
@ -446,7 +448,7 @@ sub fetchMessages {
|
|||||||
$Self->processMessage( Message => $Message, );
|
$Self->processMessage( Message => $Message, );
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
YAML::DumpFile('message_ids.yml', $Self->{MessageIDs});
|
YAML::DumpFile("$FindBin::Bin/message_ids.yml", $Self->{MessageIDs});
|
||||||
}
|
}
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
Loading…
Reference in New Issue
Block a user