fix simple responses

1 files changed, 5 insertions, 1 deletions

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