R/certs.R

In gert: Simple Git Client for R

# This is only used for static builds and on Solaris.
# It is not needed if you're using a system libgit2.
#' @useDynLib gert R_static_libgit2
have_static_libgit2 <- function() {
  .Call(R_static_libgit2)
}

#' @useDynLib gert R_set_cert_locations
set_cert_locations <- function(file, path) {
  file <- as.character(file)
  path <- as.character(path)
  .Call(R_set_cert_locations, file, path)
}

file_exists <- function(x) {
  length(x) && file.exists(x)
}

find_cert_dir <- function() {
  if (nchar(Sys.which('openssl')) > 0) {
    out <- sys::exec_internal('openssl', c('version', '-d'), error = FALSE)
    if (out$status == 0) {
      txt <- sys::as_text(out$stdout)
      path <- utils::tail(strsplit(txt, ' ', fixed = TRUE)[[1]], 1)
      path <- gsub('"', "", path, fixed = TRUE)
      path <- file.path(path, 'certs')
      if (file_exists(path)) {
        return(path)
      }
    }
  }
  default_paths <- c(
    '/etc/pki/tls/certs',
    '/etc/ssl/certs/',
    '/etc/opt/csw/ssl/certs'
  )
  for (x in default_paths) {
    if (file_exists(x)) {
      return(x)
    }
  }
  return(NULL)
}