blob: 116b652c24087987fec2095521c404998893bd0e (
plain)
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";
|
