From 2bceba36ef6924a3b83cba6155bf2c237a49c412 Mon Sep 17 00:00:00 2001
From: anon <anon@anon.anon>
Date: Sat, 5 Jul 2025 13:57:43 +0200
Subject: [PATCH] fix simple responses

---
 upchud.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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} {
-- 
2.39.5