#!/usr/local/bin/perl
#!/usr/sbin/perl
# man.cgi (doesn't use forms)
#
# Program contributed by Maurice Cinquini <mauricec@tplrd.tpl.oz.au>.
#
#ja_JP.eucJP
#C.iso88591
#en_GB.iso88591
#en_GB.roman8
#en_US.iso88591
#en_US.roman8
#ja_JP.SJIS
#ja_JP.eucJP
#ja_JP.kana8
#C.utf8
#univ.utf8


#$man_prog = 'env LANG=ja /usr/bin/man';
$man_prog = 'env LANG=ja /usr/bin/man -P cat ';
#$man_prog = 'env LANG=ja /twics/bin/sightseer/man';
#$man_prog = 'env LANG=C.iso88591 /twics/bin/sightseer/man';

print "Content-type: text/html\n\n<ISINDEX PROMPT=\"マニュアルページ:\">\n";

if ($#ARGV < 0) {
    print "<TITLE>UNIX MAN PAGES</TITLE>\n",
          "Use the keyword search field to select a manual page.\n";
    exit;
}

$args = join(' ',@ARGV);
open(STDIN, "$man_prog $args|");
@ARGV = (
    '-sun',
    '-seealso',
    '-title', "man $args",
    '-cgiurl', 'jman.cgi?$section\L$subsection\E+$title'
#    '-cgiurl', 'jman.cgi?$section\L$subsection\E+$title'

);

#require "./man2htmlj";
require "/usr/bin/man2html";
exit;