#!/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.03';
use Storable;
my $LIBDIR = $ENV{CROSSFIRE_LIBDIR}
or die "\$CROSSFIRE_LIBDIR must be set\n";
my $arch;
sub escape_html($) {
local $_ = shift;
s/([<>&])/sprintf "%d;", ord $1/ge;
$_
}
$arch = Storable::retrieve "$LIBDIR/archetypes.pst";
open my $fh, ">:utf8", "arc.xhtml"
or die "arc.xhtml: $!";
select $fh;
my $W = $meta->{width} * $T;
my $H = $meta->{height} * $T;
my (@path) = split /\//, $path;
print "",
'',
"",
"",
"Crossfire Archetypes",
"",
"",
"",
"
Crossfire Archetypes
";
print "
";
sub print_arch {
my ($a) = @_;
print "
";
for (sort keys %$a) {
next if $_ eq "_name";
my $v = escape_html $a->{$_};
print "