R/scripttest.R

In hyunhonoh/splunkconnector: Splunk Connect using Restapi

serverinfo<-c("localhost","admin","password")
serverinfo

savedsearchQuery <- function(serverinfo, savedsearchName){
  sid <- getsavedsearch_sid(serverinfo, savedsearchName)
  isDone <- checkjobfinish(serverinfo, sid)
  return (c(sid=sid, isDone=isDone))
}

getsavedsearch_sid <- function(serverinfo, savedsearchName) {
  uri <- paste("https://", serverinfo[1] , ":8089/services/search/jobs", sep="")
  bodysearch <- paste("search=savedsearch ", savedsearchName, sep="")
  result<-POST(uri, authenticate(serverinfo[2], serverinfo[3]),   config = httr::config(ssl_verifypeer = FALSE, ssl_verifyhost=FALSE), body=bodysearch)
  data<-xmlParse(result)
  xml_data <- xmlToList(data)
  # 리턴값으로 작업 id를 리턴
  return(xml_data$sid)
}

checkjobfinish <- function(serverinfo, sid) {
  servicessearchstatusstr <- paste("https://", serverinfo[1] ,":8089/services/search/jobs/", sid, "/", sep="")
  result<-POST(servicessearchstatusstr, authenticate(serverinfo[2], serverinfo[3]),   config = httr::config(ssl_verifypeer = FALSE, ssl_verifyhost=FALSE))
#   data<-xmlParse(result)
#   xml_data <- xmlToList(data)
  result<-read_html(result)
  isDone<-html_text(html_nodes(result, "key[name='isDone']"))
  return(isDone)
}
data<-savedsearchQuery(serverinfo, "test1")
data
data[1]
result<-read_html(data)
result
html_attr(html_nodes(data, "key"), name="name")
title <- content(result) %>%
            html_nodes("key")
title