Commit d47b6843 authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Desactivate send mail on outside machine

parent 0f518966
...@@ -1621,7 +1621,9 @@ shinyServer(function(input, output,session) { ...@@ -1621,7 +1621,9 @@ shinyServer(function(input, output,session) {
mailControl=list(smtpServer="smtp.pasteur.fr") mailControl=list(smtpServer="smtp.pasteur.fr")
from="<shaman@pasteur.fr>" from="<shaman@pasteur.fr>"
## Send mail ## Send mail
sendmail(from=from,to=to,subject=subject,msg=body,control=mailControl) if(Sys.info()["nodename"] == "ShinyPro"){
sendmail(from=from,to=to,subject=subject,msg=body,control=mailControl)
}
## Update the key value. ## Update the key value.
updateTextInput(session,"password","",value = values$pass) updateTextInput(session,"password","",value = values$pass)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment