# Minimal.tcl - minimal server lappend ::auto_path [pwd] [file dirname [info script]] package require H package require File package require Direct set port 8080 variable {*}$argv File create root root [file dirname [file normalize [info script]]] Direct create Dispatcher { method /root {r} { return [root do $r] } method / {r} { return [H Ok $r content-type text/html {

This is a website

}] } method /favicon.ico {r} { return [H NotFound $r] } } set ::listener [H listen dispatch {Dispatcher do} $::port] ::vwait forever