#!/usr/bin/env tclsh
# $Id$
set KOAKUMA_VERSION "1.00"
set components ""
proc exiting {code} {
exit $code
}
proc crash {reason} {
global components KOAKUMA_VERSION
puts stderr "----- Start Koakuma Crash dump log -----"
puts stderr "Included components:"
foreach {name description version} $components {
puts stderr " $name: $description, version $version"
}
puts stderr "Reason: $reason"
puts stderr "----- End Koakuma Crash dump log -----"
puts "Content-Type: text/html"
puts "Status: 500 Internal Server Error"
puts ""
puts ""
puts ""
puts " "
puts " "
puts " Oops"
puts " "
puts " "
puts " Oops
"
puts "
"
puts " Koakuma version $KOAKUMA_VERSION crashed, reason: $reason
"
puts " See the server error log for details."
puts " "
puts ""
exiting 1
}
foreach path [glob @@PREFIX@@/lib/koakuma/components/*.tcl] {
source "$path"
}
proc start_html {title} {
puts ""
puts ""
puts " "
puts " "
puts " $title - Koakuma"
puts " "
puts " "
}
proc end_html {} {
puts " "
puts ""
}