#!/usr/bin/perl

use strict;
use warnings;

use WebService::EveOnline;

my $API_KEY = $ENV{EVE_API_KEY};
my $USER_ID = $ENV{EVE_USER_ID};

unless ($API_KEY && $USER_ID) {
    print "Please export EVE_API_KEY and EVE_USER_ID before running\n";
    exit;
}

my $eve = WebService::EveOnline->new( { user_id => $USER_ID, api_key => $API_KEY } );

my $wanted = $ARGV[0] || undef;

foreach my $character ($eve->characters) {
    next if $wanted && $wanted ne $character->name;
    
    my @skills_in_queue = $character->skill->queue;
    my $num_skills = scalar(@skills_in_queue);

    print $num_skills > 0 ? $character->name . " has " . $num_skills . " skill" . ($num_skills == 1 ? "" : "s") . " in the queue:\n" : $character->name . " has nothing in the skill queue.\n"; 

    foreach my $q (@skills_in_queue) {
        print "    " . $q->name . " " . $q->level . " will have finished training in " . $q->time_remaining . "\n";        
    }
    
}