topic-18772

Posts: 189

Joined: Fri Oct 14, 2005 12:33 AM

Ejecutar un script en CGI
Posted: Sat May 08, 2010 09:45 PM

Hola a todos,

¿Como (o con que comando de xharbour o FW) puedo ejecutar un script de CGI, y capturar su respuesta en un archivo de texto?

me explico:
- Tengo el siguiente script de CGI:

Code (fw): Select all Collapse

http://lrgseddn3.cr.usgs.gov/cgi-bin/fieldtest.pl?DCPID=9080445e&SINCE=1

- Cuando lo ejecuto en IE, me da una respuesta simple, que quiero guardarla en un archivo de texto, en un campo string, o en un memo, para procesarlo luego.

¿Como hago eso?

OJO: NO es descargar un archivo, pues el comando script necesita ejecutarse...

Abrazos, y ayuda !

Julio Llinás
Visita mi Blog en http://mangucybernetico.blogspot.com/
xHarbour 1.1.0 + FWH810 + Borland 5.5.1

Salvador

Posts: 144

Joined: Sun Dec 18, 2005 03:18 PM

Re: Ejecutar un script en CGI
Posted: Sun May 09, 2010 06:28 PM

Julio,
Un ejemplo que utilizo para mandar sms:

Code (fw): Select all Collapse

Function SendSms( cTelefono, cMsg ) 
local oHttp, cSend, cRespuesta, cHost,  lError 
   
    cHost := "https://opensms.movistar.es/aplicacionpost/loginEnvio.jsp"
    
    cSend := "TM_ACTION=AUTHENTICATE&TM_LOGIN=miuser";
                     "&TM_PASSWORD=mipassword";
                     "&to="+ cTelefono+; 
                     "&message="+ cMsg 

    oHttp := CreateObject( "winhttp.winhttprequest.5.1" )
    oHttp:Open( "POST", cHost, .f. )
    oHttp:SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    oHttp:Send( cSend )

    lError := oHttp:ResponseText() != "OK" // la respuesta

return !lError

Saludos

Salvador

jllinas

Posts: 189

Joined: Fri Oct 14, 2005 12:33 AM

Re: Ejecutar un script en CGI
Posted: Tue May 11, 2010 03:08 AM

Amigo Salvador,

EXCELENTE !!

Funcionó de maravillas !

Gracias y Abrazos,

Julio Llinás
Visita mi Blog en http://mangucybernetico.blogspot.com/
xHarbour 1.1.0 + FWH810 + Borland 5.5.1

FiveTech Support Forums

Continue the discussion