#       view            If specified as "1", don't return as attachment.
#       flag            If specified as "-static" emit ETag etc. headers.
# Results:
#       None.

proc HttpdReturnFile {sock file filename mimetype timestamp {view ""} {flag ""}} {
	global final$sock
puts "$file $filename"
    upvar #0 Httpd$sock data
    set version "1"; if {[info exists data(version)] && $data(version)!=""} {set version $data(version)}
    puts $sock "HTTP/1.$version 200 Data follows"
    puts $sock "Date: [HttpdDate [clock seconds]]"
    if {$view!="1"} {
        puts $sock "Content-Disposition: attachment; filename=\"$filename\""
    } else {

		puts "WSCLIENT: $cmd"; [dict get $::session($sessionid) interp] eval wtk::fromclient [list $cmd]
	}
}


proc ws_upgrade {sock data} {
	fileevent $sock readable {}
	puts "**ws $sock"
	foreach {key val} $data {
		puts "$key = $val"
	}
	
	if {[dict get $data mime,sec-websocket-version] == "13"} {
		puts "\nVersion 13 ok"
		set acceptKey  "[dict get $data mime,sec-websocket-key]258EAFA5-E914-47DA-95CA-C5AB0DC85B11"
		set acceptKey  [binary encode base64 [sha1::sha1 -bin $acceptKey]]
		set upgrade    "HTTP/1.1 101 Switching Protocols\r\n"
		append upgrade "Upgrade: websocket\r\n"
		append upgrade "Connection: Upgrade\r\n"
		append upgrade "WebSocket-Origin: http://[dict get $data mime,host]\r\n"
		append upgrade	"WebSocket-Location: ws://localhost:9001/wsctrl\r\n"
		append upgrade "Sec-WebSocket-Accept: $acceptKey"
		append upgrade "\r\n\r\n"
		puts -nonewline $upgrade
		fconfigure $sock -translation binary
		puts -nonewline $sock $upgrade
		flush $sock
		#after 1000
		fileevent $sock readable [list ws_receive junk $sock]
		puts "Socket $sock upgraded to WebSocket"
		set sessionid [lindex [split [dict get $data query] =] end]
		dict set ::session($sessionid) wsock $sock
		dict set ::sock($sock) sessionid $sessionid
		ws_send $sock "Hello From Server"
		return 1
	} else {
		puts "\nVersion != 13 no good"
		close $sock
		return 0
	}
}

# webhandler -- Respond to HTTP requests we receive
#