Error processing request

Parameters

Body

Error

Unknow state transition: TR -> PRE

-code

1

-level

0

-errorstack

INNER {returnImm {Unknow state transition: TR -> PRE} {}} CALL {my render_wikit {Wikit write patch} My\ \[Michael\ Heca\]\ simple\ patch\ for\ enable\ writing\ in\ \[Wikit\]\ embeded\ httpd\ server:\n\n<pre>\ndiff\ -Naur\ wikit.vfs.original/lib/app-wikit/start.tcl\ wikit.vfs/lib/app-wikit/start.tcl\n---\ wikit.vfs.original/lib/app-wikit/start.tcl\t2003-06-06\ 00:43:50.000000000\ +0200\n+++\ wikit.vfs/lib/app-wikit/start.tcl\t2003-10-28\ 22:41:31.000000000\ +0100\n@@\ -162,7\ +162,7\ @@\n\ \ \ \ \ \ \ package\ require\ Web\n\ \ \ \ \ \ \ package\ require\ wikithttpd\n\ \ \ \ \ \ \ #warning,\ POST\ not\ supported!\ read-only!\n-\ \ \ \ \ \ set\ roflag\ 1\n+\ \ \ \ \ \ #set\ roflag\ 1\n\ \n\ \ \ \ \ \ \ #set\ ::httpd::debug\ 1\n\ \ \ \ \ \ \ eval\ \[mk::get\ wdb.pages!9\ page\]\ndiff\ -Naur\ wikit.vfs.original/lib/httpd/wikithttpd.tcl\ wikit.vfs/lib/httpd/wikithttpd.tcl\n---\ wikit.vfs.original/lib/httpd/wikithttpd.tcl\t2003-06-06\ 00:43:50.000000000\ +0200\n+++\ wikit.vfs/lib/httpd/wikithttpd.tcl\t2003-10-28\ 22:43:18.000000000\ +0100\n@@\ -67,16\ +67,19\ @@\n\ \t\ \ \ \ \}\n\ \t\ \ \ \ data\ \{\n\ \t\tappend\ server(\$channel.data)\ \[read\ \$channel\]\n-\t\tif\ \{\ \$server(\$channel.contentLenght)\ >\ -1\ \}\ \{\n+\t\tif\ \{\ \$server(\$channel.contentLength)\ >\ -1\ \}\ \{\n\ \t\t\ \ \ \ if\ \{\[string\ length\ \$server(\$channel.data)\]\ >=\ \\\n-\t\t\t\ \ \ \ \$server(\$channel.contentLenght)\ \}\ \{\n+\t\t\t\ \ \ \ \$server(\$channel.contentLength)\ \}\ \{\n\ \t\t\tprocessRequestData\ \$channel\n\ \t\t\ \ \ \ \}\n\ \t\t\}\ else\ \{\n+\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ httpReturn\ \$channel\ 501\ text/plain\ \"501\ Unknown\ content\ length\"\n+\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ close\ \$channel\n+\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ cleanupChannel\ \$channel\n\ \t\t\ \ \ \ #seeing\ as\ we\ don't\ know\ how\ many\ bytes\ to\ expect\ \n\ \t\t\ \ \ \ #we\ must,\ alas,\ process\ every\ time...\n\ \t\t\ \ \ \ #note\ that\ this\ code\ is\ untested...\n-\t\t\ \ \ \ processRequestData\ \$channel\n+\t\t\ \ \ \ #processRequestData\ \$channel\n\ \t\t\}\n\ \t\ \ \ \ \}\n\ \t\}\n@@\ -107,7\ +110,7\ @@\n\ \t\n\ \tif\ \{\ \[info\ exists\ server(\$channel.ch.Content-Length)\]\ &&\ \\\n\ \t\t\ \[string\ is\ integer\ \$server(\$channel.ch.Content-Length)\]\}\ \{\n-\t\ \ \ \ set\ server(contentLength)\ \$server(\$channel.ch.Content-Length)\n+\t\ \ \ \ set\ server(\$channel.contentLength)\ \$server(\$channel.ch.Content-Length)\n\ \t\}\n\ \n\ \tlog\ \ \"\\\[\[lindex\ \[fconfigure\ \$channel\ -peername\]\ 0\]\\\]\"\ \"\$method\ \$uri\"\n@@\ -117,6\ +120,9\ @@\n\ \t\ \ \ \ \"GET\"\ \{\n\ \t\trunWikit\ \$channel\n\ \t\ \ \ \ \}\n+\ \ \ \ \ \ \ \ \ \ \ \ \"POST\"\ \{\n+\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ server(\$channel.position)\ data\n+\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \t\ \ \ \ default\ \{\n\ \t\thttpReturn\ \$channel\ 501\ text/plain\ \"501\ Method\ not\ supported\\nSorry\ wikit-httpd\ only\ supports\ GET\"\n\ \t\tclose\ \$channel\n@@\ -214,6\ +220,9\ @@\n\ \tset\ ::env(SERVER_SOFTWARE)\ \$serverSoftware\n\ \tset\ ::env(PATH_INFO)\ \$server(\$channel.uri)\n\ \tset\ ::env(PATH_TRANSLATED)\ \[file\ join\ \$documentRoot\ \$server(\$channel.uri)\]\n+\ \ \ \ \ \ \ \ if\ \{\ \$server(\$channel.contentLength)\ !=\ -1\ \}\ \{\n+\ \ \ \ \ \ \ \ \ \ \ \ set\ ::env(CONTENT_LENGTH)\ \$server(\$channel.contentLength)\n+\ \ \ \ \ \ \ \ \}\n\ \t\n\ \trename\ ::puts\ ::real_puts\n\ \trename\ ::httpd::capture_puts\ ::puts\n@@\ -239,11\ +248,6\ @@\n\ \n\ \ \ \ \ \}\n\ \n-\ \ \ \ proc\ processRequestData\ \{\ channel\ \}\ \{\n-\tvariable\ server\n-\n-\ \ \ \ \}\n-\n\ \ \ \ \ proc\ httpReturn\ \{\ channel\ code\ type\ data\ \}\ \{\n\ \tvariable\ serverSoftware\n\ \t\n@@\ -323,9\ +327,9\ @@\n\ \n\ \ \ \ \ proc\ log\ \{\ type\ text\ \}\ \{\n\ \tvariable\ debug\n-\tvariable\ server\t\ \t\ \ \ \n-\t\$server(puts)\ \"\[httpTime\]:\ \$type\ \$text\"\n-\ \ \ \ \}\n+\tvariable\ server\n+\ \ \ \ \ \ \ \ \ \ \ \ \$server(puts)\ \"\[httpTime\]:\ \$type\ \$text\"\n+\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \n\ \n\ \n@@\ -337,8\ +341,8\ @@\n\ \t#arguments,\ reading\ stdin:\ \[read\ stdin\ length\]\n\ \t#or\ some\ other\ fd:\ \[read\ fd\]\n\ \n-\tif\ \{\ \[llength\ \$args\]\ ==\ 3\ \}\ \{\n-\t\ \ \ \ return\ \$server(cgidata)\n+\tif\ \{\ \[llength\ \$args\]\ ==\ 2\ &&\ \[lindex\ \$args\ 0\]\ ==\ \"stdin\"\ \}\ \{\n+\t\ \ \ \ return\ \$::httpd::server(cgidata)\n\ \t\}\ else\ \{\n\ \t\ \ \ \ eval\ real_read\ \$args\n\ \t\}\ndiff\ -Naur\ wikit.vfs.original/lib/wikit/web.tcl\ wikit.vfs/lib/wikit/web.tcl\n---\ wikit.vfs.original/lib/wikit/web.tcl\t2003-10-15\ 02:35:41.000000000\ +0200\n+++\ wikit.vfs/lib/wikit/web.tcl\t2003-10-28\ 19:53:02.000000000\ +0100\n@@\ -102,6\ +102,13\ @@\n\ \n\ \ \ set\ ::script_name\ \$::env(SCRIPT_NAME)\n\ \n+\ \ #\ fix\ embedded\ wikithttpd\ server\ script\ name\n+\ \ if\ \{\ \[string\ first\ \"WikitHttpd\"\ \$env(SERVER_SOFTWARE)\]\ >\ -1\ \}\ \{\n+\ \ \ \ \ \ if\ \{\ \$::script_name\ ==\ \"/\"\ \}\ \{\n+\ \ \ \ \ \ \ \ \ \ set\ ::script_name\ \"\"\n+\ \ \ \ \ \ \}\n+\ \ \}\n+\n\ \ \ #\ this\ code\ added\ 1-5-2001\ to\ handle\ ErrorDocument\ redirection/caching\n\ \ \ if\ \{\[info\ exists\ ::env(REDIRECT_URL)\]\}\ \{\n</pre> regexp2} CALL {my render {Wikit write patch} My\ \[Michael\ Heca\]\ simple\ patch\ for\ enable\ writing\ in\ \[Wikit\]\ embeded\ httpd\ server:\n\n<pre>\ndiff\ -Naur\ wikit.vfs.original/lib/app-wikit/start.tcl\ wikit.vfs/lib/app-wikit/start.tcl\n---\ wikit.vfs.original/lib/app-wikit/start.tcl\t2003-06-06\ 00:43:50.000000000\ +0200\n+++\ wikit.vfs/lib/app-wikit/start.tcl\t2003-10-28\ 22:41:31.000000000\ +0100\n@@\ -162,7\ +162,7\ @@\n\ \ \ \ \ \ \ package\ require\ Web\n\ \ \ \ \ \ \ package\ require\ wikithttpd\n\ \ \ \ \ \ \ #warning,\ POST\ not\ supported!\ read-only!\n-\ \ \ \ \ \ set\ roflag\ 1\n+\ \ \ \ \ \ #set\ roflag\ 1\n\ \n\ \ \ \ \ \ \ #set\ ::httpd::debug\ 1\n\ \ \ \ \ \ \ eval\ \[mk::get\ wdb.pages!9\ page\]\ndiff\ -Naur\ wikit.vfs.original/lib/httpd/wikithttpd.tcl\ wikit.vfs/lib/httpd/wikithttpd.tcl\n---\ wikit.vfs.original/lib/httpd/wikithttpd.tcl\t2003-06-06\ 00:43:50.000000000\ +0200\n+++\ wikit.vfs/lib/httpd/wikithttpd.tcl\t2003-10-28\ 22:43:18.000000000\ +0100\n@@\ -67,16\ +67,19\ @@\n\ \t\ \ \ \ \}\n\ \t\ \ \ \ data\ \{\n\ \t\tappend\ server(\$channel.data)\ \[read\ \$channel\]\n-\t\tif\ \{\ \$server(\$channel.contentLenght)\ >\ -1\ \}\ \{\n+\t\tif\ \{\ \$server(\$channel.contentLength)\ >\ -1\ \}\ \{\n\ \t\t\ \ \ \ if\ \{\[string\ length\ \$server(\$channel.data)\]\ >=\ \\\n-\t\t\t\ \ \ \ \$server(\$channel.contentLenght)\ \}\ \{\n+\t\t\t\ \ \ \ \$server(\$channel.contentLength)\ \}\ \{\n\ \t\t\tprocessRequestData\ \$channel\n\ \t\t\ \ \ \ \}\n\ \t\t\}\ else\ \{\n+\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ httpReturn\ \$channel\ 501\ text/plain\ \"501\ Unknown\ content\ length\"\n+\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ close\ \$channel\n+\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ cleanupChannel\ \$channel\n\ \t\t\ \ \ \ #seeing\ as\ we\ don't\ know\ how\ many\ bytes\ to\ expect\ \n\ \t\t\ \ \ \ #we\ must,\ alas,\ process\ every\ time...\n\ \t\t\ \ \ \ #note\ that\ this\ code\ is\ untested...\n-\t\t\ \ \ \ processRequestData\ \$channel\n+\t\t\ \ \ \ #processRequestData\ \$channel\n\ \t\t\}\n\ \t\ \ \ \ \}\n\ \t\}\n@@\ -107,7\ +110,7\ @@\n\ \t\n\ \tif\ \{\ \[info\ exists\ server(\$channel.ch.Content-Length)\]\ &&\ \\\n\ \t\t\ \[string\ is\ integer\ \$server(\$channel.ch.Content-Length)\]\}\ \{\n-\t\ \ \ \ set\ server(contentLength)\ \$server(\$channel.ch.Content-Length)\n+\t\ \ \ \ set\ server(\$channel.contentLength)\ \$server(\$channel.ch.Content-Length)\n\ \t\}\n\ \n\ \tlog\ \ \"\\\[\[lindex\ \[fconfigure\ \$channel\ -peername\]\ 0\]\\\]\"\ \"\$method\ \$uri\"\n@@\ -117,6\ +120,9\ @@\n\ \t\ \ \ \ \"GET\"\ \{\n\ \t\trunWikit\ \$channel\n\ \t\ \ \ \ \}\n+\ \ \ \ \ \ \ \ \ \ \ \ \"POST\"\ \{\n+\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ server(\$channel.position)\ data\n+\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \t\ \ \ \ default\ \{\n\ \t\thttpReturn\ \$channel\ 501\ text/plain\ \"501\ Method\ not\ supported\\nSorry\ wikit-httpd\ only\ supports\ GET\"\n\ \t\tclose\ \$channel\n@@\ -214,6\ +220,9\ @@\n\ \tset\ ::env(SERVER_SOFTWARE)\ \$serverSoftware\n\ \tset\ ::env(PATH_INFO)\ \$server(\$channel.uri)\n\ \tset\ ::env(PATH_TRANSLATED)\ \[file\ join\ \$documentRoot\ \$server(\$channel.uri)\]\n+\ \ \ \ \ \ \ \ if\ \{\ \$server(\$channel.contentLength)\ !=\ -1\ \}\ \{\n+\ \ \ \ \ \ \ \ \ \ \ \ set\ ::env(CONTENT_LENGTH)\ \$server(\$channel.contentLength)\n+\ \ \ \ \ \ \ \ \}\n\ \t\n\ \trename\ ::puts\ ::real_puts\n\ \trename\ ::httpd::capture_puts\ ::puts\n@@\ -239,11\ +248,6\ @@\n\ \n\ \ \ \ \ \}\n\ \n-\ \ \ \ proc\ processRequestData\ \{\ channel\ \}\ \{\n-\tvariable\ server\n-\n-\ \ \ \ \}\n-\n\ \ \ \ \ proc\ httpReturn\ \{\ channel\ code\ type\ data\ \}\ \{\n\ \tvariable\ serverSoftware\n\ \t\n@@\ -323,9\ +327,9\ @@\n\ \n\ \ \ \ \ proc\ log\ \{\ type\ text\ \}\ \{\n\ \tvariable\ debug\n-\tvariable\ server\t\ \t\ \ \ \n-\t\$server(puts)\ \"\[httpTime\]:\ \$type\ \$text\"\n-\ \ \ \ \}\n+\tvariable\ server\n+\ \ \ \ \ \ \ \ \ \ \ \ \$server(puts)\ \"\[httpTime\]:\ \$type\ \$text\"\n+\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \n\ \n\ \n@@\ -337,8\ +341,8\ @@\n\ \t#arguments,\ reading\ stdin:\ \[read\ stdin\ length\]\n\ \t#or\ some\ other\ fd:\ \[read\ fd\]\n\ \n-\tif\ \{\ \[llength\ \$args\]\ ==\ 3\ \}\ \{\n-\t\ \ \ \ return\ \$server(cgidata)\n+\tif\ \{\ \[llength\ \$args\]\ ==\ 2\ &&\ \[lindex\ \$args\ 0\]\ ==\ \"stdin\"\ \}\ \{\n+\t\ \ \ \ return\ \$::httpd::server(cgidata)\n\ \t\}\ else\ \{\n\ \t\ \ \ \ eval\ real_read\ \$args\n\ \t\}\ndiff\ -Naur\ wikit.vfs.original/lib/wikit/web.tcl\ wikit.vfs/lib/wikit/web.tcl\n---\ wikit.vfs.original/lib/wikit/web.tcl\t2003-10-15\ 02:35:41.000000000\ +0200\n+++\ wikit.vfs/lib/wikit/web.tcl\t2003-10-28\ 19:53:02.000000000\ +0100\n@@\ -102,6\ +102,13\ @@\n\ \n\ \ \ set\ ::script_name\ \$::env(SCRIPT_NAME)\n\ \n+\ \ #\ fix\ embedded\ wikithttpd\ server\ script\ name\n+\ \ if\ \{\ \[string\ first\ \"WikitHttpd\"\ \$env(SERVER_SOFTWARE)\]\ >\ -1\ \}\ \{\n+\ \ \ \ \ \ if\ \{\ \$::script_name\ ==\ \"/\"\ \}\ \{\n+\ \ \ \ \ \ \ \ \ \ set\ ::script_name\ \"\"\n+\ \ \ \ \ \ \}\n+\ \ \}\n+\n\ \ \ #\ this\ code\ added\ 1-5-2001\ to\ handle\ ErrorDocument\ redirection/caching\n\ \ \ if\ \{\[info\ exists\ ::env(REDIRECT_URL)\]\}\ \{\n</pre>} CALL {my revision {Wikit write patch}} CALL {::oo::Obj819903 process revision/Wikit+write+patch} CALL {::oo::Obj819901 process}

-errorcode

NONE

-errorinfo

Unknow state transition: TR -> PRE
    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 56)
    invoked from within
"$server process [string trim $uri /]"

-errorline

4