This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.
The procedure is defined as:
proc ::xowiki::validate_duration {} {
upvar duration duration
set form ::xowiki::f1 ;# form has to be named this way for the time being
#set form [lindex [::xowiki::WikiForm info instances -closure] 0]
$form instvar data
$data instvar package_id
if {[$data istype ::xowiki::PodcastItem] && $duration eq "" && [$data exists import_file]} {
set filename [expr {[$data exists full_file_name] ? [$data full_file_name] : [$data set import_file]}]
set ffmpeg [::$package_id get_parameter -check_query_parameter false "ffmpeg" "/usr/bin/ffmpeg"]
if {[ad_file exists $ffmpeg]} {
catch {exec $ffmpeg -i $filename} output
if {[info exists output]} {
regexp {Duration: +([0-9:.]+)[ ,]} $output _ duration
}
}
}
return 1
}
