fix simple responses

diff --git a/upchud.tcl b/upchud.tcl
index 9da256ca60aa22fc2a5ed813ddafda7924093de2..544994a97a8e3793f60f4a2e9e3fd10bdb20ccdf 100755 (executable)
--- 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} {