diff options
Diffstat (limited to 'upchud.tcl')
| -rwxr-xr-x | upchud.tcl | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -5,6 +5,7 @@ # --- # Directory to place the files to. set outdir "out/" +set keep_outdir 0 # The lenght of the random name every file is assigned. # Setting it to 0 disables random name mangling. set mangle_lenght 6 @@ -186,8 +187,11 @@ if { ![file isdirectory $outdir] } { file mkdir $outdir } set output_name [get_out_name $original_name] eval $write_file $output_name -send_success $output_name - +if { $keep_outdir } { + send_success $output_name +} else { + send_success [file tail $output_name] +} ## Notes # This is a very useful debug snippet: # |
