OPTION TYPE=EXPLICIT OPTION CONSTANT TYPE=INTEGER DECLARE STRING CONSTANT PATH="HTTPD$ROOT:" DECLARE WORD CONSTANT DEFUIC=44+1*256 ! [1,54] DECLARE WORD CONSTANT WWWFIL=1 DECLARE WORD CONSTANT HTMFIL=2 DECLARE WORD CONSTANT LOGFIL=3 DECLARE WORD CONSTANT CMDFIL=4 DECLARE WORD CONSTANT TMPFIL=3 DECLARE WORD CONSTANT TMO=30 %INCLUDE "LB:[1,1]INET.B2S" EXTERNAL SUB WWWHDR(WORD) EXTERNAL SUB WWWHTM() EXTERNAL SUB WWWCGI() EXTERNAL SUB WWWERR(WORD,STRING,STRING,STRING) EXTERNAL SUB CHUNK(WORD,STRING) EXTERNAL SUB GETFNA() EXTERNAL STRING FUNCTION WWWDEC(STRING) EXTERNAL SUB WWWLOG(WORD,STRING) EXTERNAL LONG FUNCTION F.SIZE(WORD,WORD) ! HMAJ,HMIN: Major and minor version of http request COMMON (WWW) WORD HMAJ,HMIN ! F.V11: True if HTTP/1.1 ! F.KAF: True if keep-alive given in request ! F.NOFILE: If no file should be read/returned. ! F.BODY: True if the reply should contain a body. ! F.CGI: True if a CGI script should be run. COMMON (WWW) WORD F.V11,F.KAF,F.NOFILE,F.BODY,F.CGI ! F.POST: True if this was a POST request ! F.CHUNK: True if we want chunked encoding ! F.SKIP: True if reponse body should be skipped. ! F.LOG: True if this request have already been logged. COMMON (WWW) WORD F.POST, F.CHUNK, F.SKIP, F.LOG COMMON (WWW) WORD STATVAL COMMON (WWW) WORD UIC COMMON (WWW) WORD COMPARE COMMON (WWW) LONG CLEN COMMON (WWW) STRING RVER=20,FUN=10 COMMON (WWW) STRING EP=6 COMMON (WWW) STRING C.DATE=30 COMMON (WWW) STRING KAF=20 COMMON (WWW) STRING STATTXT=40 COMMON (WWW) STRING BODY=256 COMMON (WWW) STRING EXTRA=80 COMMON (WWW) STRING CONTENT=40 COMMON (WWW) STRING FNAM=80 COMMON (WWW) STRING DIR=20 COMMON (WWW) STRING HOST=64 COMMON (WWW) STRING UAG=256 COMMON (WWW) STRING URI=256 COMMON (WWW) STRING REMOTE=128 COMMON (WWW) STRING CTYP=128 COMMON (WWW) STRING REFER=128 COMMON (WWW) STRING COOKIE=256 COMMON (WWW) STRING ACCEP=256 COMMON (WWW) STRING CCMD=4 COMMON (WWW) STRING SRV=40 COMMON (WWW) STRING FTS=8 ! Used to store quadword time COMMON (WWW) LONG FSIZ ! Used to store file size COMMON (WWW) WORD ECNT ! Error count COMMON (WWW) LONG SNDLEN EXTERNAL SUB GINFMK(WORD BY REF, WORD BY REF) MAP (VER) WORD FM1, & WORD FM2, & WORD FM3, & WORD FM4, & WORD HM1, & STRING OSBL=4, & STRING OSVER=4, & STRING OSTYP=12, & WORD FM5, & WORD FM6