# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1239699677 -28800
# Node ID e551351b18dec7fd43f9b74cec71ff652e19595d
# Parent  dd3d76f43999f9327437c0157dd820abcb7a0bae
updated for timestamp of scores information

diff -r dd3d76f43999 -r e551351b18de enemy_scores.pl
--- a/enemy_scores.pl	Tue Apr 14 17:00:40 2009 +0800
+++ b/enemy_scores.pl	Tue Apr 14 17:01:17 2009 +0800
@@ -19,7 +19,11 @@
 if(defined($u)) {
     foreach my $i (qw/name time score trader_score_secondary army_score_main ally/) {
         if($i eq "time") {
-            printf("time: %s, ",  strftime ("%Y-%m-%d %H:%M", localtime($u->get('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));
         }
diff -r dd3d76f43999 -r e551351b18de scores.pl
--- a/scores.pl	Tue Apr 14 17:00:40 2009 +0800
+++ b/scores.pl	Tue Apr 14 17:01:17 2009 +0800
@@ -26,6 +26,7 @@
             foreach my $i (keys(%$user)) {
                 eval($c->$i($user->{$i}));
             }
+            $c->time(time);
             $c->autoupdate(1);
             $c->update();
         } else {