 |
|
|
|
||||
|
|||||
|
|
|||||
HTTP servers, creating |
|||||
This program implements a simple HTTP file server. It can be used with any web browser (including Lynx) . The server sends to the browser the contents of a named file, in an HTML or other format. The server also creates a log file containing the date, time, and IP address of each visit, as well as some details about which file was requested.
The program creates a TCP service on a given port, which the server uses to wait for an HTTP request. Once the server receives a request, the client's IP address is recorded in the log file ("simpserv.log"). The server then checks the requested file. If the file contains the shutdown command, the server terminates and sends a message to the browser indicating that the server has been shut down.
If the file does not contain the shutdown command, the server checks for the requested file. If no such file exists, an error message is recorded in the log file, and the response to the client is a "404 File Not Found" error message. If the file is found, the contents are loaded into the entity-body of the response, and then sent to the client. This transaction is now complete, and the server waits for the next one.
; Copyright, (c) 1998 by OmniMark Technologies Corporation
; All Rights Reserved
;
; This example illustrates the OmniMark implementation for a simple
; HTTP server. All file requests to the server are recorded in a ; log file. The server configuration,
; service port, log file name, file root dir and shutdown command
; can be specified on the command line.
; ex. omnimark -s simpserv.xom -c SvcPort 1080 -d RootDir "/http/files"
;
; OmniMark libraries: The HTTP library makes use of both the I/O
; Protocol library and the TCP library, so both must be included in
; the order they appear here.
declare function-library "omioprot"
include "omioprot.xin"
declare function-library "omtcp"
include "omtcp.xin"
include "omhttp.xin"
; macro for message display
macro DisplayLog is
put (#ERROR & OutFile) DATE "=Y/=M/=D =H:=m:=s " ||
macro-end
; server config - alternate values can be specified on command line
; if desired.
global integer SvcPort initial {80} ; service port number
global stream RootDir initial {"."} ; WWW root file dir
global stream ExitCmd initial {"SHUTDOWN"} ; request to stop server
global stream LogFile initial {"simpserv.log"} ; log file
; other global variables
global TCPService this-service; identifies the TCP service
global stream PathSep initial {mhttp_unixdirdelim}; refers to ; macros in omhttp.xin that specify the path delimiters for various ; platforms
global stream OutFile; creates the stream that will write to the log file
process
; start recording
; attaches the
reopen OutFile as file LogFile
; initialize the service
set this-service to TCPServiceOpen at SvcPort
DisplayLog "Server started on port %d(SvcPort)%n"
; set the path separator for the platfom. The default platform is UNIX. This action will determine the platform that is being run and choose the appropriate path separator.
set PathSep to mhttp_dosdirdelim
when #PLATFORM-INFO matches ("MS-DOS"|"OS2"|"Windows")
; loop for request: Sets the service to await a request.
repeat
; local variables
local HttpRequest Request; creates the request shelf
local HttpResponse Response; creates the response shelf
local TCPConnection this-connection
local switch Continue initial {true}
; get a request
HttpServiceAwaitRequest
this-service receive Request connection this-connection
DisplayLog TCPConnectionGetPeerIP this-connection || "%n"
; check the requested file
do scan Request {"path"}
; if the file is the shutdown command, this will shut down the server
match [mhttp_dirdelim] ul(ExitCmd)
set Response {"entity-body"} to
"<html><body><h1>Server Shutdown</h1></body></html>"
set Continue to false
match [\ "#"]*=> FileName "#"? any*=>FilePos
; sets the path separator to the correct one for the platform in use
local stream PlatformFile
open PlatformFile as buffer
using output as PlatformFile
repeat scan RootDir||FileName
match [\mhttp_httpdirdelim]+=>nondelim
output nondelim
match mhttp_httpdirdelim
output PathSep
again
close PlatformFile
DisplayLog "Request for file %"%g(PlatformFile)%"%n"
; check for the file existence
do when file PlatformFile exists
; if the file exists, put its contents into the HTTP response shelf and write to the log that this has been done
DisplayLog "Sending file %"%g(PlatformFile)%"%n"
set Response {"entity-body"} to file PlatformFile
else
; if the file is not found, note this in the log and place an error report on the HTTP response shelf.
DisplayLog "File not found%n"
set Response {"status-code"} to "404"
set Response {"reason-phrase"} to "File Not Found"
set Response {"entity-body"} to
"<html><body><h1>File not found</h1></body></html>"
done
done
; send the response
HttpConnectionSendResponse this-connection send Response
; exit if request
exit when not Continue
again
DisplayLog "Server stopped%n"
close OutFile
This sample program implements a simple HTTP server that uses cookies to interact with the client browser. When the sample program is run, an OmniMark program records hits on the server machine, while passing cookies to the client. The OmniMark program records the date, time, and the client's IP address for each visit. The client will see a dynamically created HTML page displaying an HTTP header, with repeated hits incrementing the "cookies-visitcount" field.
The sample program creates a TCP service on a given port, which the server uses to wait for an HTTP request. When the server has received a request, the client's IP address and the date will be recorded in the OmniMark program. The sample program first checks the request for the shutdown command. If no shutdown command is received, the server generates an HTTP response that sends a dynamically created HTML page to the client. The cookie counter will be sent with the response, and will increment each time the page is reloaded.
If the client sends a shutdown command, the server will report a shutdown message to both the OmniMark program and the client, then shut down. This will end the TCP service and disconnect the server.
; Sample OmniMark implementation of an HTTP server that
; communicates
; with the client browser using cookies. The client makes the
; request to the server. If no user cookie is specified, the server
; generates a new ID for the user and transfers the cookie back to
; the user. If the client already has a user-id cookie, a visit-count
; cookie is incremented and returned to the client. The entire client
; request is returned for display on the client browser for testing
; and verification. The server configuration can be specified
; on the command line.
; sample command line:
; omnimark -s cookserv.xom -i ../../xin/ -x ../../lib -c svcport 1080 -d ExitCmd "^QUIT^"
; To connect to the server, the URL entered in the browser should be "http://<address>:<port number>
process
; OmniMark libraries - full path specifications must be included on the command line
declare function-library "omioprot"
include "omioprot.xin"
declare function-library "omtcp"
include "omtcp.xin"
declare function-library "omutil"
include "omutil.xin"
include "omhttp.xin"
include "omdate.xin"
; macro for message display - sets the date and time an entry is made in the message log
macro DisplayLog is
put (#ERROR & OutFile) DATE "=Y/=M/=D =H:=m:=s " ||
macro-end
; server configuration - specify on command line
global integer SvcPort initial {80} ; service port number
global stream RootDir initial {"."} ; WWW root file dir
global stream ExitCmd initial {"SHUTDOWN"} ; request to stop server
global stream LogFile initial {"cookserv.log"} ; log file
; other global variables
global TCPService this-service
global stream PathSep initial {mhttp_unixdirdelim}
global stream OutFile
; request handling routine
; the function reads the contents of the request shelf into Resp
define function RequestProcess
read-only stream Req
into modifiable stream Resp
as
; local variables
local stream Cookies variable
local integer UserID
local integer VisitCount
local stream Expires
; displays the contents of the request and response
; puts the output onto the Response shelf's "entity-body" item
open Resp {"entity-body"} as buffer
using output as Resp {"entity-body"}
do
output "<html><head><title>cookserv.xom</title></head><body>"
output "<h1>HTTP Request</h1>"
repeat over Req
; examine each item on the Request shelf
output "<br>" || key of Req || " = %g(Req)"
again
output "<br></body></html>"
done
close Resp {"entity-body"}
; get the request cookies
HttpObjectGetCookieValues Req into Cookies
do when Cookies has key "userid"
set UserID to Cookies {"userid"}
else
set UserID to UTIL_UniformRand(1,100)
done
do when Cookies has key "visitcount"
set VisitCount to Cookies {"visitcount"} + 1
else
set VisitCount to 1
done
set Expires to ymdhms-to-arpadate ( add-to-ymdhms now-as-ymdhms months 1 )
; set some cookies
HttpObjectSetCookieValue Resp for 'UserID' to "%d(UserID)"
HttpObjectSetCookieAttribute Resp
for 'UserID' attribute 'Expires' to Expires
HttpObjectSetCookieAttribute Resp
for 'UserID' attribute 'Path' to '/'
HttpObjectSetCookieAttribute Resp
for 'UserID' attribute 'Version' to '1'
HttpObjectSetCookieValue Resp for 'VisitCount' to "%d(VisitCount)"
HttpObjectSetCookieAttribute Resp
for 'VisitCount' attribute 'Expires' to Expires
HttpObjectSetCookieAttribute Resp
for 'VisitCount' attribute 'Path' to '/'
HttpObjectSetCookieAttribute Resp
for 'VisitCount' attribute 'Version' to '1'
;return
process
; display version
put #ERROR HTTPLibraryVersion || "%n"
; start recording
reopen OutFile as file LogFile
; initialize the service
set this-service to TCPServiceOpen at SvcPort
DisplayLog "Server started on port %d(SvcPort)%n"
; set the path separator for the platform
set PathSep to mhttp_dosdirdelim
when #PLATFORM-INFO matches ("MS-DOS"|"OS2"|"Windows")
; loop for request
repeat
; local variables
: HttpRequest and HttpResponse are HTTP shelves defined in the omhttp.xin file
local HttpRequest Request
local HttpResponse Response
local TCPConnection this-connection
local switch Continue initial {true}
; get a request
HttpServiceAwaitRequest
this-service receive Request connection this-connection
DisplayLog (TCPConnectionGetPeerIP this-connection) || "%n"
; check the requested file
do when Request {"path"} matches ([mhttp_dirdelim] ul(ExitCmd))
set Response {"entity-body"} to
"<html><head></head><body><h1>Server shutdown</h1></body></html>"
set Continue to false
else
RequestProcess Request into Response
done
; send the response
HttpConnectionSendResponse this-connection send Response
; exit if request
exit when not Continue
again
DisplayLog "Server stopped%n"
close OutFile
Copyright © Stilo International plc, 1988-2010.
