Skip to content

N
nx-libs
Switch branch/tag
Find file
BlameHistoryPermalink
lewis.pl 350 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 
#!/usr/bin/perl

# Syntax: man2html <topic> <section>

# Print out a content-type for HTTP/1.0 compatibility
print "Content-type: text/html\n\n";

if( $ENV{'REQUEST_METHOD'} eq "GET" )
{
   $buffer=$ENV{'QUERY_STRING'} ;
   @ARGV = split(/&/,$buffer) ;
}

@manpage = `man @ARGV[1] @ARGV[0] | rman -f html -n @ARGV[0] -s
@ARGV[1]`;

print "@manpage";