<title>NeoWebScript GraffitiWall Demonstration</title>
<body bgcolor=white text=black link=blue vlink=red alink=red>
<center>
<h2><font color="#00009c">NeoWebScript&#153 GraffitiWall Demonstration</font></h2>
</center>
<hr>
<!--#neoscript code='

load_response 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 "<strong>On $array(time), someone using $array(host) wrote:</strong>"
		html "<br>&nbsp $array(message)"
		if {[remote_hostname] == $array(host)} {
			
			html <table><tr><td>
			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 </td><td>
			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 </td></tr></table>
		}
		html <hr>
	}

	neo_form response "method=post action=$filename"
	neo_form_field hidden mode "value=write"
	neo_form_textarea message "rows=5 cols=50"
	html <br>
	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 <br>
	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)
}

'-->
<hr>
This page has been viewed <!--#neoscript return='incr_page_counter'--> times since 07/01/97.
</BODY>
</HTML>



