steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gopher.server: fix length of ".." link.

char-rename
John Benediktsson 2016-10-27 09:32:16 -07:00
parent 924880cb50
commit 7fb7eae02b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/gopher/server/server.factor
View File

@ -56,7 +56,7 @@ TUPLE: gopher-server < threaded-server
".." swap parent-directory ".." swap parent-directory
server serving-hostname>> server serving-hostname>>
server insecure>> server insecure>>
"1%-67s\t%s\t%s\t%d\r\n" sprintf "1%-69s\t%s\t%s\t%d\r\n" sprintf
utf8 encode write utf8 encode write
] unless-empty ] unless-empty
] bi ] bi
@ -90,7 +90,7 @@ TUPLE: gopher-server < threaded-server
] if ; ] if ;
: read-gopher-path ( -- path ) : read-gopher-path ( -- path )
readln dup [ "\t\r\n" member? ] find drop [ head ] when* readln dup [ "\t\r\n" member? ] find drop [ head ] when*
trim-tail-separators ; trim-tail-separators ;
: handle-gopher-client ( server -- ) : handle-gopher-client ( server -- )