tests/scripts.md

In hyunhonoh/splunkconnector: Splunk Connect using Restapi

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

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) }

sid<-getsavedsearch_sid(serverinfo, "test1")

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, useInternalNodes = TRUE) #xml_data <- xmlToList(data) return(result) }

results <- checkjobfinish(serverinfo, sid)

hyunhonoh/splunkconnector documentation built on Feb. 6, 2020, 6:54 p.m.