/*********************************************************************** * * * Marist standard method for setting informational variable for CGIs * * * * Version 3.1 * * * **********************************************************************/ /*%Copyright Copyright (c) 2000 Marist College */ Parse arg cgi vers . 'CALLPIPE (name search00) *.input.0: | ewget vars form. formptr.' /* Thread number is eweb.thread */ 'Callpipe (name fdrhttp02) *.input.2: | varload' aa = 'THREAD' thread = eweb.aa Address "COMMAND" 'GLOBALV SELECT HTTPD GET' , 'VRM SERVER_SOFTWARE_LIST SERVER_URL SERVER_NAME' , 'GMTOFFSET SERVER_PORT PORT' Address "COMMAND" 'GLOBALV SELECT THREAD'thread 'GET' , 'PATH QUERY_STRING HTTP_REFERER REMOTE_ADDR VERB' , 'REQUEST_METHOD REMOTE_USER PATH_TRANSLATED' referer = http_referer server_software = server_software_list tz = gmtoffset server_url = 'http://www.fdrlibrary.marist.edu/' "CALLPIPE (name fdrhttp02) < FDRHTTP HEADER |join * | *:" fdrcgi = cgi vers Address Command 'GLOBALV SELECT FDR PUT FDRCGI' 'OUTPUT' , '' 'OUTPUT' "' 'OUTPUT' "" If referer <> '' Then , 'OUTPUT' "" 'CALLPIPE REXXVARS TOLOAD | VARLOAD 1'