Mercurial > eagle-eye

diff inference.pl @ 52:d2ac1e198ce4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implement a new agent based on Decision Tree (Decision::ParseTree)
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Mon, 20 Oct 2008 19:07:53 +0800
parents 5849b6fdc76c
children
line wrap: on
line diff
--- a/inference.pl	Sat Oct 18 22:24:03 2008 +0800
+++ b/inference.pl	Mon Oct 20 19:07:53 2008 +0800
@@ -13,11 +13,6 @@
         $::server, $city, $cities->{$city}->{name}, $msg);
 }
 
-our $i = new Ikariam($::server, $::user, $::pass);
-$i->login;
-$cities = $i->check;
-$i->logout;
-
 sub rule_happiness
 {
     my $id = shift;
@@ -111,6 +106,11 @@
     print("\n");
 }
 
+our $i = new Ikariam($::server, $::user, $::pass);
+$i->login;
+$cities = $i->check;
+$i->logout;
+
 # space
 # Checking rules
 foreach my $procedure (qw/rule_war rule_happiness rule_corruption rule_building rule_space rule_resource/) {