#!/usr/bin/perl
use strict;
use Ikariam;
use Data::Dumper;
use YAML qw/LoadFile/;
use POSIX qw(strftime);

package main;
my @tradegoodText = qw/NULL 葡萄酒 大理石 水晶 硫磺/;
my @wonderText = qw/NULL 赫菲斯拓斯的熔爐 蓋亞的神殿 狄奧尼索斯的花園 雅典娜的神殿 赫秘士的神殿 阿瑞斯的要塞 波賽頓的神殿 克羅瑟斯的神殿/;

package main;

if($#ARGV != 0) {
    die("Usage: $0 nickname\n");
}

my ($u) = Ikariam::User->search('name' => $ARGV[0]);
if(defined($u)) {
    foreach my $i (qw/name time score trader_score_secondary army_score_main ally/) {
        if($i eq "time") {
            if(defined($u->get('time'))) {
                printf("time: %s, ",  strftime ("%Y-%m-%d %H:%M", localtime($u->get('time'))));
            } else {
                printf("time: %s, ",  strftime ("%Y-%m-%d %H:%M", localtime()));
            }
        } else {
            printf("%s: %s, ", $i, $u->get($i));
        }
    }
    print("\n");
}