#!/usr/local/bin/tclsh
#.................................................
global env
#................................................................
proc Url_Decode {url} {
    regsub -all {\+} $url { } url
    regsub -all {%([0-9a-hA-H][0-9a-hA-H])} $url \
	    {[format %c 0x\1]} url
    return [subst $url]
}
#.................................................
if [catch {set query $env(QUERY_STRING)}] {
    set query [gets stdin]
}
#.................................................
foreach {name value} [split $query &=] {
    set in($name) [Url_Decode $value]
}
set MAIL [open "|/usr/sbin/sendmail -t -n -oi" w]
puts $MAIL "To: $in(TO)"
puts $MAIL "From: $in(FROM)"
puts $MAIL "Reply-To: $in(FROM)"
puts $MAIL "Subject: $in(SUBJECT)\n"
puts $MAIL "$in(BODY)\n"
catch {close $MAIL}

puts "Mail send to $in(TO)"



