sergiotarxz/burguillos.info
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Updating location data.

Browse Source
This commit is contained in:
sergiotarxz 2023-08-09 11:23:45 +02:00
parent 3b63448bf7
commit 16227c874f
1 changed files with 28 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lib/BurguillosInfo/DB/Migrations.pm
View File

@ -38,6 +38,10 @@ sub MIGRATIONS {
'CREATE INDEX request_country_index on requests (country);',
'ALTER TABLE requests ADD COLUMN subdivision TEXT;',
'CREATE INDEX request_subdivision_index on requests (subdivision);',
\&_populate_locations,
\&_populate_locations,
\&_populate_locations,
\&_populate_locations,
);
}
@ -47,23 +51,30 @@ sub _populate_locations ($dbh) {
my $tracking = BurguillosInfo::Tracking->new( BurguillosInfo->new );
my $page = 0;
while (1) {
my $data = $dbh->selectall_arrayref( <<"EOF", { Slice => {} } );
SELECT uuid, remote_address
FROM requests
WHERE date > NOW() - interval '2 months'
OFFSET $page
LIMIT 100;
EOF
if (!@$data) {
return;
}
for my $request (@$data) {
my ( $uuid, $remote_address ) =
$request->@{ 'uuid', 'remote_address' };
$tracking->update_country_and_subdivision( $dbh, $uuid,
$remote_address );
}
last if !_update_request_page( $dbh, $tracking, $page );
$page += 100;
}
}
sub _update_request_page ( $dbh, $tracking, $page ) {
my $data = $dbh->selectall_arrayref( <<"EOF", { Slice => {} }, $page );
SELECT uuid, remote_address
FROM requests
WHERE date > NOW() - interval '1 month'
AND country IS NULL
AND subdivision IS NULL
ORDER BY date desc
OFFSET $page
LIMIT ?;
EOF
if ( !@$data ) {
return;
}
for my $request (@$data) {
my ( $uuid, $remote_address ) = $request->@{ 'uuid', 'remote_address' };
$tracking->update_country_and_subdivision( $dbh, $uuid,
$remote_address );
}
return 1;
}
1;