branch: elpa-admin
commit 776126005bccb19739a94f06f2faea338de3641d
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
(elpaa--wsl-read): Ignore 404s
* elpa-admin.el (elpaa--wsl-line-re): Catch the status.
(elpaa--wsl-read): Ignore 404s.
---
elpa-admin.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index e8c4114ec8..750c26451e 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -2066,7 +2066,7 @@ arbitrary code."
" " "HTTP/" (+ (or alnum "."))) ; Protocol
(* (not (any "\"" " ")))) ; Garbage
"\""
- " " (+ digit) ; Status code
+ " " (group (+ digit)) ; Status code
" " (or (+ digit) "-") ; Size
" \"" (* (or (not (any "\"")) "\\\"")) "\" " ; Referrer
"\"" (* (or (not (any "\"")) "\\\"")) "\"" ; User-Agent
@@ -2083,17 +2083,18 @@ arbitrary code."
(let* ((line (match-string 0))
(timestr (match-string 1))
(file (match-string 2))
+ (status (match-string 3))
(timestr
(if (string-match "/\\([^/]*\\)/\\([^/:]*\\):" timestr)
(replace-match " \\1 \\2 " t nil timestr)
(message "Unrecognized timestamp: %s" timestr)
timestr))
(time (encode-time (parse-time-string timestr))))
- (when file
+ (when (and file (not (member status '("404"))))
(let ((pkg (if (string-match
(rx bos "/"
(or "packages" "devel" "nongnu" "nongnu-devel")
- "/"
+ (+ "/")
(group (+? any))
(\?
"-" (or
