Ejecutar un script en CGI

Post Reply
User avatar
jllinas
Posts: 189
Joined: Fri Oct 14, 2005 12:33 am
Location: Santo Domingo, Dominican Republic
Contact:

Ejecutar un script en CGI

Post by jllinas »

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: Select all

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: 142
Joined: Sun Dec 18, 2005 3:18 pm
Location: España

Re: Ejecutar un script en CGI

Post by Salvador »

Julio,
Un ejemplo que utilizo para mandar sms:

Code: Select all

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
User avatar
jllinas
Posts: 189
Joined: Fri Oct 14, 2005 12:33 am
Location: Santo Domingo, Dominican Republic
Contact:

Re: Ejecutar un script en CGI

Post by jllinas »

Amigo Salvador,

EXCELENTE !! :D

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
Post Reply