pbot/Plugins/Spinach/update_seent.pl

#!/usr/bin/perl

use warnings;
use strict;

use JSON;
use Time::Piece;

my $self = {};

sub load_questions {
    my ($filename) = @_;

    if (not defined $filename) { $filename = $ENV{HOME} . "/pbot/data/spinach/trivia.json"; }

    $self->{loaded_filename} = $filename;

    my $contents = do {
        open my $fh, '<', $filename or do {
            print "Spinach: Failed to open $filename: $!\n";
            return "Failed to load $filename";
        };
        local $/;
        <$fh>;
    };

    $self->{questions}  = decode_json $contents;
    $self->{categories} = ();

    my $questions;
    foreach my $key (keys %{$self->{questions}}) {
        foreach my $question (@{$self->{questions}->{$key}}) {
            $question->{category} = uc $question->{category};
            $self->{categories}{$question->{category}}{$question->{id}} = $question;

            if (not exists $question->{seen_timestamp}) { $question->{seen_timestamp} = 0; }

            $questions++;
        }
    }

    my $categories;
    foreach my $category (sort { keys %{$self->{categories}{$b}} <=> keys %{$self->{categories}{$a}} } keys %{$self->{categories}}) {
        my $count = keys %{$self->{categories}{$category}};
        print "Category [$category]: $count\n";
        $categories++;
    }

    print "Spinach: Loaded $questions questions in $categories categories.\n";
    return "Loaded $questions questions in $categories categories.";
}

sub save_questions {
    my $json     = encode_json $self->{questions};
    my $filename = exists $self->{loaded_filename} ? $self->{loaded_filename} : $self->{questions_filename};
    open my $fh, '>', $filename or do {
        print "Failed to open Spinach file $filename: $!\n";
        return;
    };
    print $fh "$json\n";
    close $fh;
}

load_questions;

open my $fh, '<', 'seent' or do {
    print "Failed to open seent file: $!\n";
    die;
};

my $nr = 0;

foreach my $line (<$fh>) {
    ++$nr;
    my ($date, $id) = $line =~ m/^(.*?) :: .*? question:.*?\s(\d+,?\d*)\)/;

    if (not defined $date or not defined $id) {
        print "Parse error at line $nr\n";
        die;
    }

    $id =~ s/,//g;

    print "matched [$date] and [$id]\n";

    my $time = Time::Piece->strptime($date, "%a %b %e %H:%M:%S %Y");
    print "epoch: ", $time->epoch, "\n";

    foreach my $q (@{$self->{questions}->{questions}}) {
        if ($q->{id} == $id) {
            print "question: $q->{question}\n";
            $q->{seen_timestamp} = $time->epoch;
            last;
        }
    }
}

close $fh;

save_questions;