aboutsummaryrefslogtreecommitdiff
path: root/nx-X11/extras/rman/contrib/authried.txt
diff options
context:
space:
mode:
Diffstat (limited to 'nx-X11/extras/rman/contrib/authried.txt')
-rw-r--r--nx-X11/extras/rman/contrib/authried.txt36
1 files changed, 0 insertions, 36 deletions
diff --git a/nx-X11/extras/rman/contrib/authried.txt b/nx-X11/extras/rman/contrib/authried.txt
deleted file mode 100644
index 7bdbc4023..000000000
--- a/nx-X11/extras/rman/contrib/authried.txt
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/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.");