blob: c73849c58d9529fd92dfe1fa51b6bb6d1b30b6ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
proc bgerror {msg} {
puts "bgerror: $msg"
#exit 0
}
proc verbose {msg} {
puts $msg
}
if {[os.fork] == 0} {
verbose "child: waiting a bit"
# This will be our client
sleep .1
set f [socket stream localhost:9876]
fconfigure $f -buffering line
set done 0
proc onread {f} {
if {[$f gets buf] > 0} {
verbose "child: read response '$buf'"
} else {
verbose "child: read got eof"
set ::done 1
}
}
proc onwrite {f} {
verbose "child: sending request"
$f puts -nonewline "GET / HTTP/1.0\r\n\r\n"
$f writable {}
}
$f writable [list onwrite $f]
$f readable [list onread $f]
alarm 10
verbose "child: in event loop"
vwait -signal done
verbose "child: done event loop"
alarm 0
$f close
exit 0
}
verbose "parent: opening socket"
set done 0
# This will be our server
set f [socket stream.server 0.0.0.0:9876]
proc server_onread {f} {
verbose "parent: onread (server) got connection on [$f filename]"
set cfd [$f accept]
verbose "parent: onread accepted [$cfd filename]"
verbose "parent: read request '[string trim [$cfd gets]]'"
$cfd puts "Thanks for the request"
$cfd close
verbose "parent: sent response"
incr ::done
}
$f readable [list server_onread $f]
alarm 10
vwait -signal done
alarm 0
$f close
sleep .5
return "ok"
|