[ViewVC] Diff of: cvs/cfmaps/cfmapidx

Comparing cfmaps/cfmapidx (file contents):
Revision 1.12 by root, Thu Oct 22 08:19:16 2009 UTC vs.
Revision 1.13 by root, Thu Oct 22 09:09:58 2009 UTC

 use Deliantra;
 use Deliantra::Map;
 use Fcntl;
-use SDBM_File;
+use GDBM_File;
 sub escape_html($) {
    local $_ = shift;
    s/([<>&])/sprintf "&#%d;", ord $1/ge;
    $_
 }
 sub search {
    my (@kw) = @_;
-   tie %idx, SDBM_File, ".index.dat", O_RDONLY, 0
+   tie %idx, GDBM_File, ".index.dat", O_RDONLY, 0
       or die ".index.dat: $!";
    my $cnt;
    my %res;
    my @found;
 }
 if ($ARGV[0] eq "-a") {
    shift;
-   tie %idx, SDBM_File, ".index.dat~", O_RDWR|O_CREAT, 0644
+   tie %idx, GDBM_File, ".index.dat~", O_RDWR|O_CREAT, 0644
       or die ".index.dat~: $!";
    my %idx2;
    for my $path (@ARGV) {
       (my $base = $path) =~ s/\.map$//;
       my $docnum = pack "n", ++$idx{Vdocnum};
       $idx{"D$docnum"} = $base;
-      my $meta = Deliantra::Map->new_from_file ("$base.map");
+      my $meta = eval { Deliantra::Map->new_from_file ("$base.map") }
+         or next;
       for my $x (0 .. $meta->{width} - 1) {
          for my $y (0 .. $meta->{height} - 1) {
             for my $a (@{ $meta->{map}[$x][$y] }) {
+               delete $a->{elevation};
                for my $v (values %$a) {
                   $v = lc $v;
                   $v =~ y/a-zA-Z0-9_\-.\// /c;
                   for (split /\s+/, $v) {
                      $idx2{$_} .= $docnum;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines