Mercurial > eagle-eye

comparison scan.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 704d76b67670
children 96ee35378696
comparison
equal deleted inserted replaced
40:1168ad6e26f7 41:5849b6fdc76c
66 } 66 }
67 $user->update(); 67 $user->update();
68 } 68 }
69 } 69 }
70 70
71 our $i = new Ikariam("s2.ikariam.tw", "chihchun", "c795d57d"); 71 our $i = new Ikariam($::server, $::user, $::pass);
72 72
73 my @islands; 73 my @islands;
74 if($#ARGV == 1) { 74 if($#ARGV == 1) {
75 $i->login; 75 $i->login;
76 @islands = $i->viewWorldMap($ARGV[0], $ARGV[1]); 76 @islands = $i->viewWorldMap($ARGV[0], $ARGV[1]);