From: anon Date: Sat, 5 Jul 2025 11:57:43 +0000 (+0200) Subject: fix simple responses X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=2bceba36ef6924a3b83cba6155bf2c237a49c412;p=emil-up.chud.cyou.git fix simple responses --- diff --git a/upchud.tcl b/upchud.tcl index 9da256c..544994a 100755 --- a/upchud.tcl +++ b/upchud.tcl @@ -19,10 +19,14 @@ set max_save_attempts 20 # I have provided a few default behaviours, but you do you champ. proc send_success {upload_name} { proc simple {upload_name} { + set scheme $::env(REQUEST_SCHEME) + set host $::env(HTTP_HOST) + set url "$scheme://$host/$upload_name" + puts "Status: 200 OK\r" puts "Content-Type: text/plain\r" puts "\r" - puts "$upload_name" + puts "$url" } proc link {upload_name} {