'''Toadhttpd''' is an effort to extend the [Httpd (tcllib)] module into a fully functioning web server, in the style of [Tclhttpd]. The project actually started as version 4.0 of Tclhttpd, but it became readily apparent that the new coroutine and Tcloo based dispatch engine was completely irreconcilable with the old interpreter/procs named just so method of the old system. Rather than put out an incompatible new version, [hypnotoad] decided it was better to just roll it out as a new project.

Principle development is published as a fossil repository: https://chiselapp.com/user/hypnotoad/repository/toadhttpd/index

Toadhttpd is designed to install a complete snapshot of all of the code it depends on into a file location. In that way a production environment can support multiple version of Toadhttpd running different generations of the software.

To install an instance of Toadhttpd:

======
# Clone and upack the fossil sources
# Feel free to adjust the paths to your liking
mkdir -p ~/tcl/fossil/
fossil clone https://chiselapp.com/user/hypnotoad/repository/toadhttpd ~/tcl/fossil/toadhttpd.fos
mkdir -p ~/tcl/sandbox/toadhttpd
cd ~/tcl/sandbox/toadhttpd
fossil open ~/tcl/fossil/toadhttpd.fos

# Make a directory to host your content from
tclsh ~/tcl/sandbox/toadhttpd/make.tcl install ~/www/mysite
cd ~/www/mysite
ls
htdocs                httpd.tcl        log                modules                plugin                var
ls htdocs
hello.tml
======

To run the webserver:

======
tclsh httpd.tcl
======

If the file '''config.tcl''' is present in your directory, it will be read as a script during startup.

The default is to host the htdocs directory next to the httpd script as static content. However, like tclhttpd, you can embed template files that Tcl will perform substitutions on. The installer automatically drops in htdocs/hello.tml:

======
[my html_header {Hello World!}]
Your Server is running.
<p>
The time is now [clock format [clock seconds]]
[my html_footer]
======

You'll note the '''my''' statements in the template. The substitution is being performed inside the namespace of an httpd::reply instance. You can access information from the request via the '''my request''' method, and alter the outgoing headers via '''my reply'''. To institute a 301 redirect:

======
[my html_header {File has moved}]
The file your were looking for [my request get REQUEST_URI] has moved. You will be redirected to: 
[### Manually generate a 303 reply
set location /some/other/url
my reply set Status 303
my reply set LOCATION $location
return $location]
a moment.
<p>
The time is now [clock format [clock seconds]]
[my html_footer]
======

Sqlite based Logs and cache are accessible in the logs/ directory.

======
> ls log/
cache.sqlite        log.sqlite
> sqlite3 log/log.sqlite 
SQLite version 3.24.0 2018-06-04 19:24:41
Enter ".help" for usage hints.
sqlite> .tables
blackhole          debug              log                session          
blackhole_journal  journal            log_info           session_info     
sqlite> .schema log
CREATE TABLE log (
time  'UNIXTIME' DEFAULT (now()),
REMOTE_ADDR  'IPADDR',
REMOTE_HOST  'HOSTNAME',
REFERER  'URI',
USER_AGENT  'STRING',
HTTP_HOST  'HOSTNAME',
REQUEST_URI  'URI',
SESSION  'UUID' REFERENCES session DEFAULT(guuid()),
COOKIE  'STRING',
rowid INTEGER PRIMARY KEY AUTOINCREMENT,
uuid STRING UNIQUE
);
sqlite> select * from log;
1537370493|127.0.0.1|127.0.0.1|http://localhost:8015/|Mozilla/5.0 (Macintosh; Intel Mac OS X 10_13_6) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/12.0 Safari/605.1.15|localhost:8015|/hello.tml|||5|d71a0fb6-0208-43f5-b468-58c797b3c901
sqlite> 

======

<<categories>>clay TclOO web server