NeoWebScript Feedback
NeoSoft is always listening for feedback from you, the users and
developers of NeoWebScript. For additional information, or if you
have any comments or suggestions, send email to info@neowebscript.com.
proc check_response {} {
global response
foreach field [list to from comments] {
if {![info exists response($field)]} {
return 0
}
if {[clength $response($field)] == 0} {
return 0
}
}
return 1
}
load_response
if [array exists response] {
if [check_response] {
set fp [open_outbound_mail -subject "NeoWebScript Feedback" -to $response(to) -from $response(from)]
puts $fp "Name: $response(name)"
puts $fp "Email: $response(from)"
puts $fp "Comments:\n$response(comments)"
puts $fp "\n----------\n"
foreach env [array names webenv] {
puts $fp "webenv($env) = $webenv($env)"
}
close $fp
html "Message sent! Send another?
\n"
} else {
html "Message not sent. Please fill out all the fields.
\n"
}
}
set this_doc $webenv(DOCUMENT_NAME)
html "
"