# $Id$ # Convert AUTHORS-SHORT file for use in man page and HTML documentation # after processing through pod2man and pod2html. # # Must be called via perlnoutf. use strict; print "=for html
\n\n";
print "=for man .nf\n\n";

while (<>) {
	printline();
}

print "\n=for html 
\n"; print "\n=for man .fi\n"; sub printline { my $line = shift || $_; # # Translate UTF-8 characters to the E<> escapes handled by Pod::Man # (and only those, since they're a subset of HTML entities) # $line =~ s/\xc3\x80/E/g; $line =~ s/\xc3\x81/E/g; $line =~ s/\xc3\x82/E/g; $line =~ s/\xc3\x83/E/g; $line =~ s/\xc3\x84/E/g; $line =~ s/\xc3\x85/E/g; $line =~ s/\xc3\x86/E/g; $line =~ s/\xc3\x87/E/g; $line =~ s/\xc3\x88/E/g; $line =~ s/\xc3\x89/E/g; $line =~ s/\xc3\x8a/E/g; $line =~ s/\xc3\x8b/E/g; $line =~ s/\xc3\x8c/E/g; $line =~ s/\xc3\x8d/E/g; $line =~ s/\xc3\x8e/E/g; $line =~ s/\xc3\x8f/E/g; $line =~ s/\xc3\x90/E/g; $line =~ s/\xc3\x91/E/g; $line =~ s/\xc3\x92/E/g; $line =~ s/\xc3\x93/E/g; $line =~ s/\xc3\x94/E/g; $line =~ s/\xc3\x95/E/g; $line =~ s/\xc3\x96/E/g; $line =~ s/\xc3\x98/E/g; $line =~ s/\xc3\x99/E/g; $line =~ s/\xc3\x9a/E/g; $line =~ s/\xc3\x9b/E/g; $line =~ s/\xc3\x9c/E/g; $line =~ s/\xc3\x9d/E/g; $line =~ s/\xc3\x9e/E/g; $line =~ s/\xc3\x9f/E/g; $line =~ s/\xc3\xa0/E/g; $line =~ s/\xc3\xa1/E/g; $line =~ s/\xc3\xa2/E/g; $line =~ s/\xc3\xa3/E/g; $line =~ s/\xc3\xa4/E/g; $line =~ s/\xc3\xa5/E/g; $line =~ s/\xc3\xa6/E/g; $line =~ s/\xc3\xa7/E/g; $line =~ s/\xc3\xa8/E/g; $line =~ s/\xc3\xa9/E/g; $line =~ s/\xc3\xaa/E/g; $line =~ s/\xc3\xab/E/g; $line =~ s/\xc3\xac/E/g; $line =~ s/\xc3\xad/E/g; $line =~ s/\xc3\xae/E/g; $line =~ s/\xc3\xaf/E/g; $line =~ s/\xc3\xb0/E/g; $line =~ s/\xc3\xb1/E/g; $line =~ s/\xc3\xb2/E/g; $line =~ s/\xc3\xb3/E/g; $line =~ s/\xc3\xb4/E/g; $line =~ s/\xc3\xb5/E/g; $line =~ s/\xc3\xb6/E/g; $line =~ s/\xc3\xb8/E/g; $line =~ s/\xc3\xb9/E/g; $line =~ s/\xc3\xba/E/g; $line =~ s/\xc3\xbb/E/g; $line =~ s/\xc3\xbc/E/g; $line =~ s/\xc3\xbd/E/g; $line =~ s/\xc3\xbe/E/g; $line =~ s/\xc3\xbf/E/g; print $line; }