--- cfmaps/cfmap2html 2007/02/14 02:51:42 1.24
+++ cfmaps/cfmap2html 2007/02/14 02:58:58 1.25
@@ -14,7 +14,7 @@
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
-# along with gvpe; if not, write to the Free Software
+# along with cfmaps; if not, write to the Free Software
# Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
our $VERSION = '1.212';
@@ -38,6 +38,7 @@
(my $base = $path) =~ s/\.map//;
# print STDERR "$path\n";
+ warn "$base.png\n";
if (!-e "$base.png"
|| !-e "$base.pst"
|| -M "$base.pst" > -M $path
@@ -52,8 +53,8 @@
$arch ||= Storable::retrieve "$LIBDIR/archetypes.pst";
my $meta = Storable::retrieve "$base.pst";
- open my $fh, ">:utf8", "$path.xhtml"
- or die "$path.xhtml: $!";
+ open my $fh, ">:utf8", "$base.xhtml"
+ or die "$base.xhtml: $!";
select $fh;
@@ -62,7 +63,7 @@
my $W2 = $W + 600;
- my (@path) = split /\//, $path;
+ my (@path) = split /\//, $base;
print "",
'',