Mercurial > eagle-eye

comparison inference.pl @ 41:5849b6fdc76c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed my password from scripts.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 17 Oct 2008 01:27:10 +0800
parents 65e847de5187
children d2ac1e198ce4
comparison
equal deleted inserted replaced
40:1168ad6e26f7 41:5849b6fdc76c
4 use Data::Dumper; 4 use Data::Dumper;
5 5
6 package main; 6 package main;
7 7
8 our $cities; 8 our $cities;
9 our $server = 's2.ikariam.tw';
10 sub Warn 9 sub Warn
11 { 10 {
12 my ($city, $msg) = @_; 11 my ($city, $msg) = @_;
13 printf("http://%s/index.php?view=city&id=%s (%s) %s \n", 12 printf("http://%s/index.php?view=city&id=%s (%s) %s \n",
14 $server, $city, $cities->{$city}->{name}, $msg); 13 $::server, $city, $cities->{$city}->{name}, $msg);
15 } 14 }
16 15
17 our $i = new Ikariam($server, "chihchun", "c795d57d"); 16 our $i = new Ikariam($::server, $::user, $::pass);
18 $i->login; 17 $i->login;
19 $cities = $i->check; 18 $cities = $i->check;
20 $i->logout; 19 $i->logout;
21 20
22 sub rule_happiness 21 sub rule_happiness