$name | ";
+ open my $fh, ">:utf8", "a/$name.xhtml"
+ or die "a/$name.xhtml: $!";
+
+ select $fh;
+
+ print "",
+ '',
+ "",
+ "",
+ "Crossfire Archetype '$name'"; + print_arch $arch->{$name}; - print " |
---|
created by cfarch2html version $VERSION
", - ""; + print " ", + ""; -close $fh; + close $fh; + + #system "gzip", "-7f", "arc.xhtml"; +} -system "gzip", "-7f", "arc.xhtml";