rivet tests Sun May 04 09:42:13 UTC 2025 - 144870

/usr/bin/tclsh8.6

invalid command name "parse" (import: 0)

OK imported parse

Apache/2.4.52 (Ubuntu)

www.rivetweb.org

  ___      ___            _  _      ___  
 / _ \    / _ \     _    | || |    |__ \ 
| | | |  | (_) |   |_|   | || |_      ) |
| | | |   \__, |    _    |__   _|    / / 
| |_| |     / /    |_|      | |     / /_ 
 \___/     /_/              |_|    |____|

Testing ::rivet::lremove
removing ccc from {aaa bbb cac ccc ddd}: aaa bbb cac ddd
exec ::rivet::lremove -all -regexp {aa e111 bab aa} aa bab => .e111.
exec ::rivet::lremove -all -regexp {} aa bab => ..
to_be_removed: aa bab
exec ::rivet::lremove -all -regexp {aa e111 bab aa} {*}$to_be_removed => .e111.
exec ::rivet::lremove -all {} aa bab => ..

POST

GET

all: 
qs: 
post: 
root namespaces: ::AsciiGlyphs ::request ::form ::oo ::msgcat ::zlib ::rivet ::pkg ::Rivet ::tcl ::itcl ::auto_mkindex_parser

/usr/lib/tcltk/rivet3 /usr/lib/tcltk/rivet3/rivet-tcl
/usr/lib/tcltk/rivet3/packages /usr/lib/tcltk/rivet3/packages-local
/usr/lib/tcltk/rivet3 /usr/share/tcltk/tcl8.6 /usr/share/tcltk /usr/lib
/usr/local/lib/tcltk /usr/local/share/tcltk /usr/lib/tcltk/x86_64-linux-gnu
/usr/lib/tcltk /usr/lib/tcltk/tcl8.6 /usr/share/tcltk/tcllib1.20
/usr/lib/tcltk/rivet3/packages8.6 .

"Conserviamoci ancora un pergolato di tranquillità,
e un sonno pieno di sogni dolci, e un respiro forte e quieto"

-- John Keats

            [::rivet::inspect -all]confall(AbortScript)             = 
confall(AfterEveryScript)        = 
confall(AfterScript)             = 
confall(BeforeScript)            = 
confall(ChildExitScript)         = 
confall(ChildInitScript)         = 
confall(ErrorScript)             = 
confall(ExportRivetNS)           = 1
confall(GlobalInitScript)        = 
confall(HonorHeaderOnlyRequests) = 1
confall(ImportRivetNS)           = 0
confall(MpmBridge)               = 
confall(RequestHandler)          = 
confall(SeparateChannels)        = 0
confall(SeparateVirtualInterps)  = 1
confall(ServerInitScript)        = 
confall(UploadDirectory)         = /tmp
confall(UploadFilesToVar)        = 1
confall(UploadMaxSize)           = 0

            
            [::rivet::inspect]debug_conf(server) = HonorHeaderOnlyRequests On SeparateVirtualInterps On
debug_conf

server HonorHeaderOnlyRequests On SeparateVirtualInterps On


            [::rivet::inspect FakeConfPar]bad  "FakeConfPar": must be
ServerInitScript, GlobalInitScript, ChildInitScript, ChildExitScript,
BeforeScript, AfterScript, AfterEveryScript, AbortScript, ErrorScript,
UploadMaxSize, UploadDirectory, UploadFilesToVar, SeparateVirtualInterps,
SeparateChannels, HonorHeaderOnlyRequests, MpmBridge, RequestHandler,
ExportRivetNS, or ImportRivetNS

::rivet::inspect server -> hostname www.rivetweb.org errorlog /var/log/apache2/error.log admin webmaster@localhost server_path {} virtual 1 loglevel warning

ChildInitScript: 

SeparateVirtualInterps: 1
HonorHeaderOnlyRequests: 1

debug_conf
server	HonorHeaderOnlyRequests On SeparateVirtualInterps On

