seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-03-10 08:54:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: qbittorrent: Add default configuration file.

Browse Source 
* rosenthal/services/bittorrent.scm (%qbittorrent-default-config-file):
New variable.
(qbittorrent-activation): Install it.
This commit is contained in:
Hilton Chain 2023-12-08 10:21:27 +08:00
parent 73e4ea9ae0
commit 08c2d38b09
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rosenthal/services/bittorrent.scm
View File

@ -3,6 +3,7 @@
;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal services bittorrent)
#:use-module (ice-9 format)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (gnu packages admin)
@ -44,15 +45,32 @@
(home-directory "/var/empty")
(shell (file-append shadow "/sbin/nologin")))))
;; Set default password to adminadmin
(define %qbittorrent-default-config-file
(plain-file
"qBittorrent.conf"
(format #f "~
[LegalNotice]
Accepted=true
[Preferences]
WebUI\\Password_PBKDF2=\"@ByteArray(ARQ77eY1NUZaQsuDHbIMCA==:0WMRkYTUWVT9wVvdDtHAjU9b3b7uB8NR1Gur2hmQCvCDpm39Q+PsJRJPaCU51dEiz+dTzh8qbPsL8WkFljQYFQ==)\"~%")))
(define qbittorrent-activation
(match-record-lambda <qbittorrent-configuration>
(qbittorrent webui-port profile-directory extra-options)
(profile-directory)
#~(begin
(use-modules (guix build utils))
(let ((profile-directory #$profile-directory)
(user (getpwnam "qbittorrent")))
(mkdir-p profile-directory)
(chown profile-directory (passwd:uid user) (passwd:gid user))))))
(use-modules (srfi srfi-26)
(guix build utils))
(let ((user (getpwnam "qbittorrent"))
(config-file
(string-append
#$profile-directory "/qBittorrent/config/qBittorrent.conf")))
(unless (file-exists? config-file)
(mkdir-p (dirname config-file))
(copy-file #$%qbittorrent-default-config-file config-file)
(map (cut chown <> (passwd:uid user) (passwd:gid user))
(cons #$profile-directory
(find-files #$profile-directory #:directories? #t))))))))
(define qbittorrent-shepherd-service
(match-record-lambda <qbittorrent-configuration>