loadModule("pam", TRUE)
pam.auth <- function(service, username, password) {
new(pam, service)$authenticate(username, password)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.