assigning 4 random integers to -> assigned_list(a b c d)

::request

assigned_list
assigned_list(a) = 8
assigned_list(b) = 3
assigned_list(c) = 7
assigned_list(d) = 7
assigned_list(e) = 8

[pid: 144870, pwd: /home/manghi/public_html] DOCUMENT_URI: /index.rvt

script: /home/manghi/public_html/index.rvt

inspect script: /home/manghi/public_html/index.rvt

tcl info script:

auto_path: /usr/lib/tcltk/rivet3 /usr/lib/tcltk/rivet3/rivet-tcl /usr/lib/tcltk/rivet3/packages /usr/lib/tcltk/rivet3/packages-local /usr/lib/tcltk/rivet3 /usr/share/tcltk/tcl8.6 /usr/share/tcltk /usr/lib /usr/local/lib/tcltk /usr/local/share/tcltk /usr/lib/tcltk/x86_64-linux-gnu /usr/lib/tcltk /usr/lib/tcltk/tcl8.6 /usr/share/tcltk/tcllib1.20 /usr/lib/tcltk/rivet3/packages8.6 .

May	2025
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

::request

tcl patchlevel: 8.6.12

server
MPM_FORKED	dynamic
MPM_THREADED	unsupported
RIVET_CONFIGURE_CMD	./configure --build=x86_64-linux-gnu --prefix=/usr --includedir=${prefix}/include --mandir=${prefix}/share/man --infodir=${prefix}/share/info --sysconfdir=/etc --localstatedir=/var --disable-option-checking --disable-silent-rules --libdir=${prefix}/lib/x86_64-linux-gnu --runstatedir=/run --disable-maintainer-mode --disable-dependency-tracking --host=x86_64-linux-gnu --build=x86_64-linux-gnu --with-tcl=/usr/lib/tcl8.6 --with-apache=/usr --with-apxs=/usr/bin/apxs --with-rivet-target-dir=/usr/lib/tcltk/rivet3 --enable-version-display
RIVET_DIR	/usr/lib/tcltk/rivet3
RIVET_INIT	/usr/lib/tcltk/rivet3/init.tcl
RIVET_MPM_BRIDGE	/usr/lib/tcltk/rivet3/mpm/rivet_prefork_mpm.so
RIVET_VERSION	3.2.1
SERVER_CONF	/etc/apache2/apache2.conf
SERVER_ROOT	/etc/apache2

Click the button to get your coordinates:

hdr
accept	/
accept-encoding	gzip, br, zstd, deflate
host	www.rivetweb.org
user-agent	Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)

can't read "hdr(Accept)": no such element in array
    while executing
"::rivet::http_accept -list $hdr(Accept)"
    (in namespace eval "::request" script line 584)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:puts -nonewline "
"
 set head "rivet tests [clock format [clock seconds]]" 
puts -nonewline " 

    
        "

puts -nonewline  $head 
puts -nonewline " - "

puts -nonewline  [pid] 
puts -nonewline " - 11-12-2020
        
        
        
        

        
        
        
        
        "
 
        if {[::rivet::var_qs exists editor]} { 
puts -nonewline "
        
        "

        }
    
puts -nonewline "
    
    
        "

puts -nonewline  [::rivet::xml [info nameofexecutable] [list div style "border-bottom: 1px solid; padding: 2px auto;"] pre] 
puts -nonewline "
        
        
        "

            if {[catch {
                namespace eval :: { 
                    parse -string [::rivet::xml "OK parse" pre {div style "border: 1px solid green;"}]
                } } e]} {
                    puts "$e (import: [::rivet::inspect ImportRivetNS])"
                    if {[catch {namespace eval :: {
                        namespace import ::rivet::parse
                        #puts [list ns: [namespace current] 
]
                        parse -string [::rivet::xml "OK imported parse" pre {div style "border: 1px solid yellow;"}]
                    }} e]} {
                        puts [::rivet::xml "impossibile fare il parse ($e)" {div style "border: 1px solid red;"}]
                    }
            }

            if {[info exists ::rivetweb::url_composer]} {
                puts "composer rewrite par: [$::rivetweb::url_composer get_rewrite_par]"
            }

            if {[::rivet::var_qs exists rivetexit]} {
                puts "I'm going to run ::rivet::exit"
                flush stdout
                ::rivet::exit 100
            }

        
