2011-10-03 22:47:44 +00:00
|
|
|
#!/mod/bin/jimsh
|
|
|
|
|
|
|
|
|
|
package require cgi
|
2012-05-21 20:23:41 +00:00
|
|
|
source /mod/webif/lib/setup
|
|
|
|
|
require ts.class
|
2011-10-03 22:47:44 +00:00
|
|
|
|
|
|
|
|
puts "Content-Type: text/html"
|
|
|
|
|
puts ""
|
|
|
|
|
|
|
|
|
|
cgi_input
|
|
|
|
|
#cgi_dump
|
|
|
|
|
|
|
|
|
|
set dir [cgi_get dir "/media/My Video"]
|
|
|
|
|
set file [file tail [cgi_get savestream_name]]
|
|
|
|
|
set sfile [cgi_get savestream_source "/mnt/hd3/Streamer_down_file"]
|
|
|
|
|
if {$file == "0"} { exit }
|
|
|
|
|
if {[string length [string trim $file]] == 0} { exit }
|
|
|
|
|
|
|
|
|
|
if {[file extension $file] ne ".mp4"} { append file ".mp4" }
|
|
|
|
|
|
|
|
|
|
file copy $sfile "$dir/$file"
|
|
|
|
|
|
