# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1228136063 -28800
# Node ID 2590bcd517a562534579ae0e50d4eab7fb70d24c
# Parent  f81c4f9d267fe6729136e8a3bdbb3743bde2c3e9
added time information in output

diff -r f81c4f9d267f -r 2590bcd517a5 enemy.pl
--- a/enemy.pl	Mon Dec 01 14:23:08 2008 +0800
+++ b/enemy.pl	Mon Dec 01 20:54:23 2008 +0800
@@ -3,6 +3,7 @@
 use Ikariam;
 use Data::Dumper;
 use YAML qw/LoadFile/;
+use POSIX qw(strftime);
 
 package main;
 my @tradegoodText = qw/NULL 葡萄酒 大理石 水晶 硫磺/;
@@ -96,6 +97,7 @@
     foreach my $i (qw/name score trader_score_secondary army_score_main ally/) {
         printf("%s: %s\n", $i, $u->get($i));
     }
+    printf("time: %s\n",  strftime ("%Y-%m-%d %H:%M", localtime($u->get('time'))));
 
     travelMatrix($ARGV[0]);