#!/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 $wanted = $ARGV[0] || undef;

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

foreach my $character ($eve->characters) {
    next if $wanted && $wanted ne $character->name;

    print $character->name . " has " . $character->account->balance . " ISK in the bank\n";
    foreach my $account ($character->accounts()) {
        print "  -- " . $account->balance . " ISK in " . $account->division . "/" . $account->type . "\n";
    }
    if ($character->skill->in_training) {
        my $skill = $character->skill->in_training;
        print "     Training " . $skill->name . " (" . $skill->time_remaining . " remaining)\n";
    }
}