puts -nonewline "
        "

puts -nonewline  [::rivet::env SERVER_SOFTWARE] 
puts -nonewline "

"

puts -nonewline  [::rivet::env HTTP_HOST] 
puts -nonewline "
        "

            if {[catch {
                package require AsciiGlyphs

                puts [::rivet::xml [::AsciiGlyphs toGlyphs [clock format [clock seconds] -format "%H:%M"]] [list pre id asciits]]
                puts [::rivet::xml "" [list pre id waitsecs]]

            } e]} {
                puts "Error loading AsciiGlyphs : $e"
            }
            #puts [::rivet::escape_sgml_chars [::rivet::xml "" pre [list a href "localhost"] {img src "localhost"}]]
            puts [::rivet::xml "" {iframe width 300 src "https://www.youtube.com/embed/EH6wdRVqoXQ?rel=0" frameborder 0}]

            if {[::rivet::env REQUEST_METHOD] == "POST"} {
              ::rivet::load_response
              ::rivet::parray response

              # array response, or any other name if specified, has no POST data.
              #set string [::rivet::raw_post]
              #puts $string

              puts "request has POST data"

            } elseif {[::rivet::env REQUEST_METHOD] == "GET"} {

                catch {
                  ::rivet::load_response
                  ::rivet::parray response

                  # array response, or any other name if specified, has no POST data.
                  #set string [::rivet::raw_post]
                  #puts $string

                  puts "request has GET data"
                }

            }

            #puts [::rivet::xml "var_qs: [::rivet::var_qs all]"]
            #puts [::rivet::xml "var_post: [::rivet::var_post all]"]
            #puts [::rivet::xml "var: [::rivet::var all]"]

            
puts -nonewline "
"

            set testlist {aaa bbb cac ccc ddd}
            puts "Testing ::rivet::lremove" 
            puts "removing ccc from {$testlist}: [::rivet::xml [::rivet::lremove $testlist ccc] [list span class result]]"
            puts "exec ::rivet::lremove -all -regexp {aa e111 bab aa} aa bab => .[::rivet::lremove -all -regexp {aa e111 bab aa} aa bab]."
            puts "exec ::rivet::lremove -all -regexp {} aa bab => .[::rivet::lremove -all -regexp {} aa bab]."
            set to_be_removed [list aa bab]
            puts "to_be_removed: $to_be_removed"
            puts "exec ::rivet::lremove -all -regexp {aa e111 bab aa} \{*\}\$to_be_removed => .[::rivet::lremove -all -regexp {aa e111 bab aa} {*}$to_be_removed]."
        
            puts "exec ::rivet::lremove -all {} aa bab => .[::rivet::lremove -all {} aa bab]."
            
puts -nonewline "
"


            package require form
            set myform ::request::testform
            
            
puts -nonewline "POST"


            form $myform -defaults response -method POST -name formname -action "?form=submit&dup=2"
            $myform start
            $myform text text_entry -size 20
            $myform select option_selected -values {opt1 opt2 opt3 opt4} -labels {"Option 1" "Option 2" "Option 3" "Option 4"}
            $myform hidden dup -value 1
            $myform checkbox check -label "Checkbox"
            $myform submit submit -value Search
            $myform submit forget -value Forget  -label Unget
            $myform end
            $myform destroy

            
puts -nonewline ""


            #puts [::rivet::wrapline [::rivet::raw_post] 80 -html]

            
