| 1 | #| |
|---|
| 2 | Copyright (c) 2006 Risto Laakso |
|---|
| 3 | All rights reserved. |
|---|
| 4 | |
|---|
| 5 | Redistribution and use in source and binary forms, with or without |
|---|
| 6 | modification, are permitted provided that the following conditions |
|---|
| 7 | are met: |
|---|
| 8 | 1. Redistributions of source code must retain the above copyright |
|---|
| 9 | notice, this list of conditions and the following disclaimer. |
|---|
| 10 | 2. Redistributions in binary form must reproduce the above copyright |
|---|
| 11 | notice, this list of conditions and the following disclaimer in the |
|---|
| 12 | documentation and/or other materials provided with the distribution. |
|---|
| 13 | 3. The name of the author may not be used to endorse or promote products |
|---|
| 14 | derived from this software without specific prior written permission. |
|---|
| 15 | |
|---|
| 16 | THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
|---|
| 17 | IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
|---|
| 18 | OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
|---|
| 19 | IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
|---|
| 20 | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
|---|
| 21 | NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|---|
| 22 | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|---|
| 23 | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|---|
| 24 | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
|---|
| 25 | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|---|
| 26 | |# |
|---|
| 27 | (in-package :nio-http) |
|---|
| 28 | |
|---|
| 29 | (declaim (optimize (debug 3) (speed 3) (space 0))) |
|---|
| 30 | |
|---|
| 31 | ;; A SM that speaks HTTP |
|---|
| 32 | (defclass http-state-machine (async-fd)()) |
|---|
| 33 | |
|---|
| 34 | (defmethod print-object ((sm http-state-machine) stream) |
|---|
| 35 | (format stream "#<HTTP-STATE-MACHINE ~A >" (call-next-method sm nil))) |
|---|
| 36 | |
|---|
| 37 | |
|---|
| 38 | (defmethod process-read((sm http-state-machine)) |
|---|
| 39 | (with-slots (foreign-read-buffer foreign-write-buffer) sm |
|---|
| 40 | #+nio-debug (format t "process-read got: ~A~%" (get-string foreign-read-buffer)) |
|---|
| 41 | (nio-buffer:bytebuffer-write-vector foreign-write-buffer (get-bytes (http-response :status :ok :html "<html> ock </html>"))) |
|---|
| 42 | (close-sm sm))) |
|---|
| 43 | |
|---|
| 44 | |
|---|
| 45 | (defun page-not-found (client) |
|---|
| 46 | (serve-content client :not-found "text/html" |
|---|
| 47 | (string-to-octets "<html><body><h3>404 Page not found</h3>The requested URL was not found on this server.</body></html>"))) |
|---|
| 48 | |
|---|
| 49 | |
|---|
| 50 | (defun method-not-implemented (client) |
|---|
| 51 | (serve-content client :method-not-implemented "text/html" |
|---|
| 52 | (string-to-octets "<html><body><h3>501 Method not implemented</h3>The requested method is not supported by this server.</body></html>"))) |
|---|
