25 lines
570 B
Plaintext
25 lines
570 B
Plaintext
|
#!/mod/bin/jimsh
|
||
|
|
|
||
|
|
source /mod/webif/lib/setup
|
||
|
|
require ts.class system.class
|
||
|
|
|
||
|
|
set file [lindex $argv 0]
|
||
|
|
set ts [ts fetch "$file.ts"]
|
||
|
|
set root [system mediaroot]
|
||
|
|
|
||
|
|
set dir [file dirname $file]
|
||
|
|
if {[string match "$root*" $dir]} {
|
||
|
|
set dir [string range $dir $([string length $root] + 1) end]
|
||
|
|
}
|
||
|
|
set ch [$ts get channel_name]
|
||
|
|
set dur [$ts duration]
|
||
|
|
set title [$ts get title]
|
||
|
|
|
||
|
|
set msg "Recorded: $dir/$title ($dur minutes - $ch)"
|
||
|
|
set logfd [open "/mod/tmp/record.log" "a+"]
|
||
|
|
puts $logfd "[\
|
||
|
|
clock format [clock seconds] -format "%d/%m/%Y %H:%M"\
|
||
|
|
] - $msg"
|
||
|
|
$logfd close
|
||
|
|
|