Imported nx-X11-3.1.0-1.tar.gznx-X11/3.1.0-1

Summary: Imported nx-X11-3.1.0-1.tar.gz
Keywords:

Imported nx-X11-3.1.0-1.tar.gz
into Git repository

1 files changed, 36 insertions, 0 deletions

diff --git a/nx-X11/extras/rman/contrib/authried.txt b/nx-X11/extras/rman/contrib/authried.txt
new file mode 100644
index 000000000..7bdbc4023
--- /dev/null
+++ b/nx-X11/extras/rman/contrib/authried.txt
@@ -0,0 +1,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.");