Respect RFC in regards to fields number - clic - Clic is an command line interactive client for gopher written in Common LISP
HTML git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
DIR commit 4878ed433802ca7d743d3976987c94be4561b6a6
DIR parent ce069ce71e3dfd569110f0596f74d2693afb7c74
HTML Author: Solene Rapenne <solene@perso.pw>
Date: Mon, 11 Mar 2019 14:22:01 +0100
Respect RFC in regards to fields number
Diffstat:
M clic.lisp | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
---
DIR diff --git a/clic.lisp b/clic.lisp
@@ -144,6 +144,7 @@
sock
:external-format '(:utf-8 :eol-style :lf)
:unwrap-stream-p t
+ ;;:verify nil
:hostname host)))
;; store in metadata that we are using TLS
(setf (location-tls (car *history*)) t)
@@ -184,7 +185,7 @@
(field (split (subseq line 1) #\Tab)))
;; if split worked
- (when (= (length field) 4)
+ (when (>= (length field) 4)
(let ((line-number (+ 1 (hash-table-count *links*)))
(text (car field))
(uri (cadr field))