Time to start having fun.
Jesse
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
c:newlisp>c:newlispnewlisp.exe httpd.lsp 80 ide
Server started listening on port: 80
Root directory: ide
Wed Aug 25 15:27:13 2004 127.0.0.1 GET /index.html HTTP/1.1
Wed Aug 25 15:27:13 2004 127.0.0.1 GET /file-frame.cgi HTTP/1.1
The system cannot find the path specified.
list or string expected in function replace : HTTPD:buffer
called from user defined function execute-file
called from user defined function process-GET-request
called from user defined function process-http-request
called from user defined function net-server-accept
called from user defined function startServer
-----
(define (HTTPD:html-error HTTPD:error-no HTTPD:error-txt)
#(set 'HTTPD:header "HTTP/1.0 200 OKrnContent-type: text/htmlrnrn")#
(set 'HTTPD:message (append "<HTML><H1>newLISP v." (string (nth
-2
(sys-info))) " HTTPD 3.7<BR>" "Error: "
(string HTTPD:error-no) " " HTTPD:error-txt "<BR></H1></HTML>"))
(set 'HTTPD:buffer (append HTTPD:header HTTPD:message))
(net-send HTTPD:connection HTTPD:buffer))