demiguise/F1DataTelegramBot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Issue #5: Implemented Cache::FastMmap as caching module. #8

Merged
demiguise merged 1 commits from issue-5-caching into master 2023-07-31 20:26:39 +02:00
Conversation 0 Commits 1 Files Changed 1 +34 -16
1 changed files with 34 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
F1DataBot.pm
View File

@ -12,6 +12,7 @@ use Encode;
use FindBin;
# CPAN packages
use Cache::FastMmap;
use JSON;
use Log::Log4perl;
use YAML;
@ -21,6 +22,12 @@ 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 ) = @_;
@ -186,12 +193,20 @@ sub statistics {
my $StatIdentifier = $+{statidentifier};
given ($StatIdentifier) {
when ('standings') {
my $Standings = json POST(
join( '/',
( $Self->{URL}{Ergast}, 'current', 'driverStandings.json' )
),
{}
);
my $Standings;
if ( $CACHE->get('driver_standings') ) {
$Standings = $CACHE->get('driver_standings');
}
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",
"#", "No.", "Code", "Points" );
@ -235,16 +250,19 @@ sub statistics {
my $StatIdentifier = $+{statidentifier};
given ($StatIdentifier) {
when ('standings') {
my $Standings = json POST(
join(
'/',
(
$Self->{URL}{Ergast}, 'current',
'constructorStandings.json'
)
),
{}
);
my $Standings;
if ( $CACHE->get('constructor_standings') ) {
$Standings = $CACHE->get('constructor_standings');
}
else {
$Standings = json POST(
join( '/',
( $Self->{URL}{Ergast}, 'current', 'constructorStandings.json' )
),
{}
);
$CACHE->set('constructor_standings', $Standings);
}
$Self->{LogObject}
->info( 'statistics: Fetched standings are '
. Dumper($Standings) );