diff enemy.pl @ 27:dd85b55eec2a

implemented basic inference engine.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 10 Oct 2008 03:38:49 +0800
parents 5635e75c92d0
children 0863b32e1a05
line wrap: on
line diff
--- a/enemy.pl	Fri Oct 10 03:20:36 2008 +0800
+++ b/enemy.pl	Fri Oct 10 03:38:49 2008 +0800
@@ -11,6 +11,8 @@
     die("Usage: $0 nickname\n");
 }
 
+system('perl scores.pl ' . $ARGV[0]);
+
 Ikariam::User->has_many(cities => 'Ikariam::Cities');
 my ($u) = Ikariam::User->search('name' => $ARGV[0]);
 if(defined($u)) {