121 |
|
|
122 |
;; Nobody else handles iso8601 correctly, lets do it ourselves. |
;; Nobody else handles iso8601 correctly, lets do it ourselves. |
123 |
(when (string-match date-re date-string re-start) |
(when (string-match date-re date-string re-start) |
124 |
(setq year (string-to-int (match-string 1 date-string)) |
(setq year (string-to-number (match-string 1 date-string)) |
125 |
month (string-to-int (match-string 2 date-string)) |
month (string-to-number (match-string 2 date-string)) |
126 |
day (string-to-int (match-string 3 date-string)) |
day (string-to-number (match-string 3 date-string)) |
127 |
re-start (match-end 0)) |
re-start (match-end 0)) |
128 |
(when (string-match time-re date-string re-start) |
(when (string-match time-re date-string re-start) |
129 |
(setq hour (string-to-int (match-string 1 date-string)) |
(setq hour (string-to-number (match-string 1 date-string)) |
130 |
minute (string-to-int (match-string 2 date-string)) |
minute (string-to-number (match-string 2 date-string)) |
131 |
seconds (string-to-int (match-string 3 date-string)) |
seconds (string-to-number (match-string 3 date-string)) |
132 |
fractional-seconds (string-to-int (or |
fractional-seconds (string-to-number (or |
133 |
(match-string 4 date-string) |
(match-string 4 date-string) |
134 |
"0")) |
"0")) |
135 |
re-start (match-end 0)) |
re-start (match-end 0)) |
136 |
(when (string-match tz-re date-string re-start) |
(when (string-match tz-re date-string re-start) |
137 |
(setq tz (match-string 1 date-string))) |
(setq tz (match-string 1 date-string))) |
149 |
time)) |
time)) |
150 |
|
|
151 |
(defun url-dav-process-boolean-property (node) |
(defun url-dav-process-boolean-property (node) |
152 |
(/= 0 (string-to-int (url-dav-node-text node)))) |
(/= 0 (string-to-number (url-dav-node-text node)))) |
153 |
|
|
154 |
(defun url-dav-process-uri-property (node) |
(defun url-dav-process-uri-property (node) |
155 |
;; Returns a parsed representation of the URL... |
;; Returns a parsed representation of the URL... |
318 |
;; only care about the numeric status code. |
;; only care about the numeric status code. |
319 |
(let ((status (url-dav-node-text node))) |
(let ((status (url-dav-node-text node))) |
320 |
(if (string-match "\\`[ \r\t\n]*HTTP/[0-9.]+ \\([0-9]+\\)" status) |
(if (string-match "\\`[ \r\t\n]*HTTP/[0-9.]+ \\([0-9]+\\)" status) |
321 |
(string-to-int (match-string 1 status)) |
(string-to-number (match-string 1 status)) |
322 |
500))) |
500))) |
323 |
|
|
324 |
(defun url-dav-process-DAV:propstat (node) |
(defun url-dav-process-DAV:propstat (node) |