";strTitle;"

' --------------------------------------------------------------------------------------------------------------- ' CGI.INC version 1.0 ' By Nick Ruisi ' Acknowledgements to Kevin O'Brien (Author of CGI4VB) for the idea ' ' '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------- dim pairs (2,256) as string,CgiValue as string,rawp (256) as string, strTitle as string dim strpointer(256) as integer, x as integer,r as integer dim CGI_Accept As String dim CGI_AuthType As String dim CGI_ContentLength As String dim CGI_ContentType As String dim CGI_Cookie As String dim CGI_GatewayInterface As String dim CGI_PathInfo As String dim CGI_PathTranslated As String dim CGI_QueryString As String dim CGI_Referer As String dim CGI_RemoteAddr As String dim CGI_RemoteHost As String dim CGI_RemoteIdent As String dim CGI_RemoteUser As String dim CGI_RequestMethod As String dim CGI_ScriptName As String dim CGI_ServerSoftware As String dim CGI_ServerName As String dim CGI_ServerPort As String dim CGI_ServerProtocol As String dim CGI_UserAgent As String dim lContentLength As Long '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------- sub SendFooter (void) print "" end sub '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------- sub SendB (strData as string) print strData; end sub '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------- sub SendHeader(strTitle as string) print "Status: 200 OK" print "Content-Type:text/html" print chr$(13) print "" print "";strTitle;"" end sub ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------- function GetCgiValue (Param as string) as string for i=1 to 256 if pairs(0,i)=Param then GetCgiValue=pairs (1,i) end if next i end function '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ sub InitCgi(void) CGI_Accept = ENVIRON$("HTTP_ACCEPT") CGI_AuthType = ENVIRON$("AUTH_TYPE") CGI_ContentLength = ENVIRON$("CONTENT_LENGTH") CGI_ContentType = ENVIRON$("CONTENT_TYPE") CGI_Cookie = ENVIRON$("HTTP_COOKIE") CGI_GatewayInterface = ENVIRON$("GATEWAY_INTERFACE") CGI_PathInfo = ENVIRON$("PATH_INFO") CGI_PathTranslated =ENVIRON$("PATH_TRANSLATED") CGI_QueryString = ENVIRON$("QUERY_STRING") CGI_Referer = ENVIRON$("HTTP_REFERER") CGI_RemoteAddr = ENVIRON$("REMOTE_ADDR") CGI_RemoteHost = ENVIRON$("REMOTE_HOST") CGI_RemoteIdent = ENVIRON$("REMOTE_IDENT") CGI_RemoteUser = ENVIRON$("REMOTE_USER") CGI_RequestMethod = ENVIRON$("REQUEST_METHOD") CGI_ScriptName = ENVIRON$("SCRIPT_NAME") CGI_ServerSoftware = ENVIRON$("SERVER_SOFTWARE") CGI_ServerName = ENVIRON$("SERVER_NAME") CGI_ServerPort = ENVIRON$("SERVER_PORT") CGI_ServerProtocol = ENVIRON$("SERVER_PROTOCOL") CGI_UserAgent = ENVIRON$("HTTP_USER_AGENT") lContentLength = VAL(CGI_ContentLength) qslength=len(CGI_QueryString) parmstart=1 x=1 for i=1 to qslength if mid$(CGI_QueryString,i,1)="&" then rawp(x)=Mid$(CGI_QueryString ,parmstart,i-1) parmstart=i+1 x=x+1 end if if i=qslength then rawp(x)=Mid$(CGI_QueryString ,parmstart,i) x=x+1 end if next i for v=1 to x linelength=len(rawp(v)) for c=1 to linelength if Mid$(rawp(v),c,1)="+" then rawp(v)=REPLACE$ (rawp(v)," ",c) end if next c next v for r=1 to x linelength=len(rawp(r)) for g=1 to linelength if Mid$(rawp(r),g,1)="=" then pairs (0,r)=Mid$(rawp(r),1,g-1) pairs (1,r)=Mid$(rawp(r),g+1,len(rawp(r))) end if next g next r end sub ' ------------------------------------------------------------------------------------------------------------------------------------------------------------------