--- cfmaps/cfarch2html 2005/11/20 00:58:57 1.5 +++ cfmaps/cfarch2html 2005/12/09 10:57:23 1.12 @@ -17,13 +17,13 @@ # along with gvpe; if not, write to the Free Software # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA +our $VERSION = '1.05'; + use Storable; my $LIBDIR = $ENV{CROSSFIRE_LIBDIR} or die "\$CROSSFIRE_LIBDIR must be set\n"; -our $VERSION = '1.0'; - my $arch; sub escape_html($) { @@ -34,34 +34,8 @@ $arch = Storable::retrieve "$LIBDIR/archetypes.pst"; -open my $fh, ">:utf8", "archetypes.html" - or die "archetypes.html: $!"; - -select $fh; - -my $W = $meta->{width} * $T; -my $H = $meta->{height} * $T; - -my (@path) = split /\//, $path; - -print "", - "", - "
", - "$name | ";
+ open my $fh, ">:utf8", "a/$name.xhtml"
+ or die "a/$name.xhtml: $!";
+
+ select $fh;
+
+ print "",
+ '',
+ "",
+ "",
+ "Crossfire Archetype '$name'"; + print_arch $arch->{$name}; - print " |
---|
created by cfarch2html version $VERSION
", - ""; + print " ", + ""; + + close $fh; + + #system "gzip", "-7f", "arc.xhtml"; +} -close $fh; -system "gzip", "-7f", "archetypes.html";