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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
{- hpodder component
Copyright (C) 2006-2007 John Goerzen <jgoerzen@complete.org>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-}
module Commands.SetStatus(cmd, cmd_worker) where
import Utils
import System.Log.Logger
import DB
import Download
import FeedParser
import Types
import Text.Printf
import Config
import Database.HDBC
import Control.Monad hiding (join)
import Utils
import Data.String.Utils
import System.IO
import System.Console.GetOpt
import System.Console.GetOpt.Utils
import qualified Control.Exception as E
i = infoM "setstatus"
w = warningM "setstatus"
d = debugM "setstatus"
possibleStatuses = join ", " . map show $ enumFrom Pending
cmd = simpleCmd "setstatus"
"Alter status of individual episodes" helptext
[Option "c" ["castid"] (ReqArg (stdRequired "castid") "ID")
"Podcast ID in which the episodes occur",
Option "s" ["status"] (ReqArg (stdRequired "status") "STATUS")
("Specify the new status. Possible statuses are:\n" ++ possibleStatuses)]
cmd_worker
cmd_worker _ (_, []) =
fail $ "setstatus: episode IDs missing; see hpodder setstatus --help"
cmd_worker gi (args, episodes) = lock $
do podcastid <- case lookup "castid" args of
Just x -> return (read x)
Nothing -> fail "setstatus: --castid required; see hpodder setstatus --help"
newstatus <- case lookup "status" args of
Just x -> E.catch (E.evaluate (read x))
(\_ -> fail $ "Invalid status supplied; use one of: " ++ possibleStatuses)
Nothing -> fail "setstatus: --status required; see hpodder setstatus --help"
podcastlist <- getPodcast (gdbh gi) podcastid
pc <- case podcastlist of
[x] -> return x
_ -> fail "setstatus: --castid did not give a valid podcast id"
return $ seq pc pc
eplist_orig <- getSelectedEpisodes (gdbh gi) pc episodes
-- Force evaluation of eplist_orig
E.evaluate (length eplist_orig)
d $ printf "Modifying %d episodes" (length eplist_orig)
return $ seq eplist_orig eplist_orig
let eplist_new = map (\e -> e {epstatus = newstatus,
epfailedattempts = 0 }) eplist_orig
mapM_ (updateEpisode (gdbh gi)) eplist_new
commit (gdbh gi)
helptext = "Usage: hpodder setstatus -c CASTID -s STATUS episodeid [episodeid ...]\n\n\
\You must specify one podcast ID with -c, one new status with -s.\n\
\You must also specify one or more episode ID. To select all episodes,\n\
\specify \"all\".\n"
|
