R/buildHeader.R

In randyzwitch/RSiteCatalyst: R Client for Adobe Analytics API V1.4

#' BuildHeader
#'
#' Internal function - Build Header for REST API call. This is deprecated, we should now be using OAUTH.
#'
#' @importFrom digest digest
#' @importFrom base64enc base64encode
#'
#' @return Header string for the old API auth method.
#'
#' @export
#' @keywords internal

BuildHeader <- function() {
  
  #Create nonce
  nonce <- as.character(as.numeric(Sys.time()))
  #Create timestamp
  created.date <- format(as.POSIXlt(Sys.time(), "GMT"), "%Y-%m-%dT%H:%M:%SZ")
  #Concatentate nonce, timestamp, shared secret, then sha1 then base64
  nonce.create.secret <- paste(nonce, created.date, AdobeAnalytics$SC.Credentials$secret, sep="")
  sha.object <- digest(nonce.create.secret, algo="sha1", serialize=FALSE)
  password.digest <- base64encode(charToRaw(sha.object))
  
  #Build & Return X-WSSE Header 
  headers <- c('X-WSSE'=paste0('UsernameToken Username="',AdobeAnalytics$SC.Credentials$key,'", ',
                               'PasswordDigest="',password.digest,'", ',
                               'Nonce="',nonce,'", ',
                               'Created="',created.date,'"')
              )
  return(headers)
  
}