255 |
(if ref-url (concat |
(if ref-url (concat |
256 |
"Referer: " ref-url "\r\n")) |
"Referer: " ref-url "\r\n")) |
257 |
extra-headers |
extra-headers |
258 |
;; Any data |
;; Length of data |
259 |
(if url-request-data |
(if url-request-data |
260 |
(concat |
(concat |
261 |
"Content-length: " (number-to-string |
"Content-length: " (number-to-string |
262 |
(length url-request-data)) |
(length url-request-data)) |
263 |
"\r\n\r\n" |
"\r\n")) |
|
url-request-data)) |
|
264 |
;; End request |
;; End request |
265 |
"\r\n")) |
"\r\n" |
266 |
|
;; Any data |
267 |
|
url-request-data)) |
268 |
(url-http-debug "Request is: \n%s" request) |
(url-http-debug "Request is: \n%s" request) |
269 |
request)) |
request)) |
270 |
|
|