diff options
Diffstat (limited to 'tw/services/personal-data-exporter.scm')
-rw-r--r-- | tw/services/personal-data-exporter.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tw/services/personal-data-exporter.scm b/tw/services/personal-data-exporter.scm index 80e85622..ff3cbe80 100644 --- a/tw/services/personal-data-exporter.scm +++ b/tw/services/personal-data-exporter.scm @@ -121,7 +121,7 @@ create table if not exists \"conso_max_power\" (\"time\" timestamp primary key, '((#$(file-append postgresql "/bin/pg_dump") "-wU" #$user "-t" "conso_*" #$user) (#$(file-append restic "/bin/restic") "backup" - "--no-cache" "--stdin" "--stdin-filename=conso.sql"))) + "--quiet" "--no-cache" "--stdin" "--stdin-filename=conso.sql"))) (close to) (do ((char (read-char from) (read-char from))) @@ -160,6 +160,7 @@ create table if not exists \"conso_max_power\" (\"time\" timestamp primary key, ;; Ledgerplot uses the Boerse Frankfurt API, so run after markets close there. ;; According to https://www.boerse.de/handelszeiten/, it's 22:00 CET/CEST. (list #~(job "5 22 * * mon-fri" ; weekdays after market close + ;; TODO: use `with-mail-out' once ledgerplot doesn't output anything on success #$(program-file "ledgerplot-exchange-rates-command" #~(begin (setenv "LEDGER_FILE" #$ledger-file) @@ -168,12 +169,13 @@ create table if not exists \"conso_max_power\" (\"time\" timestamp primary key, #:user #$user) ;; Process the previous day's data during the night. + ;; TODO: use `with-mail-out', but this command has output on success #~(job "0 4 * * *" #$(conso-fetch-command config) #:user #$user) ;; Back up electricity consumption database. The other data can ;; be easily recreated from the source data, but this data ;; becomes inaccessible after 2 years via the API. - #~(job "0 5 * * *" #$(conso-backup-command config) #:user #$user)))) + #~(job "0 5 * * *" (with-mail-out #$(conso-backup-command config)) #:user #$user)))) (define (personal-data-shepherd-services config) (match-record config <personal-data-exporter-configuration> (user group ledger-file ledger-locale) |