ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add get-iplayer.

Browse source 
* gnu/packages/video.scm (get-iplayer): New variable.
This commit is contained in:
Efraim Flashner 2020-06-30 21:07:05 +03:00
parent 7dfe25f574
commit 3123cdaf7b
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 58 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/video.scm
View file

@ -135,6 +135,7 @@ (define-module (gnu packages video)
#:use-module (gnu packages ocr)
#:use-module (gnu packages perl)
#:use-module (gnu packages perl-check)
#:use-module (gnu packages perl-web)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages popt)
#:use-module (gnu packages pretty-print)
@ -4165,3 +4166,60 @@ (define-public guvcview
;; 'COPYING' is GPLv3 but source headers say GPLv2+.
(license license:gpl2+)))
(define-public get-iplayer
(package
(name "get-iplayer")
(version "3.26")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/get-iplayer/get_iplayer")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0lsz5hz1ia5j612540rb0f31y7j2k5gf7x5i43l8k06b90wi73d6"))))
(build-system perl-build-system)
(arguments
`(#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'build)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man (string-append out "/share/man/man1")))
(install-file "get_iplayer" bin)
(install-file "get_iplayer.cgi" bin)
(install-file "get_iplayer.1" man))
#t))
(add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(perllib (string-append out "/lib/perl5/site_perl/"
,(package-version perl))))
(wrap-program (string-append out "/bin/get_iplayer")
`("PERL5LIB" ":"
prefix (,(string-append perllib ":" (getenv "PERL5LIB")))))
(wrap-program (string-append out "/bin/get_iplayer.cgi")
`("PERL5LIB" ":"
prefix (,(string-append perllib ":" (getenv "PERL5LIB")))))
#t))))))
(inputs
`(("perl-mojolicious" ,perl-mojolicious)
("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
("perl-xml-libxml" ,perl-xml-libxml)))
(home-page "https://github.com/get-iplayer/get_iplayer")
(synopsis "Download or stream available BBC iPlayer TV and radio programmes")
(description "@code{get_iplayer} lists, searches and records BBC iPlayer
TV/Radio, BBC Podcast programmes. Other third-party plugins may be available.
@code{get_iplayer} has three modes: recording a complete programme for later
playback, streaming a programme directly to a playback application, such as
mplayer; and as a @dfn{Personal Video Recorder} (PVR), subscribing to search
terms and recording programmes automatically. It can also stream or record live
BBC iPlayer output.")
(license license:gpl3+)))