From d7427f7f2825626d6dce62d8b0abdf6595027cd7 Mon Sep 17 00:00:00 2001 From: eblondel Date: Tue, 26 Nov 2024 15:20:06 +0100 Subject: [PATCH] fix #399 blastula smtp client as software --- DESCRIPTION | 3 ++- R/geoflow_software.R | 17 +++++++++++++++++ 2 files changed, 19 insertions(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 39208744..e115f84b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -75,7 +75,8 @@ Suggests: atom4R, d4storagehub4R, rmarkdown, - dataverse + dataverse, + blastula License: MIT + file LICENSE URL: https://github.com/r-geoflow/geoflow BugReports: https://github.com/r-geoflow/geoflow diff --git a/R/geoflow_software.R b/R/geoflow_software.R index 27bac50c..8cc387e5 100644 --- a/R/geoflow_software.R +++ b/R/geoflow_software.R @@ -690,6 +690,23 @@ register_software <- function(){ pwd = list(label = "Password", def = "Password for user authentication", class = "character"), logger = list(label = "Logger", def = "Level for 'geonode4R' logger messages (NULL,INFO or DEBUG)", class = "character", choices = c("INFO", "DEBUG")) ) + ), + #------------------------------------------------------------------------------------------------------- + #SMTP CLIENT + #------------------------------------------------------------------------------------------------------- + geoflow_software$new( + software_type = "smtp", + definition = "SMTP Mail client powered by 'blastula' package", + packages = list("blastula"), + handler = try(blastula::creds_envvar, silent = TRUE), + arguments = list( + user = list(label = "User", def = "User", class = "character"), + pass_envvar = list(label = "Password Env Variable", def = "Environment variable name giving the password", class = "character", default = "SMTP_PASSWORD"), + provider = list(label = "Provider", def = "Provider", class = "character"), + host = list(label = "Host", def = "Host", class = "character"), + port = list(label = "Port", def = "Port", class = "integer"), + use_ssl = list(label = "Use SSL", def = "Use SSL", class = "logical", default = TRUE) + ) ) ) .geoflow$software <- software