cgi no xharbour

[ciacpd]

Olá Pessoal,

Preciso de um exemplo de uso de cgi com o xharbour.

Agradeço toda e qualquer ajuda.

[Itamar M. Lins Jr.]

Function main
? ´alo mundo´
return nil


Saudações
Itamar M. Lins Jr.

[sygecom]

exemplo tirado da pasta de tests do xharbour:

Código: Selecionar todos

PROCEDURE Main()
  LOCAL cUrl, hUrl

  AltD()

  ? "Testing SplitUrl() function"
  ?

  cUrl := "http://www.xharbour.org"
  ? cUrl
  hUrl := SplitUrl( cUrl )
  ? ValToPrg( hUrl )
  ?

  cUrl := "http://www.xharbour.org/script.exe"
  ? cUrl
  hUrl := SplitUrl( cUrl )
  ? ValToPrg( hUrl )
  ?

  cUrl := "http://www.xharbour.org/script.exe?module=&var=test"
  ? cUrl
  hUrl := SplitUrl( cUrl )
  ? ValToPrg( hUrl )
  ?

  cUrl := "http://www.xharbour.org/script.exe?module=&var=test#position"
  ? cUrl
  hUrl := SplitUrl( cUrl )
  ? ValToPrg( hUrl )
  ?

  cUrl := "http://www.xharbour.org/?module=&var=test#position"
  ? cUrl
  hUrl := SplitUrl( cUrl )
  ? ValToPrg( hUrl )
  ?

  cUrl := "http://www.xharbour.org/index.htm#position"
  ? cUrl
  hUrl := SplitUrl( cUrl )
  ? ValToPrg( hUrl )
  ?

  cUrl := "http://user:pass@www.xharbour.org/index.htm#position"
  ? cUrl
  hUrl := SplitUrl( cUrl )
  ? ValToPrg( hUrl )
  ?

  cUrl := "http://user:pass@www.xharbour.org:8081/index.htm?varname=test&var2=test2#position"
  ? cUrl
  hUrl := SplitUrl( cUrl )
  ? ValToPrg( hUrl )
  ?


RETURN

[sygecom]

Alias,o exemplo que postei pertence a pasta teste da contrib da CGI

[vagucs]

Veja estes exemplos

www.vagucs.com.br/xwap/index.html

www.mst.com.br
Usuario: 01
Senha: mst

www.vagucs.com.br/cgi-bin/auto.exe

Pelo celular:

www.sicod.vagucs.com.br

Todos feitos com a CGILIB, estará disponivel no meu site daqui uns dias. To so organizando o site novo e vou por ela la com muitos exemplos.

Tudo postado acima usa DBF com indices NTX ou CDX

[ciacpd]

Obrigado Amigos,

É isto o que preciso.
Wagner vou aguardar.