//********************************************************
// 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