Package: hpodder
Version: 1.1.5.0
Severity: wishlist
Tags: patch
Hi,
Attached is a working (I hope) patch for hpodder 1.1.5 which adds the "EPID" to
the
id3v2 callout. This is great for allowing sorting by episode ID in things like
gtkpod.
Also fixed the "FEEDURL" which has a typo (FEDDURL) in the Config.hs file.
Hope this helps,
Christian
-- System Information:
Debian Release: lenny/sid
APT prefers feisty
APT policy: (500, 'feisty'), (500, 'unstable'), (500, 'testing'), (1,
'experimental')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.25-2-amd64 (SMP w/4 CPU cores)
Locale: LANG=en_CA.UTF-8, LC_CTYPE=en_CA.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
Versions of packages hpodder depends on:
ii curl 7.18.2-5 Get a file from an HTTP, HTTPS or
ii id3v2 0.1.11-3 A command line id3v2 tag editor
ii libc6 2.7-12 GNU C Library: Shared libraries
ii libgmp3c2 2:4.2.2+dfsg-3 Multiprecision arithmetic library
ii libsqlite3-0 3.5.9-3 SQLite 3 shared library
hpodder recommends no packages.
-- no debconf information
diff -aur hpodder-1.1.5.0/Commands/Download.hs
hpodder-1.1.5.0+1/Commands/Download.hs
--- hpodder-1.1.5.0/Commands/Download.hs 2008-07-02 11:29:00.000000000
-0400
+++ hpodder-1.1.5.0+1/Commands/Download.hs 2008-07-03 23:40:36.000000000
-0400
@@ -284,6 +284,7 @@
("FEEDURL", feedurl . podcast $ ep),
("SAFECASTTITLE", sanitize_fn . castname . podcast $
ep),
("SAFEEPTITLE", sanitize_fn . eptitle $ ep),
+ ("EPID", show . epid $ ep),
("EPTITLE", eptitle ep)]
-- | Runs a hook script.
diff -aur hpodder-1.1.5.0/Config.hs hpodder-1.1.5.0+1/Config.hs
--- hpodder-1.1.5.0/Config.hs 2008-04-08 15:20:54.000000000 -0400
+++ hpodder-1.1.5.0+1/Config.hs 2008-07-03 23:42:52.000000000 -0400
@@ -74,7 +74,7 @@
cp <- set cp "DEFAULT" "renametypes"
"audio/mpeg:.mp3,audio/mp3:.mp3,x-audio/mp3:.mp3"
cp <- set cp "DEFAULT" "postproctypes"
"audio/mpeg,audio/mp3,x-audio/mp3"
cp <- set cp "DEFAULT" "gettypecommand" "file -b -i
\"${EPFILENAME}\""
- cp <- set cp "DEFAULT" "postproccommand" "id3v2 -A
\"${CASTTITLE}\" -t \"${EPTITLE}\" --WOAF \"${EPURL}\" --WOAS \"${FEDDURL}\"
\"${EPFILENAME}\""
+ cp <- set cp "DEFAULT" "postproccommand" "id3v2 -T
\"${EPID}\" -A \"${CASTTITLE}\" -t \"${EPTITLE}\" --WOAF \"${EPURL}\" --WOAS
\"${FEEDURL}\" \"${EPFILENAME}\""
return cp
startingcp = emptyCP {accessfunc = interpolatingAccess 10}
@@ -114,4 +114,4 @@
Right x -> Just (splitit x)
Left _ -> Nothing
where splitit x = filter (/= "") . map strip . split "," $ x
