/[mldonkey]/mldonkey/src/utils/net/http_server.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/http_server.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC revision 1.20 by spiralvoice, Tue Jul 26 21:52:03 2005 UTC
# Line 234  let parse_head sock s = Line 234  let parse_head sock s =
234        let fin_meth = String.index ans ' ' in        let fin_meth = String.index ans ' ' in
235        let meth = String.sub ans 0 fin_meth in        let meth = String.sub ans 0 fin_meth in
236        let fin_file = String.index_from ans (fin_meth + 1) ' ' in        let fin_file = String.index_from ans (fin_meth + 1) ' ' in
237        let file = String.sub ans (fin_meth+1) (fin_file-fin_meth-1) in        let file = String.sub ans (fin_meth+2) (fin_file-fin_meth-2) in
238        let version = match ans.[String.length ans - 1] with        let version = match ans.[String.length ans - 1] with
239            '0' -> HTTP1_0            '0' -> HTTP1_0
240          | '1' -> HTTP1_1          | '1' -> HTTP1_1

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26