puts -nonewline "GET"


            form $myform -method GET -name formgetmethod -action "?form=get"
            $myform start
            $myform button submit -value Search  -label Get
            $myform end
            $myform destroy

            
puts -nonewline "
"


            puts "all: [::rivet::var all]"
            puts "qs: [::rivet::var_qs all]"
            puts "post: [::rivet::var_post all]"
            puts "root namespaces: [namespace children ::]"
            
puts -nonewline ""


            if {[::rivet::var_qs exists abort]} {

                if {[::rivet::var_qs exists fail]} {

                    ::rivet::abort_page [::rivet::var_qs get fail]

                } else {

                    ::rivet::abort_page

                }

            } elseif {[::rivet::var_qs exists fail]} {

                fffails

            } elseif {[::rivet::var_qs exists exit]} {

                puts "bailing out"

                ::rivet::exit [::rivet::var_qs get exit]

            }

            if {[info exists ::rvtexp::server_name]} {
                puts "::rvtexp::server_name: $::rvtexp::server_name" 
            } else {
                puts ""
            } 
            puts "[::rivet::wrapline $auto_path 80]"

        
puts -nonewline ""

        
        if {[::rivet::var_qs exists editor]} {

            if {[::rivet::var_qs exists ckeditor]} {
                ::rivet::load_response ckeditor_resp
                ::rivet::parray ckeditor_resp
            }

            set myform ckeditor
            catch { $myform destroy }
            form $myform -method POST -name formgetmethod -action "?ckeditor=post&editor=1"
            $myform start
            
puts -nonewline "
                            This is my textarea to be replaced by CKEditor.
             "

            $myform submit submit -value show
            $myform end
            $myform destroy

        } 
        
puts -nonewline "
        
            \"Conserviamoci ancora un pergolato di tranquillità, 

             e un sonno pieno di sogni dolci, e un respiro forte e quieto\" 
            

 -- John Keats
        
                    \[::rivet::inspect -all\]"
 
                array set confall [::rivet::inspect -all]
                parray confall 
            
puts -nonewline "
            
            \[::rivet::inspect\]"

                array set debug_conf [::rivet::inspect]
                parray debug_conf
                ::rivet::parray_table debug_conf
            
puts -nonewline "
            \[::rivet::inspect FakeConfPar\]"

                catch {set fake [::rivet::inspect FakeConfPar]} e
                puts "[::rivet::wrapline $e 80]"
            
puts -nonewline ""

                if {[catch {set inspect_server [::rivet::inspect server]}]} { 
                    puts "No '::rivet::inspect server' command"
                } else {
                    puts "
::rivet::inspect server -> $inspect_server
"
                } 

                puts "ChildInitScript: 
[::rivet::inspect ChildInitScript]"
                puts "SeparateVirtualInterps: [::rivet::inspect SeparateVirtualInterps]"
                puts "HonorHeaderOnlyRequests: [::rivet::inspect HonorHeaderOnlyRequests]"
            
puts -nonewline "
        
        assigning 4 random integers to -> assigned_list(a b c d)
"
 

        puts [namespace current] 
        set lvalues {}
        for {set i 0} { $i < 5 } {incr i} { lappend lvalues [expr int(floor(10*rand()))]}

        ::rivet::lassign_array $lvalues assigned_list a b c d e
        ::rivet::parray assigned_list

        
puts -nonewline "
        
