# wapp-hello.tcl
source wapp-fe.tcl

proc wapp-default {} {
  wapp-subst {<h1>Hello, World!</h1>\n}
}
wapp-start $argv




anticrisis@ALIEN51:~/dev$  tclsh wapp-hello.tcl  --server 8123
Listening for HTTP requests on TCP port 8123
missing value to go with key
missing value to go with key
    while executing
"dict get $W .header"
    (procedure "wappInt-parse-header" line 2)
    invoked from within
"wappInt-parse-header $chan"
    (procedure "wappInt-http-readable-unsafe" line 27)
    invoked from within
"wappInt-http-readable-unsafe {REMOTE_ADDR 127.0.0.1 REMOTE_PORT 35948 WAPP_MODE server .header {GET / HTTP/1.1
Host: localhost:8123
User-Agent: Mozill..."
    invoked from within
"catch [list wappInt-http-readable-unsafe $W $chan] msg"
missing value to go with key
missing value to go with key
    while executing
"dict get $W .header"
    (procedure "wappInt-parse-header" line 2)
    invoked from within
"wappInt-parse-header $chan"
    (procedure "wappInt-http-readable-unsafe" line 27)
    invoked from within
"wappInt-http-readable-unsafe {REMOTE_ADDR 127.0.0.1 REMOTE_PORT 35950 WAPP_MODE server .header {GET / HTTP/1.1
Host: localhost:8123
User-Agent: Mozill..."
    invoked from within
"catch [list wappInt-http-readable-unsafe $W $chan] msg"
missing value to go with key
missing value to go with key
    while executing
"dict get $W .header"
    (procedure "wappInt-parse-header" line 2)
    invoked from within
"wappInt-parse-header $chan"
    (procedure "wappInt-http-readable-unsafe" line 27)
    invoked from within
"wappInt-http-readable-unsafe {REMOTE_ADDR 127.0.0.1 REMOTE_PORT 35952 WAPP_MODE server .header {GET / HTTP/1.1
Host: localhost:8123
User-Agent: Mozill..."
    invoked from within
"catch [list wappInt-http-readable-unsafe $W $chan] msg"
missing value to go with key
missing value to go with key
    while executing
"dict get $W .header"
    (procedure "wappInt-parse-header" line 2)
    invoked from within
"wappInt-parse-header $chan"
    (procedure "wappInt-http-readable-unsafe" line 27)
    invoked from within
"wappInt-http-readable-unsafe {REMOTE_ADDR 127.0.0.1 REMOTE_PORT 35954 WAPP_MODE server .header {GET / HTTP/1.1
Host: localhost:8123
User-Agent: Mozill..."
    invoked from within
"catch [list wappInt-http-readable-unsafe $W $chan] msg"
missing value to go with key
missing value to go with key
    while executing
"dict get $W .header"
    (procedure "wappInt-parse-header" line 2)
    invoked from within
"wappInt-parse-header $chan"
    (procedure "wappInt-http-readable-unsafe" line 27)
    invoked from within
"wappInt-http-readable-unsafe {REMOTE_ADDR 127.0.0.1 REMOTE_PORT 35956 WAPP_MODE server .header {GET / HTTP/1.1
Host: localhost:8123
User-Agent: Mozill..."
    invoked from within
"catch [list wappInt-http-readable-unsafe $W $chan] msg"
missing value to go with key
missing value to go with key
    while executing
"dict get $W .header"
    (procedure "wappInt-parse-header" line 2)
    invoked from within
"wappInt-parse-header $chan"
    (procedure "wappInt-http-readable-unsafe" line 27)
    invoked from within
"wappInt-http-readable-unsafe {REMOTE_ADDR 127.0.0.1 REMOTE_PORT 35958 WAPP_MODE server .header {GET / HTTP/1.1
Host: localhost:8123
User-Agent: Mozill..."
    invoked from within
"catch [list wappInt-http-readable-unsafe $W $chan] msg"
missing value to go with key
missing value to go with key
    while executing
"dict get $W .header"
    (procedure "wappInt-parse-header" line 2)
    invoked from within
"wappInt-parse-header $chan"
    (procedure "wappInt-http-readable-unsafe" line 27)
    invoked from within
"wappInt-http-readable-unsafe {REMOTE_ADDR 127.0.0.1 REMOTE_PORT 35960 WAPP_MODE server .header {GET / HTTP/1.1
Host: localhost:8123
User-Agent: Mozill..."
    invoked from within
"catch [list wappInt-http-readable-unsafe $W $chan] msg"
missing value to go with key
missing value to go with key
    while executing
"dict get $W .header"
    (procedure "wappInt-parse-header" line 2)
    invoked from within
"wappInt-parse-header $chan"
    (procedure "wappInt-http-readable-unsafe" line 27)
    invoked from within
"wappInt-http-readable-unsafe {REMOTE_ADDR 127.0.0.1 REMOTE_PORT 35962 WAPP_MODE server .header {GET / HTTP/1.1
Host: localhost:8123
User-Agent: Mozill..."
    invoked from within
"catch [list wappInt-http-readable-unsafe $W $chan] msg"
missing value to go with key
missing value to go with key
    while executing
"dict get $W .header"
    (procedure "wappInt-parse-header" line 2)
    invoked from within
"wappInt-parse-header $chan"
    (procedure "wappInt-http-readable-unsafe" line 27)
    invoked from within
"wappInt-http-readable-unsafe {REMOTE_ADDR 127.0.0.1 REMOTE_PORT 35964 WAPP_MODE server .header {GET / HTTP/1.1
Host: localhost:8123
User-Agent: Mozill..."
    invoked from within
"catch [list wappInt-http-readable-unsafe $W $chan] msg"
missing value to go with key
missing value to go with key
    while executing
"dict get $W .header"
    (procedure "wappInt-parse-header" line 2)
    invoked from within
"wappInt-parse-header $chan"
    (procedure "wappInt-http-readable-unsafe" line 27)
    invoked from within
"wappInt-http-readable-unsafe {REMOTE_ADDR 127.0.0.1 REMOTE_PORT 35966 WAPP_MODE server .header {GET / HTTP/1.1
Host: localhost:8123
User-Agent: Mozill..."
    invoked from within
"catch [list wappInt-http-readable-unsafe $W $chan] msg"