326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
|
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
|
-
+
+
-
+
-
-
+
+
-
+
-
+
-
+
-
+
+
+
+
+
-
+
-
+
-
+
+
|
# if tracing is enabled.
#
proc wappInt-trace {} {}
# Start up a listening socket. Arrange to invoke wappInt-new-connection
# for each inbound HTTP connection.
#
# localonly - If true, listen on 127.0.0.1 only
# port Listen on this TCP port. 0 means to select a port
# that is not currently in use
#
# browser - If true, launch a web browser pointing to the new server
proc wappInt-start-listener {port localonly browser scgi} {
if {$scgi} {
proc wappInt-start-listener {port wappmode} {
if {$wappmode=="scgi"} {
set type SCGI
set server [list wappInt-new-connection wappInt-scgi-readable]
set server [list wappInt-new-connection wappInt-scgi-readable $wappmode]
} else {
set type HTTP
set server [list wappInt-new-connection wappInt-http-readable]
set server [list wappInt-new-connection wappInt-http-readable $wappmode]
}
if {$localonly} {
if {$wappmode=="local"} {
set x [socket -server $server -myaddr 127.0.0.1 $port]
} else {
set x [socket -server $server $port]
}
set coninfo [chan configure $x -sockname]
set port [lindex $coninfo 2]
if {$browser} {
if {$wappmode=="local"} {
wappInt-start-browser http://127.0.0.1:$port/
} else {
puts "Listening for $type requests on TCP port $port"
}
}
# Start a web-browser and point it at $URL
#
proc wappInt-start-browser {url} {
global tcl_platform
if {$tcl_platform(platform)=="windows"} {
exec cmd /c start $url &
} elseif {$tcl_platform(os)=="Darwin"} {
exec open $url &
} elseif {[catch {exec xdg-open $url}]} {
exec firefox $url &
}
}
# This routine is a "socket -server" callback. The $chan, $ip, and $port
# arguments are added by the socket command.
#
# Arrange to invoke $callback when content is available on the new socket.
# Accept a new inbound HTTP request
# The $callback will process inbound HTTP or SCGI content.
#
proc wappInt-new-connection {callback chan ip port} {
proc wappInt-new-connection {callback wappmode chan ip port} {
upvar #0 wappInt-$chan W
set W [dict create REMOTE_ADDR $ip REMOTE_PORT $port .header {}]
set W [dict create REMOTE_ADDR $ip REMOTE_PORT $port WAPP_MODE $wappmode \
.header {}]
fconfigure $chan -blocking 0 -translation binary
fileevent $chan readable [list $callback $chan]
}
# Close an input channel
#
proc wappInt-close-channel {chan} {
|
721
722
723
724
725
726
727
728
729
730
731
732
733
734
|
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
|
+
|
if {[dict exists $wapp CONTENT_LENGTH]} {
set len [dict get $wapp CONTENT_LENGTH]
}
if {$len>0} {
fconfigure stdin -translation binary
dict set wapp CONTENT [read stdin $len]
}
dict set wapp WAPP_MODE cgi
fconfigure stdout -translation binary
wappInt-handle-request stdout 1
}
# Process new text received on an inbound SCGI request
#
proc wappInt-scgi-readable {chan} {
|
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
|
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
|
-
+
-
+
-
+
|
&& [string match CGI/1.* $env(GATEWAY_INTERFACE)])
|| $mode=="cgi"
} {
wappInt-handle-cgi-request
return
}
if {$mode=="scgi"} {
wappInt-start-listener $port 1 0 1
wappInt-start-listener $port scgi
} elseif {$mode=="server"} {
wappInt-start-listener $port 0 0 0
wappInt-start-listener $port server
} else {
wappInt-start-listener $port 1 1 0
wappInt-start-listener $port local
}
vwait ::forever
}
# Call this version 1.0
package provide wapp 1.0
|