/usr/bin/tclsh8.6
OK parse
composer rewrite par: rwrw

Apache/2.4.52 (Ubuntu)


www.rivetweb.org

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


response
response(dbdump) = 1
request has GET data

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: dbdump 1
qs: dbdump 1
post: 
root namespaces: ::AsciiGlyphs ::erice ::uri ::rivetweb ::request ::MessagePrinter ::json ::form ::DIO ::cmdline ::struct ::md5 ::mysql ::oo ::rwmenu ::msgcat ::htmlizer ::rwlink ::dom ::xml ::zlib ::rwlogger ::soldout ::rivet ::pkg ::Rivet ::tcl ::Session ::rwsitemap ::tDOM ::tdom ::itcl ::auto_mkindex_parser ::sha2 ::fileutil ::rwdatas ::rwpage

/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 . /home/manghi/rivetweb/ /home/manghi/erice
/home/manghi/rivetweb/ /home/manghi/erice
"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
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)  = 0
confall(ServerInitScript)        = 
confall(UploadDirectory)         = /tmp
confall(UploadFilesToVar)        = 1
confall(UploadMaxSize)           = 0
[::rivet::inspect]
debug_conf
debug_conf(server) = HonorHeaderOnlyRequests On
debug_conf
serverHonorHeaderOnlyRequests 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: 0
HonorHeaderOnlyRequests: 1

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

::request

assigned_list
assigned_list(a) = 1
assigned_list(b) = 3
assigned_list(c) = 0
assigned_list(d) = 3
assigned_list(e) = 5
[pid: 56476, 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 . /home/manghi/rivetweb/ /home/manghi/erice /home/manghi/rivetweb/ /home/manghi/erice
Mar2024
SuMoTuWeThFrSa
12
3456789
10111213141516
17181920212223
24252627282930
31
::request
tcl patchlevel: 8.6.12
server
MPM_FORKEDdynamic
MPM_THREADEDunsupported
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_VERSION3.2.1
SERVER_CONF/etc/apache2/apache2.conf
SERVER_ROOT/etc/apache2

Click the button to get your coordinates:

hdr
accept*/*
hostwww.rivetweb.org
user-agentclaudebot
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 " " $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 "
"