#!/opt/bin/perl # cfarch2html - convert crossfire archetypes to html # 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 # 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.052'; 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; sub print_arch { my ($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 "

"; } for my $name (sort keys %$arch) { open my $fh, ">:utf8", "a/$name.xhtml" or die "a/$name.xhtml: $!"; select $fh; print "", '', "", "", "Crossfire Archetype '$name'", "", "", "", "

Crossfire Archetype '$name'

"; print_arch $arch->{$name}; print "", ""; close $fh; #system "gzip", "-7f", "arc.xhtml"; }