Mercurial > eagle-eye

comparison scan.pl @ 236:cf08e01f5713

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Thu, 06 Nov 2008 20:36:24 +0800
parents 978a949602e5
children 1a7b2d42fcbf
comparison
equal deleted inserted replaced
235:a89e049d1d31 236:cf08e01f5713
74 $ally = Ikariam::Ally->insert($h_ally); 74 $ally = Ikariam::Ally->insert($h_ally);
75 } 75 }
76 } 76 }
77 } 77 }
78 78
79 our $i = new Ikariam($::server, $::user, $::pass);
80
81 if($#ARGV == 1) {
82 $i->login;
83 my @islands = $i->viewWorldMap($ARGV[0], $ARGV[1]);
84 saveIslands(@islands);
85 $i->logout;
86 } elsif($#ARGV == 0) {
87 $i->login;
88 my $island = $ARGV[0];
89 my @cities = $i->viewIsland($island);
90 saveCities($island, @cities);
91 $i->logout;
92 } elsif($#ARGV == -1) {
93 $i->login;
94 my $cities = $i->check;
95 foreach my $cityId (keys(%$cities)) {
96 printf("%s %s\n", $cities->{$cityId}->{island}->{x}, $cities->{$cityId}->{island}->{y});
97 my @islands = $i->viewWorldMap( $cities->{$cityId}->{island}->{x}, $cities->{$cityId}->{island}->{y});
98 saveIslands(@islands);
99 }
100 $i->logout;
101 } else {
102 die("Usage: $0\nUsage: $0 x y\n");
103 }
104
105 sub saveIslands { 79 sub saveIslands {
106 my @islands = @_; 80 my @islands = @_;
107 81
108 foreach my $h_island (@islands) 82 foreach my $h_island (@islands)
109 { 83 {
119 } 93 }
120 94
121 # scanning the island 95 # scanning the island
122 if($island->time le (time - 30*60*6)) 96 if($island->time le (time - 30*60*6))
123 { 97 {
124 my @cities = $i->viewIsland($h_island->{id}); 98 my @cities = $::i->viewIsland($h_island->{id});
125 saveCities($h_island->{id}, @cities); 99 saveCities($h_island->{id}, @cities);
126 100
127 $island->set('time', time); 101 $island->set('time', time);
128 } 102 }
129 $island->update(); 103 $island->update();
130 104
131 } 105 }
132 } 106 }
133 # $i->getCityInfo(); 107
108
109 local $SIG{ALRM} = sub { die "timeout\n" };
110 alarm 3;
111 our $i = new Ikariam($::server, $::user, $::pass);
112
113 if($#ARGV == 1) {
114 $i->login;
115 my @islands = $i->viewWorldMap($ARGV[0], $ARGV[1]);
116 saveIslands(@islands);
117 $i->logout;
118 } elsif($#ARGV == 0) {
119 $i->login;
120 my $island = $ARGV[0];
121 my @cities = $i->viewIsland($island);
122 saveCities($island, @cities);
123 $i->logout;
124 } elsif($#ARGV == -1) {
125 $i->login;
126 my $cities = $i->check;
127 # random
128 foreach my $cityId (keys(%$cities)) {
129 printf("%s %s\n", $cities->{$cityId}->{island}->{x}, $cities->{$cityId}->{island}->{y});
130 my @islands = $i->viewWorldMap( $cities->{$cityId}->{island}->{x}, $cities->{$cityId}->{island}->{y});
131 saveIslands(@islands);
132 }
133 $i->logout;
134 } else {
135 die("Usage: $0\nUsage: $0 x y\n");
136 }