F1DataBot.pm

@@ -1,5 +1,5 @@
 # Important for switch feature
-use v5.32;
+use v5.34;
 
 use utf8;
 use strict;
@@ -13,7 +13,6 @@ use Encode;
 # CPAN packages
 use JSON;
 use Log::Log4perl;
-use YAML;
 
 # Package name
 package F1DataBot;
@@ -37,9 +36,6 @@ sub new {
         Telegram => 'https://api.telegram.org',
     };
 
-    # load remembered update ids
-    $Self->{UpdateIDs} = YAML::LoadFile('update_ids.yml');
-
     return $Self;
 }
 
@@ -390,20 +386,11 @@ sub fetchMessages {
     my @Messages = $MessageDataRaw->{result}->@*;
     $Self->{LogObject}
       ->info( 'fetchMessages: Messages returned are ' . Dumper( \@Messages ) );
-
-    MESSAGE:
     for my $Message (@Messages) {
         $Self->{LogObject}->info('fetchMessages: Calling processMessage');
-        if ($Self->{UpdateIDs}{$Message->{update_id}}) {
-            $Self->{LogObject}->info('fetchMessages: Skipping known update_id');
-            next MESSAGE;
-        }
-        else {
-            $Self->{UpdateIDs}{$Message->{update_id}} = 1;
         $Self->processMessage( Message => $Message, );
     }
-    }
-    YAML::DumpFile('update_ids.yml', $Self->{UpdateIDs});
+
 }
 
 1;

bot_script.pl

@@ -1,6 +1,6 @@
 #/usr/bin/perl
 
-use v5.32;
+use v5.34;
 
 use strict;
 use warnings;