The Net: Ultimate Internet Guide

home *** CD-ROM | disk | FTP | other *** search

/ The Net: Ultimate Internet Guide / WWLCD1.ISO / pc / foxsrch.wiz / server.exe / SERVER.APP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1996-02-09 | 37.1 KB | 842 lines

PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 COMMENT Screen WINDOWS _R7R060RHK 541595152 WINDOWS _R450XJUGL 541595152 WINDOWS _R450XJULL 541595152 WINDOWS _R450XJUMF 541593228 WINDOWS _R7J0NO4RC 541201875 WINDOWS _R7K0PP4Z1 541156557 COMMENT FONTINFO VERSION = 3.00 dataenvironment dataenvironment Dataenvironment Name = "Dataenvironment" form1 Height = 268 Width = 525 DoCreate = .T. ShowTips = .T. AutoCenter = .T. BackColor = 192,192,192 Caption = "WWW Data Server Log" FontBold = .F. FontSize = 9 Icon = net13.ico WindowType = 1 Name = "form1" ;PROCEDURE addtolog LPARAMETER lcString IF EMPTY(lcString) RETURN .F. ENDIF IF this.lstLog.ListCount>=100 this.lstLog.Clear() ENDIF this.lstLog.AddItem(lcString) ENDPROC PROCEDURE Activate ACTIVATE SCREEN SET MESSAGE TO ENDPROC PROCEDURE Deactivate ACTIVATE SCREEN SET MESSAGE TO ENDPROC LCSTRING LSTLOG LISTCOUNT CLEAR ADDITEM addtolog, Activate Deactivate *addtolog timer timer Timer1 form1 PTop = 230 Left = 10 Height = 25 Width = 25 Interval = 250 Name = "Timer1" $PROCEDURE Timer LOCAL lcFileName,lcWildCard,lcAckFile,lcDataFile,lnDFH,lcParameter,lcResultPage lcWildCard=gcSemaphoreRoot+"*.atn" lcFileName=SYS(2000,lcWildCard) IF EMPTY(lcFileName) RETURN ENDIF thisform.AddToLog("Adding process "+ALLTRIM(lcFileName)) *Erase ATN file ERASE (gcSemaphoreRoot+ALLTRIM(lcFileName)) thisform.AddToLog("Executing process "+lcFileName+".") IF ExecuteProcess(lcFileName) thisform.AddToLog("Process "+lcFileName+" finished.") thisform.AddToLog("Process "+lcFileName+" failed.") ENDIF ENDPROC *.atn Adding process C Executing process Process finished. Process failed. LCFILENAME LCWILDCARD LCACKFILE LCDATAFILE LNDFH LCPARAMETER LCRESULTPAGE GCSEMAPHOREROOT THISFORM ADDTOLOG EXECUTEPROCESS Timer, commandbutton commandbutton cmdCancel form1 Top = 235 Left = 430 Height = 25 Width = 80 FontBold = .F. FontSize = 9 Caption = "Cancel" StatusBarText = "Cancel WWW Data Server" TabIndex = 3 Name = "cmdCancel" 0PROCEDURE Click thisform.Release() ENDPROC THISFORM RELEASE Click, commandbutton commandbutton cmdOptions form1 Top = 235 Left = 345 Height = 25 Width = 76 FontBold = .F. FontSize = 9 Caption = "Options..." StatusBarText = "Options dialog" TabIndex = 2 Name = "cmdOptions" .PROCEDURE Click DO FORM specroot ENDPROC specroot SPECROOT Click, listbox listbox lstLog form1 FontBold = .F. FontSize = 9 Height = 210 Left = 10 StatusBarText = "Data server log" TabIndex = 1 Top = 11 Width = 501 ColorSource = 1 Name = "lstLog" !Arial, 0, 9, 5, 15, 12, 13, 3, 0 PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 COMMENT Screen WINDOWS _R7R04ENXA 541593707 WINDOWS _R6U194EDN 541593707 WINDOWS _R6U194EE7 541155861 WINDOWS _R6U194EER 541155861 WINDOWS _R6U194EF1 541593707 WINDOWS _R6U194EFL 541593707} WINDOWS _R6U194EG6 541593707s WINDOWS _R6U194EGQ 541593707* WINDOWS _R6U194EHA 541593707, WINDOWS _R6U194EHU 541593707& WINDOWS _R7J0NMZNI 541155861 WINDOWS _R7K0Q1B24 541593707 COMMENT FONTINFO VERSION = 3.00 dataenvironment dataenvironment Dataenvironment Name = "Dataenvironment" frmDefaultDirectories Height = 199 Width = 477 DoCreate = .T. ShowTips = .T. AutoCenter = .T. BackColor = 192,192,192 Caption = "Default Directories" FontBold = .F. FontSize = 9 Icon = net13.ico WindowType = 1 Name = "frmDefaultDirectories" label label lblHTTPServer frmDefaultDirectories FontBold = .F. FontSize = 9 BackStyle = 0 Caption = "HTTP Server:" Height = 18 Left = 9 Top = 20 Width = 77 TabIndex = 1 Name = "lblHTTPServer" label label lblScripts frmDefaultDirectories FontBold = .F. FontSize = 9 BackStyle = 0 Caption = "Scripts:" Height = 18 Left = 9 Top = 55 Width = 42 TabIndex = 4 Name = "lblScripts" textbox textbox Text1 frmDefaultDirectories FontBold = .F. FontSize = 9 Height = 24 Left = 85 StatusBarText = "HTTP server directory" TabIndex = 2 Top = 20 Width = 351 Name = "Text1" 2PROCEDURE Init this.Value=gcHTTPRoot ENDPROC VALUE GCHTTPROOT Init, textbox textbox Text2 frmDefaultDirectories FontBold = .F. FontSize = 9 Height = 24 Left = 85 StatusBarText = "Scripts directory" TabIndex = 5 Top = 55 Width = 351 Name = "Text2" 4PROCEDURE Init this.Value=gcScriptRoot ENDPROC VALUE GCSCRIPTROOT Init, commandbutton commandbutton cmdOK frmDefaultDirectories Top = 165 Left = 160 Height = 26 Width = 66 FontBold = .F. FontSize = 9 Caption = "OK" Default = .T. TabIndex = 9 Name = "cmdOK" PROCEDURE Click gcHTTPRoot=ALLTRIM(thisform.text1.Value) gcScriptRoot=ALLTRIM(thisform.text2.Value) gcPath=ALLTRIM(thisform.edit1.Value) lcSafety=SET("safety") ERASE (gcINIFile) lfh=FCREATE(gcINIFile) IF lfh > 0 =FPUTS(lfh,"HTTPRoot="+gcHTTPRoot) =FPUTS(lfh,"ScriptRoot="+gcScriptRoot) =FPUTS(lfh,"Path="+gcPath) =FCLOSE(lfh) ENDIF SET SAFETY &lcSafety thisform.Release() ENDPROC safetyv HTTPRoot= ScriptRoot= Path= SET SAFETY &lcSafety GCHTTPROOT THISFORM TEXT1 VALUE GCSCRIPTROOT TEXT2 GCPATH EDIT1 LCSAFETY GCINIFILE RELEASE Click, commandbutton commandbutton cmdCancel frmDefaultDirectories Top = 165 Left = 255 Height = 26 Width = 66 FontBold = .F. FontSize = 9 Caption = "Cancel" TabIndex = 10 Name = "cmdCancel" >PROCEDURE Click thisform.Release() CLEAR EVENTS ENDPROC THISFORM RELEASE Click, commandbutton commandbutton Command3 frmDefaultDirectories Top = 20 Left = 445 Height = 23 Width = 25 FontBold = .F. FontSize = 9 Caption = "..." TabIndex = 3 Name = "Command3" 9PROCEDURE Click thisform.Text1.Value=GETDIR() ENDPROC THISFORM TEXT1 VALUE Click, commandbutton commandbutton Command4 frmDefaultDirectories Top = 55 Left = 445 Height = 23 Width = 25 FontBold = .F. FontSize = 9 Caption = "..." TabIndex = 6 Name = "Command4" 9PROCEDURE Click thisform.Text2.Value=GETDIR() ENDPROC THISFORM TEXT2 VALUE Click, label label lblPath frmDefaultDirectories FontBold = .F. FontSize = 9 BackStyle = 0 Caption = "PATH:" Height = 18 Left = 9 Top = 90 Width = 37 TabIndex = 7 Name = "lblPath" editbox editbox Edit1 frmDefaultDirectories kFontBold = .F. FontSize = 9 Height = 61 Left = 85 TabIndex = 8 Top = 90 Width = 381 Name = "Edit1" .PROCEDURE Init this.Value=gcPath ENDPROC VALUE GCPATH Init, !Arial, 0, 9, 5, 15, 12, 13, 3, 0 ??????0 ?????? ??????0 MACHINE foxtools.fll Missing FOXTOOLS.FLL ERROR.txt PATHv ERROR net13.ico WWW Data Server vfpis.ini \temp\ DO ErrorHandler WITH ERROR(),MESSAGE(),PROGRAM(),LINENO(),MESSAGE(1) SpecRoot querylog.dbf server ON ERROR &lcError LCPROGRAM LCFULLPATH LNATPOS LCFOXTOOLS LCERROR LCFILENAME LCSCREENICON LCSCREENCAPTION LCSETPATH LNSELECT GCINIFILE GCHTTPROOT GCSCRIPTROOT GCSEMAPHOREROOT GCPATH CAPTION ERROR LCONERROR READINI SPECROOT TIMESTAMP IDCFILE PARAMETERS QUERYLOG SERVER- TCFILENAME LCDATAFILE LCACKFILE LNDFH LNAFH LCPARAMETER GCSEMAPHOREROOT JUSTSTEM LCRESULTPAGE GENPAGE_$ FALSE QUERY_STRING QUERY_STRING DefError ReturnAsFile IDCFile IDCFile QueryLog No .IDC file was specified. The server cannot continue. Specified .IDC file ( ) not found. The server cannot continue. DataSource Template Specified .IDC file ( ) does not contain correct data or cannot be accessed. The template entry could not be located. The server cannot continue. SQLStatement Specified .IDC file ( ) does not contain correct data or cannot be accessed. The SQL statement entry could not be located. The server cannot continue. DefaultParameters MaxRecords UserName Password Expires MaxFieldSize RequiredParameters ERROR Content-Type: text/htmlC The SQL statement supplied by the IDC file could not be understood. The server cannot continue. SELECT INTO INTO CURSOR TempResult SELECT DELETE INSERT UPDATE ALTER TABLE CREATE CURSOR CREATE TABLE FROM The SQL statement FROM table [ ] not found.<BR> Table specified must be in PATH of data server specified in VFPIS.INI.<BR> SQL String: <HR> lFailure = .T. &cExecSQLString ON ERROR &lcError The command generated an error.<BR> Please Contact the system administrator.<BR> SQL String: <HR> FALSE The SQL statement supplied by the IDC file could not be understood. The server cannot continue. The connection to could not be made. The server cannot continue. TempResult The command generated an error.<BR> Please Contact the system administrator.<BR> SQL String: <HR> FALSE TempResultN The template file could not be located. The server cannot continue. The template file ( ) could not be opened successfully. The server cannot continue. <%BEGINDETAIL%> <%BEGINDETAIL%> <%BEGINDETAIL%> <%BEGINDETAIL%> <%BEGINDETAIL%>> <%ENDDETAIL%>C <%ENDDETAIL%> <%ENDDETAIL%>C <%ENDDETAIL%>> <%ENDDETAIL%>C <%ENDDETAIL%>C <%ENDDETAIL%> <%ENDDETAIL%>C <%ENDDETAIL%>> <%ENDDETAIL%>C The template file ( ) contained a mismatched BeginDetail/EndDetail structure. The server cannot continue. "+["]+" <%IF <%ENDIF%>C CONTAINS <%ELSE%>C <%ELSE%>C <%ELSE%>C "+["]+" "+["]+" <%ENDIF%>C <%ENDIF%>C The detail line in contains a mismatched symbol structure. The server cannot continue. EXPTOC( "+["]+" <%IF <%IF <%IF <%IF > The template file contained an improperly formed IF construct. The server cannot continue. <%ENDIF%>C <%ENDIF%> <%ENDIF%>C <%ENDIF%>> <%ENDIF%>C The template file ( ) contained a mismatched If/EndIf structure. The server cannot continue. CONTAINS <%ELSE%>C <%ELSE%>C <%ELSE%>C No matches found. QueryLog Returned CPARAMETERS LNATPOS LCFILENAME LCALIAS LFAILURE CRESULTPAGE LCERROR LNSELECT CSQLSTATEMENT CKEYCOLUMN CDESCRIPTCOLUMN CBACKGROUNDIMG ICOUNT CTMPSTRING CPREVNEXT IDCFILE LCTEMPLATE LCLINE LCTMPLINE LCLINECOPY CEXECSQLSTRING LHTEMPLATE LLDONE LLGETNEWLINE LCTMPEXP LCEXP1 LCEXP2 LCOPERATOR LCIFSTATEMENT LCTRUESTATEMENT LCFALSESTATEMENT LCHTMLPATH LCIDCFILE LCDEFERR LLDEFAULTERROR LCRETURNDATA LLRETURNDATA LAENVVARIABLES LNENVVARIABLES IDC_DATASOURCE IDC_TEMPLATE IDC_SQLSTATEMENT IDC_DEFAULTPARAMETERS IDC_EXPIRES IDC_MAXFIELDSIZE IDC_PASSWORD IDC_REQUIREDPARAMETERS IDC_USERNAME LADEFAULTPARAMETERS LAREQUIREDPARAMETERS CURRENTRECORD LATABLES COMMANDSUCCESS LNRECORDSRETURNED IDC_MAXRECORDS PARSEVARS GETPARAM BLDPATH GCSCRIPTROOT GCHTTPROOT QUERYLOG TIMESTAMP PARAMETERS CLEANUP ERRORPAGE PARMSUB GETIDCP LCSQLSTATEMENT MAKEDATA LNCONN LNEXECRET LCTMPFILE ADDBS JUSTPATH LCSUFFIX LCDETAILEXEC LCIIF LCSYMBOL DETAILEX EVALCOND/ TempResult LNCOUNT TEMPRESULT@ Content-Type: text/htmlC <html><head><title>FoxPro Search Failed</title></head> <body> <h1>FoxPro Search Failed</h1> <hr></body></html> LCERRORMESSAGE CRESULTPAGEm FLDVALUE~ CKEYCOLUMN CURLEN MAXLEN MAXLENGTH <Content-type:text/plain>C An error occurred trying to create your data stream. The server cannot continue. CRESULTPAGE CFILENAME NFSIZE TEMPRESULT IDC_MAXRECORDS ERRORPAGE HTTP_REFERER LCPATH LCREFER LCSUBPATH GCHTTPROOT GETPARAM, LCDETAILLINE LASYMBOLTABLE CRESULTPAGE LNMAXRECORDS LNCOUNT IDC_MAXRECORDS LNRECORDSRETURNED TEMPRESULT CURRENTRECORD! LCCONDITIONAL LASYMBOLTABLE2 eExprValb eExprValb eExprValb FALSE6 eExprValb eExprValb ***** EEXPRVAL. DEFAULTPARAMETERS REQUIREDPARAMETERS CIDCFILE CPARAMETER ADEFARRAY LLFOUND LHIDC LCLINE LCLINETOK LLDONE LCADDLINE LCVALUE LNPARAMETERS! LAENVVARIABLES NLOCATION LLDONE NFROMK INSTR INNUM INSEP MAXNUM START 0123456789.E-CC LCNUMBERt LCROOTSTRING LAENVVARIABLES LCFILLEDSTRING LNENVVARIABLES CPARAMETERS LAENVVARIABLES LLCREATE NVCOUNT CTOKEN GETTOKEN STRIPASCIIk CLSTRING CREPLACE GETHEXB NRVAL GETVALp NRVAL~ HTTPROOT SCRIPTROOT SEMAPHORE FILENAME PRDLINE PTOKEN PVALUE GCHTTPROOT GCSCRIPTROOT GCSEMAPHOREROOT GCPATHD is.ini specroot GCINIFILE GCHTTPROOT GCSCRIPTROOT SPECROOT error.txt error.txt ERROR Error occured : <<DATE()>> at <<TIME()>> Error message : <<tcMsg>> Error number : <<tnErrorNo>> Procedure name: <<PROPER(tcProgramName)>> Line number : <<tnLineNo>> Alias : [<<ALIAS()>>] Record number : <<RECNO()>> <<tcCodeLine>> TNERRORNO TCMSG TCPROGRAMNAME TNLINENO TCCODELINE LADIR ERROR executeprocess genpageq Cleanup errorpage FormFldn1 Findmkl MakeData bldpatho4 DetailExq5 EvalCond 7 exptocc7 getidcp getparamC< GetToken isnum parmsubDA ParseVars StripASCII gethex getval readiniqE runspecOG ErrorHandler GIF89a )))999BBBkkksss s{{JRRBRR{ 9BJ19BR 9-&&123//*&2 QrDIy3[ server.scx server.sct specroot.scx specroot.sct net13.ico server.prg d:\temp\ server.fxp foxsm.gif