#!/opt/bin/perl # cfarch2html - convert deliantra archetypes to html # Copyright (C) 2005,2007,2008 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 = '2.002'; use Deliantra; use Storable; sub escape_html($) { local $_ = shift; s/([<>&])/sprintf "&#%d;", ord $1/ge; $_ } 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 "

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

Deliantra Archetype '$name'

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