Added lovely quotes for certain users.

F1DataBot.pm

@@ -12,7 +12,6 @@ use Encode;
 use FindBin;
 
 # CPAN packages
-use Cache::FastMmap;
 use JSON;
 use Log::Log4perl;
 use YAML;
@@ -22,12 +21,6 @@ package F1DataBot;
 
 # Constants and initalisations
 Log::Log4perl->init("$FindBin::Bin/log.conf");
-my $CACHE = Cache::FastMmap->new(
-    share_file => '/tmp/f1_bot',
-    serializer => 'json',
-    unlink_on_exit => 0,
-    expire_time => 86400,
-);
 
 sub new {
     my ( $Type, %Param ) = @_;
@@ -193,28 +186,20 @@ sub statistics {
             my $StatIdentifier = $+{statidentifier};
             given ($StatIdentifier) {
                 when ('standings') {
-                    my $Standings;
+                    my $Standings = json POST(
-                    if ( $CACHE->get('driver_standings') ) {
+                        join( '/',
-                        $Standings = $CACHE->get('driver_standings');
+                            ( $Self->{URL}{Ergast}, 'current', 'driverStandings.json' )
-                    }
+                        ),
-                    else {
+                        {}
-                        $Standings = json POST(
+                    );
-                            join( '/',
-                                ( $Self->{URL}{Ergast}, 'current', 'driverStandings.json' )
-                            ),
-                            {}
-                        );
-                        $CACHE->set('driver_standings', $Standings);
-                    }
-
                     my %DriverStandings;
-                    my $DriverStandingsFormatted = sprintf( "%2s %3s %-5s%7s\n",
+                    my $DriverStandingsFormatted = sprintf( "%-3s%-4s%-5s%7s\n",
                         "#", "No.", "Code", "Points" );
                     for my $Driver ( $Standings->{MRData}->{StandingsTable}
                         ->{StandingsLists}->[0]->{DriverStandings}->@* )
                     {
                         $DriverStandingsFormatted .= sprintf(
-                            "%2d %3d %-5s%7d\n",
+                            "%-3d%-4d%-5s%7d\n",
                             $Driver->{positionText},
                             $Driver->{Driver}->{permanentNumber},
                             $Driver->{Driver}->{code},
@@ -250,38 +235,30 @@ sub statistics {
             my $StatIdentifier = $+{statidentifier};
             given ($StatIdentifier) {
                 when ('standings') {
-                    my $Standings;
+                    my $Standings = json POST(
-                    if ( $CACHE->get('constructor_standings') ) {
+                        join(
-                        $Standings = $CACHE->get('constructor_standings');
+                            '/',
-                    }
+                            (
-                    else {
+                                $Self->{URL}{Ergast}, 'current',
-                        $Standings = json POST(
+                                'constructorStandings.json'
-                            join( '/',
+                            )
-                                ( $Self->{URL}{Ergast}, 'current', 'constructorStandings.json' )
+                        ),
-                            ),
+                        {}
-                            {}
+                    );
-                        );
-                        $CACHE->set('constructor_standings', $Standings);
-                    }
                     $Self->{LogObject}
                       ->info( 'statistics: Fetched standings are '
                           . Dumper($Standings) );
-                    my $ConstructorStandingsFormatted = sprintf( "%2s %-15s%7s\n",
+                    my %ConstructorStandings;
-                        "#", "Name", "Points" );
+                    my $ConstructorStandingsFormatted = '';
                     for my $Constructor ( $Standings->{MRData}->{StandingsTable}
                         ->{StandingsLists}->[0]->{ConstructorStandings}->@* )
                     {
-                        $ConstructorStandingsFormatted .= sprintf(
+                        $ConstructorStandingsFormatted .=
-                            "%2d %-15s%7d\n",
+"Position: $Constructor->{positionText}, Name: $Constructor->{Constructor}->{name} - Points: $Constructor->{points}\n";
-                            $Constructor->{positionText},
-                            $Constructor->{Constructor}->{name},
-                            $Constructor->{points}
-                        );
                     }
                     $ConstructorStandingsFormatted =~ s/^/<pre>/;
                     $ConstructorStandingsFormatted =~ s/$/<\/pre>/;
-                    $ReturnData{text}         = $ConstructorStandingsFormatted;
+                    $ReturnData{text} = $ConstructorStandingsFormatted;
-                    $ReturnData{parse_mode} = 'HTML';
                 }
                 default {
                     $ReturnData{text} =
@@ -457,8 +434,6 @@ 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}}) {
@@ -471,7 +446,7 @@ sub fetchMessages {
             $Self->processMessage( Message => $Message, );
         }
     }
-    YAML::DumpFile("$FindBin::Bin/message_ids.yml", $Self->{MessageIDs});
+    YAML::DumpFile('message_ids.yml', $Self->{MessageIDs});
 }
 
 1;