#!/opt/bin/perl
use Storable;
my $LIBDIR = $ENV{CROSSFIRE_LIBDIR}
or die "\$CROSSFIRE_LIBDIR must be set\n";
our $VERSION = '1.0';
my $arch;
sub escape_html($) {
local $_ = shift;
s/([<>&])/sprintf "&#%d;", ord $1/ge;
$_
}
$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 "";
sub print_arch {
my ($a) = @_;
print "";
for (sort keys %$a) {
next if $_ eq "_name";
my $v = escape_html $a->{$_};
print "- ";
if ($_ eq "more") {
print "more =>\n";
print_arch ($a->{more});
} elsif ($_ eq "other_arch") {
print "$_ => $v\n";
} elsif ($_ eq "msg" || $_ eq "lore") {
print "
$v
";
} else {
print "$_ => $v\n";
}
print " ";
}
print "
";
}
for my $name (sort keys %$arch) {
print "| $name | ";
print_arch $arch->{$name};
print " |
|---|
";
}
print "
created by cfarch2html version $VERSION
",
"";
close $fh;
system "gzip", "-7f", "archetypes.html";
__END__
print_archs $as;
print "";
}
print "";
}
print "";
}
}