1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#!/usr/local/bin/perl
require "common.pl";
$webmaster="webadmin\@domain";
$man_path="/usr/local/man:/usr/man:/usr/X11/man:/usr/lib/teTeX/man";
$manpage_and_section = $ENV{"QUERY_STRING"};
$rman="/usr/local/bin/rman -f HTML";
($manpage,$section)=split("[&]",$manpage_and_section);
split(":",$man_path);
foreach(@_){
$file=join("", $_, "/man", $section,"/",$manpage,".",$section);
# printf("try %s\n", $file);
if (-e $file) {
exec "echo Content-Type:text/html; echo; cat $file | $rman";
}
elsif (-e join("",$file,".gz")){
exec "echo Content-Type:text/html; echo; zcat $file | $rman";
}
$file=join("",$file,"x");
if (-e $file) {
exec "echo Content-Type:text/html; echo; cat $file | $rman";
}
elsif (-e join("",$file,".gz")){
exec "echo Content-Type:text/html; echo; zcat $file | $rman";
}
}
&return_error(500,"man2html error","could not find manual page.");
|
