From e13ad264bcb94a373dbf890032c7e41b533fc8b5 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Wed, 12 May 2004 19:28:04 +0000
Subject: [PATCH] Omit warning message if MANPATH is not set.

---
 scheme/httpd/rman-gateway.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/scheme/httpd/rman-gateway.scm b/scheme/httpd/rman-gateway.scm
index b32e07d..cacdbc2 100644
--- a/scheme/httpd/rman-gateway.scm
+++ b/scheme/httpd/rman-gateway.scm
@@ -23,7 +23,13 @@
 		     (unescape-uri (http-url-search url))
 		     '())))
 	  (else
-	   (let ((man-path ((infix-splitter ":") (getenv "MANPATH"))))
+	   (let ((man-path 
+		  ((infix-splitter ":") 
+		   (or (getenv "MANPATH")
+		       (begin 
+			 (format (current-error-port)
+				 "~%Warning: environment variable MANPATH is unset.~%")
+			 "")))))
 	     (lambda (url)
 	       (values man-path
 		       (unescape-uri (http-url-search url))