<> 3"BBWWTRACE1d$өJITBL$' Reference$өSKIN$өJITSRN$өJITPOWWBLT1#(3#2CGITEXTBL1SRN1PON1SKINDUMMYCUST1ZeDUMMYT8ata templates, loads a salesperson code table, and then runs?3"a specified program. The default program is a customer list.3^100 - get cgi inputs /u/tss"." DATA/ CPGM/ PGM/ SYP/ SYD/ utaddr.wbb* utcgi.wbb U,%3^100 Dim templates used by the filesB3^100 - Run the program specified in pgm", or default to the menu.H$'DATAlib/'BBXlib/'FORMSlib/ _acu.utlS3IF POS("*"+CVS(FIELD(CGI$,"AcctPassword"),3)+"*"="*FAROUT*farout*") THEN GOTO 03103CALL "WEBSECURE1.bbx","JITTRACE ",CVS(FIELD(CGI$,"Reference"),3),CVS(FIELD(CGI$,"AcctPassword"),3),RESULT$; IF RESULT$<>"OK" THEN LET TEXT$="*** INVALID PASSWORD ****"; GOTO 0340(3RUN FIELD(CGI$,"pgm",ERR=L620),ERR=L620$өJITBL$$ ө Reference$ ' Reference $өSKIN6$ '$stdhead /u/webtree/ /whhead.htm6$ '$stdfoot /u/webtree/ /whfoot.htm$ 'SKIN$өJITSRN$өJITPOWWBLT1)3L620: LET TEXT$="{include demomenu.txt}"+3CALL "uthtmout.wbb",ENV$,TEXT$+"",TEXT$,"""3LET TEXT$=FIELD(CGI$,"Reference")+3CALL "uthtmout.wbb",ENV$,TEXT$+"",TEXT$,"" utsend.wbb& utexit.wbb0U2.U3^1000 - problem with utcgi - fatal problem83"If we are here, there was a REAL BIG PROBLEM. Without;3"proper initialization, the DOS/WIN environment has no way93"of contacting the browser of this, so the best thing is73"just to leave gracefully but silently. On Unix, with93"stdout support, a notification of the error can be sent$3"to the browser..8 DOSWINU8 /Content-type: text/html B>/:The following error message was returned by utcgi.wbb:
L/VUENVCGIERRMSGTEXTDUMBL1SRN1PON1SKINDUMMY REFERENCE LOADERRORDONE