detect ffmpeg parameters based on output filename

1 files changed, 7 insertions, 2 deletions

diff --git a/vmail/src/WebApp.hs b/vmail/src/WebApp.hs
index a99798b..5a805d0 100644
--- a/vmail/src/WebApp.hs
+++ b/vmail/src/WebApp.hs
@@ -372,8 +372,13 @@ saveVideoClip outputFile inputChunks _ stopTime | stopTime == 0 = do
   cmd_ (AddEnv "output" outputFile)
        (["sh", "-xc", cmdScript, "sh"] ++ inputChunks)
 saveVideoClip outputFile inputChunks startTime stopTime = do
-  -- let cmdScript = "cat \"$@\" | ffmpeg -i - -c:v libx264 -f mp4 -ss \"$start\" -t \"$stop\" \"$output\"" :: String
-  let cmdScript = "cat \"$@\" | ffmpeg -i - -c:v libvpx -c:a libvorbis -ss \"$start\" -t \"$stop\" \"$output\"" :: String
+  let cmdScript =
+        if ".mp4" `isSuffixOf` outputFile
+        then "cat \"$@\" | ffmpeg -i - -c:v libx264 -f mp4 -ss \"$start\" -t \"$stop\" \"$output\"" :: String
+        else if ".webm" `isSuffixOf` outputFile
+        then "cat \"$@\" | ffmpeg -i - -c:v libvpx -c:a libvorbis -ss \"$start\" -t \"$stop\" \"$output\"" :: String
+        else
+        error $ "unknown suffix: " ++ outputFile
   cmd_ (AddEnv "start" $ show startTime)
        (AddEnv "stop" $ show (stopTime - startTime))
        (AddEnv "output" outputFile)