syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Switch to a more neutral webserver for fetchurl.rkt

This commit is contained in:
Tony Garnock-Jones 2016-07-17 12:08:59 -04:00
parent e165972a03
commit e0f3650989
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/netstack/fetchurl.rkt
View File

@ -12,14 +12,14 @@
(let () (let ()
(define local-handle (tcp-handle 'httpclient)) (define local-handle (tcp-handle 'httpclient))
(define remote-handle (tcp-address "129.10.115.92" 80)) (define remote-handle (tcp-address "81.4.107.66" 80))
(actor (react (actor (react
(assert (advertise (tcp-channel local-handle remote-handle _))) (assert (advertise (tcp-channel local-handle remote-handle _)))
(on (asserted (advertise (tcp-channel remote-handle local-handle _))) (on (asserted (advertise (tcp-channel remote-handle local-handle _)))
(send! (tcp-channel local-handle (send! (tcp-channel local-handle
remote-handle remote-handle
#"GET / HTTP/1.0\r\nHost: stockholm.ccs.neu.edu\r\n\r\n"))) #"GET / HTTP/1.0\r\nHost: leastfixedpoint.com\r\n\r\n")))
(stop-when (retracted (advertise (tcp-channel remote-handle local-handle _))) (stop-when (retracted (advertise (tcp-channel remote-handle local-handle _)))
(printf "URL fetcher exiting.\n")) (printf "URL fetcher exiting.\n"))
(on (message (tcp-channel remote-handle local-handle $bs)) (on (message (tcp-channel remote-handle local-handle $bs))