/usr/share/doc/liquidsoap/html/scripts/manual_dump.liq is in liquidsoap 1.1.1-7.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | # A source to dump
# s = (...)
# A function to stop
# the current dump source
stop_f = ref (fun () -> ())
# You should make sure you never
# do a start when another dump
# is running.
# Start to dump
def start_dump(file_name) =
# We create a new file output
# source
s = output.file(%vorbis,
fallible=true,
on_start={log("Starting dump with file #{file_name}.ogg")},
reopen_on_metadata=false,
"#{file_name}",
s)
# We update the stop function
stop_f := fun () -> source.shutdown(s)
end
# Stop dump
def stop_dump() =
f = !stop_f
f ()
end
# Some telnet/server command
server.register(namespace="dump",
description="Start dumping.",
usage="dump.start <filename>",
"start",
fun (s) -> begin start_dump(s) "Done!" end)
server.register(namespace="dump",
description="Stop dumping.",
usage="dump.stop",
"stop",
fun (s) -> begin stop_dump() "Done!" end)
|