Error processing request

Parameters

CONTENT_LENGTH0
REQUEST_METHODGET
REQUEST_URI/revision/8-Line+Server?V=4
QUERY_STRINGV=4
CONTENT_TYPE
DOCUMENT_URI/revision/8-Line+Server
DOCUMENT_ROOT/var/www/nikit/nikit/nginx/../docroot
SCGI1
SERVER_PROTOCOLHTTP/1.1
HTTPSon
REMOTE_ADDR172.70.34.153
REMOTE_PORT35576
SERVER_PORT4443
SERVER_NAMEwiki.tcl-lang.org
HTTP_HOSTwiki.tcl-lang.org
HTTP_CONNECTIONKeep-Alive
HTTP_ACCEPT_ENCODINGgzip
HTTP_CF_IPCOUNTRYUS
HTTP_X_FORWARDED_FOR52.205.167.104
HTTP_CF_RAY6b89005d58fd5973-IAD
HTTP_X_FORWARDED_PROTOhttps
HTTP_CF_VISITOR{"scheme":"https"}
HTTP_USER_AGENTCCBot/2.0 (https://commoncrawl.org/faq/)
HTTP_ACCEPTtext/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
HTTP_ACCEPT_LANGUAGEen-US,en;q=0.5
HTTP_CF_CONNECTING_IP52.205.167.104
HTTP_CDN_LOOPcloudflare

Body


Error

Unknow state transition: LINE -> END

-code

1

-level

0

-errorstack

INNER {returnImm {Unknow state transition: LINE -> END} {}} CALL {my render_wikit {8-Line Server} {[jdp] - An 8 line server. Serves text files out of the current directory.

======
proc s {c a p} {
        set o [lindex [split [gets $c] " "] 1]
        puts $c [read [set f [open ".$o"]]]
        close $f
        close $c
}
set s [socket -server s 3210]
vwait forever
======

[jdp] - After spending time in the chatroom, with the help of [stu] and [suchenwi], it became a 1-line, 140-char server. (Interactive mode only, though.)

======
vw [soc -server {appl {{c a p} {puts $c [read [set f [open .[regsub {\.\.+} [lindex [split [gets $c] \ ] 1] x]]]][close $f];close $c}}} 80]
======
[RS] 2009-05-29: The [fcopy] version is still a few bytes shorter:
======
vw [soc -server {appl {{c a p} {fcopy [set f [open .[regsub {\.\.+} [lindex [split [gets $c] \ ] 1] x]]] $c;close $f;close $c}}} 80]

----
!!!!!!
%| enter categories here |%
!!!!!!} regexp2} CALL {my render {8-Line Server} {[jdp] - An 8 line server. Serves text files out of the current directory.

======
proc s {c a p} {
        set o [lindex [split [gets $c] " "] 1]
        puts $c [read [set f [open ".$o"]]]
        close $f
        close $c
}
set s [socket -server s 3210]
vwait forever
======

[jdp] - After spending time in the chatroom, with the help of [stu] and [suchenwi], it became a 1-line, 140-char server. (Interactive mode only, though.)

======
vw [soc -server {appl {{c a p} {puts $c [read [set f [open .[regsub {\.\.+} [lindex [split [gets $c] \ ] 1] x]]]][close $f];close $c}}} 80]
======
[RS] 2009-05-29: The [fcopy] version is still a few bytes shorter:
======
vw [soc -server {appl {{c a p} {fcopy [set f [open .[regsub {\.\.+} [lindex [split [gets $c] \ ] 1] x]]] $c;close $f;close $c}}} 80]

----
!!!!!!
%| enter categories here |%
!!!!!!}} CALL {my revision {8-Line Server}} CALL {::oo::Obj36896989 process revision/8-Line+Server} CALL {::oo::Obj36896987 process}

-errorcode

NONE

-errorinfo

Unknow state transition: LINE -> END
    while executing
"error $msg"
    (class "::Wiki" method "render_wikit" line 6)
    invoked from within
"my render_$default_markup $N $C $mkup_rendering_engine"
    (class "::Wiki" method "render" line 8)
    invoked from within
"my render $name $C"
    (class "::Wiki" method "revision" line 31)
    invoked from within
"my revision $page"
    (class "::Wiki" method "process" line 51)
    invoked from within
"$server process [string trim $uri /]"

-errorline

4