File: lewis.pl

package info (click to toggle)
rman 3.2-10
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,296 kB
  • sloc: ansic: 3,607; perl: 451; sh: 334; makefile: 77
file content (17 lines) | stat: -rw-r--r-- 350 bytes parent folder | download | duplicates (17) 
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";