--- cfmaps/cfarch2html 2007/02/14 02:33:46 1.14
+++ cfmaps/cfarch2html 2007/10/14 01:24:15 1.18
@@ -17,23 +17,17 @@
# 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.052';
+our $VERSION = '2.001';
+use Crossfire 1.0;
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";
-
system "rm", -rf => "a";
mkdir "a", 0777;
@@ -42,6 +36,7 @@
print "
";
for (sort keys %$a) {
next if $_ eq "_name";
+ next if $_ eq "_atype";
my $v = escape_html $a->{$_};
print "- ";
@@ -49,7 +44,7 @@
print "more =>\n";
print_arch ($a->{more});
} elsif ($_ eq "other_arch") {
- print "$_ => $v\n";
+ print "$_ => $v\n";
} elsif ($_ eq "msg" || $_ eq "lore") {
print "$_ =>
$v
";
} else {
@@ -60,7 +55,9 @@
print "
";
}
-for my $name (sort keys %$arch) {
+Crossfire::load_archetypes;
+
+for my $name (sort keys %ARCH) {
open my $fh, ">:utf8", "a/$name.xhtml"
or die "a/$name.xhtml: $!";
@@ -70,13 +67,13 @@
'',
"",
"",
- "Crossfire Archetype '$name'",
+ "Deliantra Archetype '$name'",
"",
"",
"",
- "Crossfire Archetype '$name'
";
+ "Deliantra Archetype '$name'
";
- print_arch $arch->{$name};
+ print_arch $ARCH{$name};
print "",
"";