Hi On 2 September 2012 02:02, larry google groups <lawrencecloj...@gmail.com> wrote: > This is probably more of a socket and network question than a Clojure > question. I am learning Clojure and wanted to serve a web page through a > simple app, mostly to teach myself how to put together such an app in > Clojure. I grabbed the page on Wikipedia about mitochondria, and I compiled > my app with that bundled in as a static resource. I figured I would serve > that, it is biggest enough to offer a real test. On my local machine, > everything works great. I can run: > > lein compile > lein uberjar > java -jar serve-pages-from-memory-1.0-standalone.jar 9000 > > This gets it running on my Mac. If I then look at "localhost:9000" in a > browser, I see the whole page. Everything seems to be working perfectly. > > I have 2 servers in the Rackspace cloud, and I wanted to run this app on one > and call it from another. So I upload the app to one server and then I ssh > to the other server and I call it using wget. At this point problems start. > wget has to call the page many times. The first several times it tries to > call, it gets "Connection reset by peer". Only on the 6th try does wget get > the whole document, successfully. > > This is the output: > > wget -O tma.html --force-html http://www.tailormadeanswers.com:9000/ > --2012-09-01 19:52:54-- http://www.tailormadeanswers.com:9000/ > Resolving www.tailormadeanswers.com... 184.106.135.172 > Connecting to www.tailormadeanswers.com|184.106.135.172|:9000... connected. > HTTP request sent, awaiting response... 200 OK > Length: 515592 (504K) [text/html] > Saving to: `tma.html' > > 89% [=========================================> ] 458,878 --.-K/s > in 0.04s > > 2012-09-01 19:52:54 (11.1 MB/s) - Read error at byte 458878/515592 > (Connection reset by peer). Retrying. [...] > --2012-09-01 19:53:09-- (try: 6) http://www.tailormadeanswers.com:9000/ > Connecting to www.tailormadeanswers.com|184.106.135.172|:9000... connected. > HTTP request sent, awaiting response... 200 OK > Length: 515592 (504K) [text/html] > Saving to: `tma.html' > > 100%[===============================================>] 515,592 --.-K/s > in 0.04s > > 2012-09-01 19:53:09 (12.5 MB/s) - `tma.html' saved [515592/515592] > > > I am confused by a number of things here. The document from Wikipedia is > 500k, but wget seems to imply that it got 10.6 megs?
Where did you get that from? Wget says "Read error at byte 458878/515592" or "saved [515592/515592]", so it clearly is expecting the resource to be 515592 bytes. Since your server doesn't support getting part of the resource, wget can't ask for just the parts it hasn't got yet. It has to download the whole thing again if it fails. > I am brainstorming a few things that might be wrong here: the response is > too slow? some kind of multi-threading is needed to respond to the request > in a timely manner? I'm guessing the server closes the socket before the client has received the whole response, but I'm not sure. You do have the "flush" in there, so I'm not sure what else would be needed. > Any suggestions? > > This whole app is only 40 lines of code, and this is the important part: > > (defn serve-page [output] > (let [content-length (count @parsed-page)] > (. output println "HTTP/1.1 200 OK") > (. output println "Content-Type: text/html; charset=UTF-8") > (. output println "Connection: close") > (. output println (str "Content-Length: " content-length)) > (. output println "\r\n") > (. output println @parsed-page) > (. output flush) > (. output close))) > > (defn parse-buffer [& everything-else] > (with-open [] > (.toString (reduce #(.append %1 %2) > (StringBuffer.) (line-seq page-buffer))))) > > (defn listen-and-respond [server-socket service] > (let [client (. server-socket accept) > output (PrintWriter. (. client getOutputStream)) ] > (service output))) > > (defn run-server [port] > (let [server-socket (ServerSocket. port)] > (while (not (. server-socket isClosed)) > (listen-and-respond server-socket serve-page)))) > > (defn -main [& args] > (let [port (Integer/parseInt (first args))] > (swap! parsed-page parse-buffer) > (println "Server is starting") > (println "port: " port) > (run-server port))) > > Any suggestions about what might be wrong? -- Michael Wood <esiot...@gmail.com> -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en
