picolisp

commit e014a1667299c64164acd0956f4071cb1f979987
parent fa996a99c89d0b4d498357f452a7786bd3bf9c9d
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu,  8 Sep 2011 16:16:34 +0200

Suppress '"favicon.ico" not allowed' message
Diffstat:
M
lib/http.l
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lib/http.l b/lib/http.l
@@ -1,4 +1,4 @@
-# 05aug11abu
+# 08sep11abu
 # (c) Software Lab. Alexander Burger
 
 # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked
@@ -119,7 +119,8 @@
             (find pre? (cdr *Allow) (circ *Url)) ) ) ) )
 
 (de notAllowed (X S)
-   (msg X S " [" *Adr "] not allowed") )
+   (unless (= X "favicon.ico")
+      (msg X S " [" *Adr "] not allowed") ) )
 
 # Application startup
 (de app ()