--- cfmaps/cfmap2html	2007/06/21 01:11:44	1.28
+++ cfmaps/cfmap2html	2007/06/21 12:30:10	1.29
@@ -38,9 +38,7 @@
 #   print STDERR "$path\n";
 
    if (!-e "$base.png"
-       || !-e "$base.pst"
-       || -M "$base.pst" > -M $path
-       || -M "$base.png" > -M $path) {
+       || -M "$base.png" > -M "$base.map") {
       # regenerate png and metainfo
       push @cfmap2png, $path;
    };
@@ -52,12 +50,12 @@
 for my $path (@ARGV) {
    (my $base = $path) =~ s/\.map//;
    if (!-e "$base.xhtml"
-       || -M "$base.xhtml" > -M "$base.pst") {
+       || -M "$base.xhtml" > -M "$base.map") {
 
       Crossfire::load_archetypes
          unless %ARCH;
 
-      my $meta = Storable::retrieve "$base.pst";
+      my $meta = read_arch "$base.map";
 
       open my $fh, ">:utf8", "$base.xhtml"
          or die "$base.xhtml: $!";