Mercurial > eagle-eye
comparison scan.pl @ 376:6ca0677a361e
refiend output format and fixed timing issue.
| author | "Rex Tsai <chihchun@kalug.linux.org.tw>" |
|---|---|
| date | Tue, 14 Apr 2009 17:02:17 +0800 |
| parents | 15c288dd7dc5 |
| children |
comparison
equal
deleted
inserted
replaced
| 375:0ec57ac68a4c | 376:6ca0677a361e |
|---|---|
| 121 } | 121 } |
| 122 } else { | 122 } else { |
| 123 $island = Ikariam::Island->insert($h_island); | 123 $island = Ikariam::Island->insert($h_island); |
| 124 } | 124 } |
| 125 | 125 |
| 126 # XXX | |
| 127 # $pm->finish; | |
| 128 # next; | |
| 129 | |
| 126 # scanning the island | 130 # scanning the island |
| 127 # 30 minutes cache. | 131 # 30 minutes cache. |
| 128 if($island->time le (time - 60*30)) { | 132 if($island->time le (time - 60*30)) { |
| 129 my $i = $self->{ikariam}->clone(); | 133 my $i = $self->{ikariam}->clone(); |
| 130 my @cities = | 134 my @cities = |