//********************************************************
// aCGI Project: Sample to demonstrate Xbase++ Versions
//********************************************************
// Author: Michael McVicker
// Date: © 12/16/2002 - All Rights Reserved
// FileName: aCGITest.prg
//
// Notes:
// After compiling the .cgi, copy to your cgi-bin folder.
// Make sure the Internet User has Read & Execute rights.
// Under IIS, the User Account IUSR_<computer_name> needs
// "permission" to run the CGI.
//
// If you are having difficulty, contact:
// aCGISupport@Apareon.com
//********************************************************
#Include "aCGI.ch"
//*******************************
Procedure Main ( )
//*******************************
Local oCGI := aprCGI():New()
Local cCGIVer := oCGI:GetVar("GATEWAY_INTERFACE")
Local cServer := oCGI:GetVar("SERVER_SOFTWARE")
oCGI:Start()
oCGI:Header()
oCGI:Body()
oCGI:Write("CGI Call was successful.<br>")
oCGI:Write("<b>Xbase++ Version "+Version(1)+"."+Version(2)+"."+Version(3)+"</b>.<br>")
oCGI:Write("CGI Version is <b>"+cCGIVer+"</b>.<br>")
oCGI:Write("Web Server is <b>"+cServer+"</b>.<br>")
oCGI:BackLink("Go Back")
oCGI:Footer()
oCGI:Destroy()
Return |