mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

display error message if unable to run youtube-dl

Browse source 
This would have made the typo of the command name that was just fixed
obvious earlier, when --no-raw was used to force using it.
This commit is contained in:
Joey Hess 2021-11-13 09:07:43 -04:00
parent aa6e54ac6e
commit 889e771357
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
Command/AddUrl.hs
View file

@ -271,7 +271,8 @@ performWeb addunlockedmatcher o url file urlinfo = ifAnnexed file addurl geturl
addurl = addUrlChecked o url file webUUID $ \k ->
ifM (pure (not (rawOption (downloadOptions o))) <&&> youtubeDlSupported url)
( return (True, True, setDownloader url YoutubeDownloader)
, checkRaw (downloadOptions o) $ return (Url.urlExists urlinfo, Url.urlSize urlinfo == fromKey keySize k, url)
, checkRaw Nothing (downloadOptions o) $
return (Url.urlExists urlinfo, Url.urlSize urlinfo == fromKey keySize k, url)
)
{- Check that the url exists, and has the same size as the key,
@ -332,7 +333,7 @@ downloadWeb addunlockedmatcher o url urlinfo file =
in ifAnnexed f
(alreadyannexed (fromRawFilePath f))
(dl f)
Left _ -> checkRaw o (normalfinish tmp)
Left err -> checkRaw (Just err) o (normalfinish tmp)
where
dl dest = withTmpWorkDir mediakey $ \workdir -> do
let cleanuptmp = pruneTmpWorkDirBefore tmp (liftIO . removeWhenExistsWith R.removeLink)
@ -346,7 +347,7 @@ downloadWeb addunlockedmatcher o url urlinfo file =
showDestinationFile (fromRawFilePath dest)
addWorkTree canadd addunlockedmatcher webUUID mediaurl dest mediakey (Just (toRawFilePath mediafile))
return $ Just mediakey
Right Nothing -> checkRaw o (normalfinish tmp)
Right Nothing -> checkRaw Nothing o (normalfinish tmp)
Left msg -> do
cleanuptmp
warning msg
@ -363,9 +364,12 @@ downloadWeb addunlockedmatcher o url urlinfo file =
warning $ dest ++ " already exists; not overwriting"
return Nothing
checkRaw :: DownloadOptions -> Annex a -> Annex a
checkRaw o a
| noRawOption o = giveup "Unable to use youtube-dl or a special remote and --no-raw was specified."
checkRaw :: (Maybe String) -> DownloadOptions -> Annex a -> Annex a
checkRaw failreason o a
| noRawOption o = giveup $ "Unable to use youtube-dl or a special remote and --no-raw was specified" ++
case failreason of
Just msg -> ": " ++ msg
Nothing -> ""
| otherwise = a
{- The destination file is not known at start time unless the user provided
@ -487,7 +491,7 @@ nodownloadWeb addunlockedmatcher o url urlinfo file
then nomedia
else youtubeDlFileName url >>= \case
Right mediafile -> usemedia (toRawFilePath mediafile)
Left _ -> checkRaw o nomedia
Left err -> checkRaw (Just err) o nomedia
| otherwise = do
warning $ "unable to access url: " ++ url
return Nothing

4
Command/ImportFeed.hs
View file

@ -185,7 +185,7 @@ performDownload addunlockedmatcher opts cache todownload = case location todownl
let f' = fromRawFilePath f
r <- Remote.claimingUrl url
if Remote.uuid r == webUUID || rawOption (downloadOptions opts)
then checkRaw (downloadOptions opts) $ do
then checkRaw Nothing (downloadOptions opts) $ do
let dlopts = (downloadOptions opts)
-- force using the filename
-- chosen here
@ -326,7 +326,7 @@ performDownload addunlockedmatcher opts cache todownload = case location todownl
, downloadlink
)
where
downloadlink = checkRaw (downloadOptions opts) $
downloadlink = checkRaw Nothing (downloadOptions opts) $
performDownload addunlockedmatcher opts cache todownload
{ location = Enclosure linkurl }