Erro em Acesso ao Servidor - Pacote RCurl
Pessoal, estou desenvolvendo um programa que realiza login em um servidor e depois faz uma requisição POST. estava tudo funcionando bem durante o desenvolvimento até que começou a retornar "Internal Server Error: 500" ao fazer o POST. Porém, quando eu acesso via browser, tudo funciona direito. O fato de funcionar no browser indica necessariamente que o erro é no meu código, certo? devem faltar opções de controle no objeto curl... Meu código está abaixo, mas infelizmente não é reproduzĩvel porque o acesso ao servido não é público. Mesmo assim, se alguém com familiaridade em curl puder olhar e dar alguma idéia... testei configurar várias opções do curl e nada contronou esse erro 500. ----------- require(RCurl) #------------------------------------------ curl <- getCurlHandle() curlSetOpt( verbose = T, cookiejar = 'cookies.txt' , followlocation = TRUE , ssl.verifypeer = FALSE, useragent = 'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.157 Safari/537.36', curl = curl ) #------------------------------------------ # list parameters to pass to the website (pulled from the source html) your.username <- 'usuario' your.password <- 'senha' params <- list( 'txt_email' = your.username, 'txt_senha' = your.password) # Realiza Login no Servidor webAddr <- "http://hostname.br/dirname/ct_login.php" login <- postForm(webAddr, .params = params, curl = curl, style = 'POST') login [1] "1{Sucesso controller{Login efetuado" attr(,"Content-Type") charset "text/html" "ISO-8859-1" #------------------------------------------ # Realiza Busca webBuscaId <- "http://hostname.br/dirname/executa_busca.php" busca <- postForm(webBuscaId, .opts = list(httpheader = c('Content-Type' = 'application/json', ssl.verifypeer = FALSE)), .params = list('idConsulta' = '13678616F', 'adicPar' = 'formatoNulo'), curl = curl, style="POST") * Hostname was found in DNS cache * Trying 10.65.0.169... * Connected to xxxxxx.xxxxxx.xxx.br (10.65.0.169) port 80 (#3)
POST /xxxxx/executa_busca.php HTTP/1.1 User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.157 Safari/537.36 Host: xxxxx.xxxx.xxx.br Accept: */* Cookie: PHPSESSID=3dug68beqvmgpe0v19cc78a947 Content-Type: application/json ssl.verifypeer: FALSE Content-Length: 28
* upload completely sent off: 28 out of 28 bytes * HTTP 1.0, assume close after body < HTTP/1.0 500 Internal Server Error < Date: Thu, 29 Oct 2015 12:53:27 GMT < Server: Apache/2.2.15 (Red Hat) < X-Powered-By: PHP/5.3.3 < Expires: Thu, 19 Nov 1981 08:52:00 GMT < Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0 < Pragma: no-cache < Content-Length: 0 < Connection: close < Content-Type: text/html; charset=ISO-8859-1 < * Closing connection 3 Error: Internal Server Error
Abraços, Paulo
se precisarem mais informações, como os dados de headers, requisições, etc, obtidos no acesso via browser eu posso pegar... Obrigado Abraços, Paulo Em 29 de outubro de 2015 11:03, Paulo Nogueira Starzynski <paulons@gmail.com
escreveu:
Pessoal, estou desenvolvendo um programa que realiza login em um servidor e depois faz uma requisição POST. estava tudo funcionando bem durante o desenvolvimento até que começou a retornar "Internal Server Error: 500" ao fazer o POST. Porém, quando eu acesso via browser, tudo funciona direito.
O fato de funcionar no browser indica necessariamente que o erro é no meu código, certo? devem faltar opções de controle no objeto curl...
Meu código está abaixo, mas infelizmente não é reproduzĩvel porque o acesso ao servido não é público. Mesmo assim, se alguém com familiaridade em curl puder olhar e dar alguma idéia... testei configurar várias opções do curl e nada contronou esse erro 500.
----------- require(RCurl)
#------------------------------------------ curl <- getCurlHandle() curlSetOpt( verbose = T, cookiejar = 'cookies.txt' , followlocation = TRUE , ssl.verifypeer = FALSE, useragent = 'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.157 Safari/537.36', curl = curl )
#------------------------------------------ # list parameters to pass to the website (pulled from the source html) your.username <- 'usuario' your.password <- 'senha' params <- list( 'txt_email' = your.username, 'txt_senha' = your.password)
# Realiza Login no Servidor webAddr <- "http://hostname.br/dirname/ct_login.php" login <- postForm(webAddr, .params = params, curl = curl, style = 'POST') login
[1] "1{Sucesso controller{Login efetuado" attr(,"Content-Type") charset "text/html" "ISO-8859-1"
#------------------------------------------ # Realiza Busca webBuscaId <- "http://hostname.br/dirname/executa_busca.php" busca <- postForm(webBuscaId, .opts = list(httpheader = c('Content-Type' = 'application/json', ssl.verifypeer = FALSE)), .params = list('idConsulta' = '13678616F', 'adicPar' = 'formatoNulo'), curl = curl, style="POST")
* Hostname was found in DNS cache * Trying 10.65.0.169... * Connected to xxxxxx.xxxxxx.xxx.br (10.65.0.169) port 80 (#3)
POST /xxxxx/executa_busca.php HTTP/1.1 User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.157 Safari/537.36 Host: xxxxx.xxxx.xxx.br Accept: */* Cookie: PHPSESSID=3dug68beqvmgpe0v19cc78a947 Content-Type: application/json ssl.verifypeer: FALSE Content-Length: 28
* upload completely sent off: 28 out of 28 bytes * HTTP 1.0, assume close after body < HTTP/1.0 500 Internal Server Error < Date: Thu, 29 Oct 2015 12:53:27 GMT < Server: Apache/2.2.15 (Red Hat) < X-Powered-By: PHP/5.3.3 < Expires: Thu, 19 Nov 1981 08:52:00 GMT < Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0 < Pragma: no-cache < Content-Length: 0 < Connection: close < Content-Type: text/html; charset=ISO-8859-1 < * Closing connection 3 Error: Internal Server Error
Abraços, Paulo
participantes (1)
-
Paulo Nogueira Starzynski