HTTPServer

Syntax

HTTPServer (webproc,port[,workingmessage {Default non-zero for visible; zero for invisible}]) Returns status

Description

Note: The flag is set according to whether Omnis was able to make a call to this external command.

This Web command is multi-threaded, allowing another thread to execute in the multi-threaded server while it runs. Note that the same socket cannot safely be used concurrently by more than one thread.

HTTPServer invokes a listening socket on a specified port, to receive incoming HTTP requests. This command optionally shows an Omnis working message with the count of accepted connections. HTTPServer calls a user-specified Omnis method each time a new connection arrives. The user function receives the socket number for the new HTTP connection.

WebProc is an Omnis Character field containing the name of the Omnis method to be called when a connection arrives. The method receives one parameter, the number of the socket for the new HTTP connection. For example, MYLIBRARY.MYCODE/MYPROC.

You may read and write to the parameter socket with HTTPRead, HTTPSend, or HTTPHeader commands or a TCP equivalent ( TCPSend; for example).

Port is an Omnis Integer field that is optionally used to indicate the port number on which HTTPServer listens for connections. If omitted, the port number defaults to 80.

Caution: You must close the socket with HTTPClose before quitting the Omnis method.

The command returns an integer status, which is less than zero if an error occurs. Possible error codes are listed in the Web Command Error Codes Appendix.

Stopping HTTPServer

Once started, HTTPServer runs indefinitely until it is stopped. There are three ways to stop HTTPServer:

1. Press the Cancel button on the working message displayed by the command.

2. Press the break key sequence (Ctrl-Break/Ctrl-C/Cmnd-period).

3. Set the Omnis flag to false before returning from the WebProc method. Obviously, you need to make sure the flag is true before returning, if you wish to process further connections

Example

# Listen for incoming http requests on port 6001, call the
# method $newconnection in the current instance when a 
# connection arrives. 
HTTPServer ('$newconnection',6001) Returns lStatus