Re: How to configure smartd and send notifications?

[Tristan Kohl via <help-guix@gnu.org>]

Thank you Thomas and Felix for your patience!

@Thomas, this was the solution!
Works like a charm now :)

On 24 May 2024 12:19:39 CEST, Tomas Volf <~@wolfsden.cz> wrote:
>On 2024-05-23 21:25:08 +0200, Tristan Kohl via wrote:
>> Well look at me. So focused in my old ways on constructing a shell script that I did not even think about using Guile as the executable :D
>>
>> Thank you Thomas an Felix for your pointers!
>>
>> I read up about G-Expressions and got it almost working. But I must miss something because when executing the build result it makes the request successfully (checked return of http-get with pk and logs on the server) but still fails with this error:
>>
>> Backtrace:
>>                 0 (primitive-load "/gnu/store/9gjnc0p...")
>>
>> ERROR: In procedure primitive-load:
>> Wrong type to apply: #<unspecified>
>>
>>
>> (use-module (gnu) (guix modules))
>> (use-package-modules tls)
>>
>> (define smartd-send-ntfy
>>   (program-file "smartd-send-ntfy"
>>     (with-extensions (list gnutls)
>>       (with-imported-modules
>>         (source-module-closure '((web client)))
>>         #~((use-modules (web client))
>>            (http-get "https://example.com"))))))
>
>I think g-exp needs to be a single expression.  In other words, add `begin' in
>there.  In your code you are basically trying to apply result of `(use-modules
>...)' to result of `(http-get ...)'.  Since use-modules do not return anything,
>you get the error above.  You can test it using just plain guile and you will
>get the same error:
>
>    guile -c '((use-modules (web client)) (http-get "https://example.org"))'
>
>I think this should work:
>
>      (define smartd-send-ntfy
>        (program-file "smartd-send-ntfy"
>          (with-extensions (list gnutls)
>            (with-imported-modules
>              (source-module-closure '((web client)))
>              #~(begin (use-modules (web client))
>                       (http-get "https://example.com"))))))
>
>Your original code:
>
>      $ guix repl
>      Loading Guix REPL meta-commands...
>      Increasing build verbosity...
>      Disabling grafting...
>      GNU Guile 3.0.9
>      Copyright (C) 1995-2023 Free Software Foundation, Inc.
>
>      Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
>      This program is free software, and you are welcome to redistribute it
>      under certain conditions; type `,show c' for details.
>
>      Enter `,help' for help.
>      scheme@(guix-user)> ,use (guix)
>      scheme@(guix-user)> #~((use-modules (web client)) (http-get "https://example.com"))
>      $1 = #<gexp ((use-modules (web client)) (http-get "https://example.com")) 7f6c48696720>
>      scheme@(guix-user)> (program-file "test" $1)
>      $2 = #<<program-file> name: "test" gexp: #<gexp ((use-modules (web client)) (http-get "https://example.com")) 7f6c48696720> guile: #f path: ("/gnu/store/ff1cyww9qlra4849q6k0n30w7q67ziim-guix-module-union/share/guile/site/3.0" "/gnu/store/1gd9nsy4cps8fnrd1avkc9l01l7ywiai-guile-3.0.9/share/guile/3.0" "/gnu/store/1gd9nsy4cps8fnrd1avkc9l01l7ywiai-guile-3.0.9/share/guile/3.0" "/gnu/store/1gd9nsy4cps8fnrd1avkc9l01l7ywiai-guile-3.0.9/share/guile/site/3.0" "/gnu/store/1gd9nsy4cps8fnrd1avkc9l01l7ywiai-guile-3.0.9/share/guile/site" "/gnu/store/1gd9nsy4cps8fnrd1avkc9l01l7ywiai-guile-3.0.9/share/guile" "/home/wolf/.guix-home/profile/share/guile/site/3.0" "/run/current-system/profile/share/guile/site/3.0")>
>      scheme@(guix-user)> ,lower $2
>      $3 = #<derivation /gnu/store/x3rkbl47j83d5ps8r8a915blks6hfbin-test.drv => /gnu/store/50m45lc93x7fayaq3y7kzi2zhjz7qwdz-test 7f6c35dd5d70>
>      scheme@(guix-user)> ,build $3
>      building /gnu/store/x3rkbl47j83d5ps8r8a915blks6hfbin-test.drv...
>      successfully built /gnu/store/x3rkbl47j83d5ps8r8a915blks6hfbin-test.drv
>      $4 = "/gnu/store/50m45lc93x7fayaq3y7kzi2zhjz7qwdz-test"
>      scheme@(guix-user)> (system $4)
>      Backtrace:
>                 0 (primitive-load "/gnu/store/50m45lc93x7fayaq3y7kzi2zhjz7qwdz-test")
>
>      ERROR: In procedure primitive-load:
>      Wrong type to apply: #<unspecified>
>      $5 = 256
>
>Now with the `begin':
>
>      scheme@(guix-user)> #~(begin (use-modules (web client)) (http-get "https://example.com"))
>      $6 = #<gexp (begin (use-modules (web client)) (http-get "https://example.com")) 7f6c35e61a20>
>      scheme@(guix-user)> (program-file "test" $6)
>      $7 = #<<program-file> name: "test" gexp: #<gexp (begin (use-modules (web client)) (http-get "https://example.com")) 7f6c35e61a20> guile: #f path: ("/gnu/store/ff1cyww9qlra4849q6k0n30w7q67ziim-guix-module-union/share/guile/site/3.0" "/gnu/store/1gd9nsy4cps8fnrd1avkc9l01l7ywiai-guile-3.0.9/share/guile/3.0" "/gnu/store/1gd9nsy4cps8fnrd1avkc9l01l7ywiai-guile-3.0.9/share/guile/3.0" "/gnu/store/1gd9nsy4cps8fnrd1avkc9l01l7ywiai-guile-3.0.9/share/guile/site/3.0" "/gnu/store/1gd9nsy4cps8fnrd1avkc9l01l7ywiai-guile-3.0.9/share/guile/site" "/gnu/store/1gd9nsy4cps8fnrd1avkc9l01l7ywiai-guile-3.0.9/share/guile" "/home/wolf/.guix-home/profile/share/guile/site/3.0" "/run/current-system/profile/share/guile/site/3.0" "/gnu/store/s2cf4ibjw0g6npx0ia54x5xg6hzangn7-wolfsden/share/guile/site/3.0" "/gnu/store/czkzwa77lr39ayj016vhqrbhf2da2isr-nonguix/share/guile/site/3.0")>
>      scheme@(guix-user)> ,lower $7
>      $8 = #<derivation /gnu/store/7xcnijz3cf4231sdg0df5hig259k38nf-test.drv => /gnu/store/7ylpw11r0sbdc2z02sir5gcr552dqks6-test 7f6c3606cb40>
>      scheme@(guix-user)> ,build $8
>      building /gnu/store/7xcnijz3cf4231sdg0df5hig259k38nf-test.drv...
>      successfully built /gnu/store/7xcnijz3cf4231sdg0df5hig259k38nf-test.drv
>      $9 = "/gnu/store/7ylpw11r0sbdc2z02sir5gcr552dqks6-test"
>      scheme@(guix-user)> (system $9)
>      $10 = 0
>
>>
>>
>> On 21 May 2024 17:50:27 CEST, Tomas Volf <~@wolfsden.cz> wrote:
>> >On 2024-05-21 17:33:24 +0200, Tristan Kohl via wrote:
>> >> Hello Felix,
>> >>
>> >> my last message was not to critizise your help but rather my frustration with my own limited progress. I really appreciate the help!
>> >>
>> >> program-file at least results in a usable thing however since the script gets executed by smard I get the "command not found" in my logs. It seems like curl is not in PATH for smartd. Do I need to import something into the gexp?
>> >>
>> >> Also those env variables are defined by smartd during runtime depending on which drive produced the error. Therefore I need shell expansion/env variables and have to use system (without *) imho.
>> >>
>> >> This is the current state:
>> >>
>> >> (define-smartd-send-ntfy
>> >>   (program-file "send-ntfy"
>> >>     #~(system
>> >>       (string-append "curl " "-H \"Title: $SMARTD_SUBJECT\" " ...))))
>> >
>> >Ignoring the obvious quoting issues here (what Felix does with `getenv' seems
>> >much safer, and should produce the same result?),
>> >
>> >>
>> >> Note: when using system* the error is:
>> >> In execvp of curl: No such file or directory
>> >
>> >This should be solvable by using `file-append', so, basing on the system*
>> >variant, something like:
>> >
>> >    #~(system* #$(file-append curl "/bin/curl") <other-arguments-here>)
>> >
>> >Should invoke curl by absolute path.  (You need import (gnu packages curl) of
>> >course.)
>> >
>> >Hope this helps,
>> >Tomas
>> >
>> >--
>> >There are only two hard things in Computer Science:
>> >cache invalidation, naming things and off-by-one errors.
>
>Have a nice day,
>Tomas
>
>--
>There are only two hard things in Computer Science:
>cache invalidation, naming things and off-by-one errors.