NeoWebScript GraffitiWall Demonstration

NeoWebScript™ GraffitiWall Demonstration

load_response set filename $webenv(DOCUMENT_NAME) set datafile graffiti proc main {} { global webenv datafile response filename set keys [lsort -integer [dbkeys $datafile *]] foreach key $keys { dbfetch $datafile $key array html "On $array(time), someone using $array(host) wrote:" html "
$array(message)" if {[remote_hostname] == $array(host)} { html

neo_form response "method=post action=$filename" neo_form_field hidden mode "value=edit" neo_form_field hidden key "value=$key" neo_form_submit "Edit" neo_form_end html

neo_form response "method=post action=$filename" neo_form_field hidden mode "value=delete" neo_form_field hidden key "value=$key" neo_form_submit "Delete" neo_form_end html

} html

} neo_form response "method=post action=$filename" neo_form_field hidden mode "value=write" neo_form_textarea message "rows=5 cols=50" html
neo_form_submit "Submit Query" neo_form_end } proc write {} { global webenv datafile response filename set response(time) [clock format [clock seconds]] set response(host) [remote_hostname] set keys [lsort -integer [dbkeys $datafile *]] set key [expr [lindex $keys end] + 1] if {[info exists response(key)]} { set key $response(key) } dbstore $datafile $key response unset response main } proc edit {} { global webenv datafile response filename dbfetch $datafile $response(key) array set response(message) $array(message) neo_form response "method=post action=$filename" neo_form_field hidden mode "value=write" neo_form_field hidden key neo_form_textarea message "rows=5 cols=50" html
neo_form_submit "Submit Query" neo_form_end } proc delete {} { global webenv datafile response filename dbdelkey $datafile $response(key) main } if ![array exists response] { main } else { $response(mode) }

This page has been viewed html [incr_page_counter] times.