':U 'The form input string is: ' '':U WEB-CONTEXT:FORM-INPUT '
~n':U '':U 'The Exclusive Id is: ' '':U WEB-CONTEXT:EXCLUSIVE-ID '
~n':U '':U 'View source to this program' '
~n':U. END. /* Output the HTML trailer */ PUT UNFORMATTED '':U 'This page is produced by a WebSpeed application.' '~n':U '~n':U '~n':U. END. /* ON "WEB-NOTIFY" ... */ /* Redirect the unnamed stream for web output */ OUTPUT TO "WEB":U. /* Detect if this program is being run from web/objects/web-disp.p which runs all Web objects persistent. If so, fire the trigger and return. */ IF THIS-PROCEDURE:PERSISTENT THEN DO: APPLY "WEB-NOTIFY":U TO THIS-PROCEDURE. RETURN. END. /* Otherwise if this procedure is executed directly by an Agent via the -p option in wtb.cnf, then wait for the WEB-NOTIFY event ourself. Of course, the number of different Web objects or procedures you can run is limited to just this one since there's no mechanism to parse the URL and dispatch a program as a result. */ REPEAT: /* Wait for an event to come in from the web. */ WAIT-FOR "WEB-NOTIFY":U OF DEFAULT-WINDOW. END. /* Procedure to lookup a CGI environment variable for this web request. This procedure has similar functionality to the GetCgi procedure in src/web/method/cgiprocs.i except in that case, WEB-CONTEXT:CURRENT-ENVIRONMENT is parsed only once per web request. Input parameter: name of CGI variable to look up Return value: value of CGI variable */ PROCEDURE get-cgi : DEFINE INPUT PARAMETER p-varname AS CHARACTER NO-UNDO. DEFINE VARIABLE search-varname AS CHARACTER NO-UNDO. DEFINE VARIABLE out-value AS CHARACTER NO-UNDO. DEFINE VARIABLE ix AS INTEGER NO-UNDO. DEFINE VARIABLE jx AS INTEGER NO-UNDO. /* Loop through each name=value pair ... */ DO ix = 1 TO NUM-ENTRIES(WEB-CONTEXT:CURRENT-ENVIRONMENT, asc-del): ASSIGN search-varname = ENTRY(ix, WEB-CONTEXT:CURRENT-ENVIRONMENT, asc-del). /* Does it match? */ IF search-varname BEGINS p-varname + "=":U THEN DO: ASSIGN jx = INDEX(search-varname, "=":U) /* If an equals was found, extract the value after it */ out-value = IF jx > 0 THEN SUBSTRING(search-varname, jx + 1) ELSE "". LEAVE. END. END. RETURN out-value. END. /* Procedure to read in a file and send it out. Input paramater: file to output as HTML to the web steram */ PROCEDURE view-source : DEFINE INPUT PARAMETER p-file AS CHARACTER NO-UNDO. DEFINE VARIABLE v-file AS CHARACTER NO-UNDO. DEFINE VARIABLE in-line AS CHARACTER NO-UNDO. /* Find the file in the PROPATH */ ASSIGN v-file = SEARCH(p-file). IF v-file = ? THEN ASSIGN v-file = SEARCH("src/web/examples/":U + p-file). /* If the file was not found, output an error message */ IF v-file = ? THEN DO: PUT UNFORMATTED 'ERROR: ':U SUBSTITUTE('The file &1 was not found.', p-file) '
':U SKIP. RETURN. END. /* Open the file, read it in and write it out */ PUT UNFORMATTED "":U SKIP.
INPUT FROM VALUE(p-file) NO-ECHO.
REPEAT:
IMPORT UNFORMATTED in-line.
/* Now replace some characters with HTML entities so HTML can be
displayed rather than interpreted. Note that the web utility
procedure AsciiToHtml provides the identical functionality to these
replace statements. */
in-line = REPLACE(in-line, "&":U, "&~;":U). /* & */
in-line = REPLACE(in-line, ">":U, ">~;":U). /* > */
in-line = REPLACE(in-line, "<":U, "<~;":U). /* < */
in-line = REPLACE(in-line, '"':U, ""~;":U). /* " */
/* Check for a (very) few keyords at the start of the line. If there's
a match, make the whole line bold. */
IF in-line BEGINS "PROCEDURE":U OR in-line BEGINS "OUTPUT ":U OR
in-line BEGINS "REPEAT":U OR in-line BEGINS "END":U OR
in-line BEGINS "ON ":U THEN
PUT UNFORMATTED "":U in-line "~n":U.
ELSE
PUT UNFORMATTED in-line "~n":U.
END.
INPUT CLOSE.
PUT UNFORMATTED "":U SKIP.
END PROCEDURE.
/* wtbtest.p - end of file */