--- cfmaps/cfarch2html 2005/12/09 10:57:23 1.12
+++ cfmaps/cfarch2html 2007/06/21 01:09:52 1.15
@@ -1,7 +1,7 @@
#!/opt/bin/perl
# cfarch2html - convert crossfire archetypes to html
-# Copyright (C) 2005 Marc Lehmann
+# Copyright (C) 2005,2007 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
@@ -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.05';
+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;
@@ -60,7 +54,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: $!";
@@ -76,9 +72,9 @@
"",
"Crossfire Archetype '$name'
";
- print_arch $arch->{$name};
+ print_arch $ARCH{$name};
- print "",
+ print "",
"