Anubis / Xlib

Commit 99518bb680fb7664f00851c4b40aa8ac924cff44

Authored by yekolia
1 parent fc787ae1

New: 

- Function 'dump_http_headers': it now supports a prefix (as second param) to be displayed as line prefix such as "\t".

Bug fixes:
 - Function 'dump_http_info': IP address was displayed as Word32. Now, it's displayed as IP address string : call of 'ip_addr_to_string'.
Showing 1 changed file with 4 additions and 3 deletions   Show diff stats
Inline Side-by-side
calexium_lib/web/CXM_web_dump.anubis
  Show/Hide comments   View file @99518bb
@@ -36,12 +36,13 @@ public define String @@ -36,12 +36,13 @@ public define String
36 dump_http_headers 36 dump_http_headers
37 ( 37 (
38 List(HTTP_header) l, 38 List(HTTP_header) l,
  39 + String prefix
39 ) 40 )
40 = 41 =
41 if l is 42 if l is
42 { 43 {
43 [ ] then "", // no need to add \n => previous call has made it 44 [ ] then "", // no need to add \n => previous call has made it
44 - [h . t] then "`\t" + h.name + " : " + h.value + "\n" + dump_http_headers(t) 45 + [h . t] then prefix + h.name + " : " + h.value + "\n" + dump_http_headers(t, prefix)
45 } 46 }
46 . 47 .
47 48
@@ -60,10 +61,10 @@ public define String @@ -60,10 +61,10 @@ public define String
60 Bool is_https, 61 Bool is_https,
61 One -> String generate_trust_ticket // may be used against denial of 62 One -> String generate_trust_ticket // may be used against denial of
62 */ 63 */
63 - "IP Address : " + http_info.ip_address + "\n" 64 + "IP Address : " + ip_addr_to_string(http_info.ip_address) + "\n"
64 + "Hostname : " + http_info.hostname + "\n" 65 + "Hostname : " + http_info.hostname + "\n"
65 + "URI : " + http_info.uri + "\n" 66 + "URI : " + http_info.uri + "\n"
66 - + "HTTP Headers : " + dump_http_headers(http_info.http_headers) // no need to add \n => dump_http_headers does it 67 + + "HTTP Headers : \n" + dump_http_headers(http_info.http_headers,"\t") // no need to add \n => dump_http_headers does it
67 + "Is HTTPS : " + to_String(http_info.is_https) + "\n" 68 + "Is HTTPS : " + to_String(http_info.is_https) + "\n"
68 . 69 .
69 70