#!/usr/bin/env perl

use 5.010001;
use strict;
use warnings;
use FindBin '$Bin';
use Log::ger;
BEGIN { our $Default_Log_Level = 'info' }
use Log::ger::Screen;

use DateTime;
use IPC::System::Options 'system', -log=>1;

my $first_year = 1995;
my $now = DateTime->now;

for my $year ($first_year .. $now->year-1) {
    if (-f "$Bin/../share/$year.csv") {
        log_info "Data for year $year already exists, skipped";
        next;
    }
    log_debug "Processing year $year ...";
    system({shell=>1, die=>1}, "list-metacpan-releases --from $year-01-01T00:00:00 --to $year-12-31T23:59:59 --sort date --format csv > '$Bin/../share/$year.csv'");
}
