--- cfmaps/cfarch2html 2005/11/18 12:04:12 1.1 +++ cfmaps/cfarch2html 2005/12/09 10:57:23 1.12 @@ -1,12 +1,29 @@ #!/opt/bin/perl +# cfarch2html - convert crossfire archetypes to html +# Copyright (C) 2005 Marc Lehmann +# +# CFARCH2HTML is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# 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 +# 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($) { @@ -17,33 +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 "", - "", - "", - "archetypes", - "", - "", - ""; - -print ""; +system "rm", -rf => "a"; +mkdir "a", 0777; sub print_arch { my ($a) = @_; @@ -57,9 +49,9 @@ print "more =>\n"; print_arch ($a->{more}); } elsif ($_ eq "other_arch") { - print "$_ => $v\n"; + print "$_ => $v\n"; } elsif ($_ eq "msg" || $_ eq "lore") { - print "

$v

"; + print "$_ =>

$v

"; } else { print "$_ => $v\n"; } @@ -67,27 +59,31 @@ } print ""; } + for my $name (sort keys %$arch) { - print ""; -} + open my $fh, ">:utf8", "a/$name.xhtml" + or die "a/$name.xhtml: $!"; -print "
$name"; - print_arch $arch->{$name}; - print "

created by cfarch2html version $VERSION

", - ""; + select $fh; -close $fh; + print "", + '', + "", + "", + "Crossfire Archetype '$name'", + "", + "", + "", + "

Crossfire Archetype '$name'

"; -system "gzip", "-7f", "archetypes.html"; -__END__ + print_arch $arch->{$name}; - print_archs $as; - print ""; - } - print ""; - } - print ""; -} + print "

created by cfarch2html version $VERSION

", + ""; + + close $fh; + #system "gzip", "-7f", "arc.xhtml"; } +