… | |
… | |
149 | warn sprintf "map-tag scan (%fs)", Event::time - $start; |
149 | warn sprintf "map-tag scan (%fs)", Event::time - $start; |
150 | Coro::Timer::sleep $SCHEDULE_INTERVAL; |
150 | Coro::Timer::sleep $SCHEDULE_INTERVAL; |
151 | } |
151 | } |
152 | }; |
152 | }; |
153 | |
153 | |
|
|
154 | sub find($) { |
|
|
155 | my ($tag) = @_; |
154 | |
156 | |
|
|
157 | my @res; |
|
|
158 | |
|
|
159 | utf8::encode $tag; |
|
|
160 | BDB::db_get $db_target, undef, $tag, my $data; |
|
|
161 | utf8::decode $data; |
|
|
162 | |
|
|
163 | for my $map ( |
|
|
164 | grep $_, |
|
|
165 | map { cf::map::find $_ } |
|
|
166 | grep s/^s//, |
|
|
167 | split /\x00/, $data |
|
|
168 | ) { |
|
|
169 | $map->load; |
|
|
170 | |
|
|
171 | warn "tag<$tag>map<$map>\n";#d# |
|
|
172 | } |
|
|
173 | |
|
|
174 | @res |
|
|
175 | } |