"Fossies" - the Fresh Open Source Software Archive

Member "rman-3.2/contrib/authried.txt" (26 Jul 2003, 911 Bytes) of package /linux/www/old/rman-3.2.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

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