load_response
set datafile discussions
set page_title " NeoWebScript Demo Discussion Board - MESSAGE CREATION"
set background_color "white"
set homepage "http://www.NeoSoft.com/neowebscript/userinfo/library.nhtml"
set emit_scriptname discuss1.nhtml
set create_scriptname discuss2.nhtml
proc create_entry {} {
global datafile page_title background_color webenv emit_scriptname create_scriptname
html ""
html ""
html "$page_title - Create New Entry"
html ""
html ""
html ""
html ""
}
proc create_response {the_response} {
global datafile page_title background_color webenv emit_scriptname create_scriptname
html ""
html ""
html "$page_title - Create New Entry"
html ""
html ""
html ""
html ""
}
proc post_entry {} {
global datafile page_title background_color webenv response homepage
global emit_scriptname create_scriptname
if {[catch {set idlist [dbkeys $datafile *]} firsttime] != 0} {
set num_entries 0
} else {
set num_entries [llength $idlist]
}
if {[string length $response(name)] == 0} {
set response(name) Unknown
}
if {[string length $response(email)] == 0} {
set response(email) Unknown
}
if {[string length $response(subject)] == 0} {
set response(subject) Unknown
}
if {[string length $response(comments)] == 0} {
html ""
html ""
html "$page_title - Create New Entry"
html ""
html ""
html ""
html ""
} else {
dbstore $datafile [expr $num_entries + 1] response
html ""
html ""
html "$page_title - Create New Entry"
html ""
html ""
html ""
html ""
}
}
if {[string compare $response(mode) create_entry] == 0} {
create_entry
} elseif {[string compare $response(mode) create_response] == 0} {
create_response
} elseif {[string compare $response(mode) post_entry] == 0} {
post_entry
} else {
create_response $response(mode)
}