]> gitweb.factorcode.org Git - factor.git/commitdiff
gopher.server: fix length of ".." link.
authorJohn Benediktsson <mrjbq7@gmail.com>
Thu, 27 Oct 2016 16:32:16 +0000 (09:32 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Thu, 27 Oct 2016 16:32:16 +0000 (09:32 -0700)
extra/gopher/server/server.factor

index a600fbd35ac6fc8f3a07f94192363c3149c39596..f99789e1b3be37f07c01677f2d706bf9e2d5cbf3 100644 (file)
@@ -56,7 +56,7 @@ TUPLE: gopher-server < threaded-server
             ".." swap parent-directory
             server serving-hostname>>
             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
         ] unless-empty
     ] bi
@@ -90,7 +90,7 @@ TUPLE: gopher-server < threaded-server
     ] if ;
 
 : 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 ;
 
 : handle-gopher-client ( server -- )