\["

puts -nonewline  "pid: [pid], pwd: [pwd]" 
puts -nonewline "\] DOCUMENT_URI: "

puts -nonewline  [::rivet::env DOCUMENT_URI] 
puts -nonewline "
        script: "

puts -nonewline  [::rivet::env SCRIPT_FILENAME] 
puts -nonewline "
        inspect script: "

            if {[catch {puts [::rivet::inspect script]} e]} { puts "$e: version < 2.2.0?" } 
puts -nonewline "
        tcl info script: "

puts -nonewline  [info script] 
puts -nonewline "
        "

puts -nonewline  "auto_path: $auto_path" 
puts -nonewline ""


        proc ::cal_cell_attributes { day month year weekday } { 
            scan [clock format [clock scan now] -format "%d"] "%d" today 
            if {$day == $today} { return [list class current] } else { return "" } 
        } 

        catch {

            package require Calendar
            set cal [HtmlCalendar ::calendar]
            $cal configure -cell_function ::cal_cell_attributes
            $cal configure -banner_year [list th colspan 4 class banneryear style "text-align: left;"]     \
                           -container [list table class smallfont]                                         \
                           -banner_month [list th class banneryear colspan 3 style "text-align: right;"]
                            
            scan [clock format [clock scan now] -format %m] "%d" today 
            scan [clock format [clock scan now] -format %Y] "%d" year 
            puts [$cal emit $today $year]
            ::itcl::delete object $cal

        }

        puts [namespace current] 
        if {[::rivet::var_qs exists escape]} {
            
puts -nonewline "escape_shell_command "

puts -nonewline  [::rivet::escape_shell_command [::rivet::var_qs get escape]] 
puts -nonewline ""

            
puts -nonewline "escape_sgml_chars "

puts -nonewline  [::rivet::escape_sgml_chars [::rivet::var_qs get escape]] 
puts -nonewline ""

            
puts -nonewline "escape_string "

puts -nonewline  [::rivet::escape_string [::rivet::var_qs get escape]] 
puts -nonewline ""

        }

        if {[catch {::rivet::env DATE_GMT} e]} { puts "wrong env call: $e" }

        puts "tcl patchlevel: $tcl_patchLevel"

	    ::rivet::parray_table server    
	    
	    if {[array exists RivetServerConf]} {
	       parray RivetServerConf
	    }

	    #set confdb [::rivet::inspect -all]
        #foreach k [dict keys $confdb] {
        #    puts "$k: [dict get $confdb $k]
"
        #}

        
puts -nonewline "
        Click the button to get your coordinates:
        
        "

            ::rivet::load_headers hdr
            ::rivet::parray_table hdr

            puts [::rivet::xml [::rivet::http_accept -list $hdr(Accept)] pre]

            ::rivet::load_env environment
            ::rivet::parray_table environment

            if {![info exists ::rvttemp]} {
                set ::rvttemp [::rivet::read_file subtemp.rvt]
            }
            puts [::rivet::escape_sgml_chars $::rvttemp]
        
puts -nonewline "
        Immediate execution "
 ::rivet::parse subtemp.rvt 
puts -nonewline "
        
        "
 
            package require rivetparser
            puts "
[::rivet::escape_sgml_chars [::rivet::parserivetdata $::rvttemp]]
" 
            eval [::rivet::parserivetdata $::rvttemp]
        
puts -nonewline "
        
        
        "
 
            if {[catch {::rivet::parse -string $::rvttemp} e]} { puts "parse -string error ($e)" }
            if {[::rivet::var exists redir]} {
                ::rivet::headers redirect http://www.lifebarbie.eu
            }

            set tmpfile [file join / tmp "[pid]-include-html"]
            if {![file exists $tmpfile]} {
                set fp [open $tmpfile w+]
                puts $fp {
H1
H2
H3
H4
H5}
                close $fp
            }
        
puts -nonewline "
        
        include test
            "
 ::rivet::include $tmpfile 
puts -nonewline "
        
    
    

"

May			2025
Su	Mo	Tu	We	Th	Fr	Sa
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

May			2025
Su	Mo	Tu	We	Th	Fr	Sa
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

Apache/2.4.52 (Ubuntu)

www.rivetweb.org

" puts -nonewline [::rivet::env SERVER_SOFTWARE] puts -nonewline "

" puts -nonewline [::rivet::env HTTP_HOST] puts -nonewline "

::rvtexp::server_name: $::rvtexp::server_name

H1

H2

H3

H4

H5

May			2025
Su	Mo	Tu	We	Th	Fr	Sa
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31