exec.cgi

#!/bin/tclsh

load tclrega.so
source querystring.tcl
source session.tcl

proc toString { str } {
  set map {
    "\"" "\\\""
    "\\" "\\\\"
    "\{" "\\\{"
    "\[" "\\\["
    "/"  "\\/"
    "\b"  "\\b"
    "\f"  "\\f"
    "\n"  "\\n"
    "\r"  "\\r"
    "\t"  "\\t"
  }
  return "\"[string map $map $str]\""
}

puts "Content-Type: text/plain"
puts "Access-Control-Allow-Origin: *"
puts ""

if {[info exists sid] && [check_session $sid]} {
  if { [catch {
    set content [read stdin]
    array set script_result [rega_script $content]
  
    set first 1
    set result "\{\n"
    foreach name [array names script_result] {
      if { 1 != $first } { append result ",\n" } { set first 0 }
      set value $script_result($name)
      append result "  [toString $name]: [toString $value]"
    }
    append result "\n\}"
  
    puts $result
  
  } errorMessage] } {
    puts $errorMessage
  }

} else {
    puts "{error: no session}"
}