/usr/bin/tclsh8.6
composer rewrite par: rwrwOK parse
__ _____ _____ __ /_ | | ____| _ | ____| / / | | | |__ |_| | |__ / /_ | | |___ \ _ |___ \ | '_ \ | | ___) | |_| ___) | | (_) | |_| |____/ |____/ \___/
response response(cmd) = dump response(f) = test response(rvt) = dump
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 => ..
all: rvt dump cmd dump f test qs: rvt dump cmd dump f test post: root namespaces: ::AsciiGlyphs ::erice ::uri ::rivetweb ::request ::MessagePrinter ::form ::DIO ::cmdline ::struct ::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
assigning 4 random integers to -> assigned_list(a b c d)
::request
assigned_list assigned_list(a) = 1 assigned_list(b) = 2 assigned_list(c) = 9 assigned_list(d) = 5 assigned_list(e) = 7
Mar | 2024 | |||||
---|---|---|---|---|---|---|
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 |
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 | */* |
host | www.rivetweb.org |
user-agent | claudebot |
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)" #puts [::rivet::wrapline [::rivet::raw_post] 80 -html] puts -nonewline "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 "" 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 "" puts -nonewline [::rivet::env SERVER_SOFTWARE] puts -nonewline "
" puts -nonewline [::rivet::env HTTP_HOST] puts -nonewline "
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 "
" 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 "
[::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 "
" if {[catch {set inspect_server [::rivet::inspect server]}]} { puts "
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 "
wrong env call: $e" } puts "
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 "[::rivet::escape_sgml_chars [::rivet::parserivetdata $::rvttemp]]
$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 {