--- deliantra/server/ext/map-tags.ext	2007/09/10 18:30:30	1.1
+++ deliantra/server/ext/map-tags.ext	2007/09/11 13:27:53	1.2
@@ -151,4 +151,25 @@
    }
 };
 
+sub find($) {
+   my ($tag) = @_;
 
+   my @res;
+
+   utf8::encode $tag;
+   BDB::db_get $db_target, undef, $tag, my $data;
+   utf8::decode $data;
+
+   for my $map (
+      grep $_,
+      map { cf::map::find $_ }
+      grep s/^s//,
+      split /\x00/, $data
+   ) {
+      $map->load;
+
+      warn "tag<$tag>map<$map>\n";#d#
+   }
+
+   @res
+}