Skip to content

Commit

Permalink
fix #399 blastula smtp client as software
Browse files Browse the repository at this point in the history
  • Loading branch information
eblondel committed Nov 26, 2024
1 parent 0c7c550 commit d7427f7
Show file tree
Hide file tree
Showing 2 changed files with 19 additions and 1 deletion.
3 changes: 2 additions & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
17 changes: 17 additions & 0 deletions R/geoflow_software.R
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit d7427f7

Please sign in to comment.