SREFILTER ERROR

/*3/97. this is the SRE-FILTER configuration routine */ /* to add variables: 1) Create a new Param.nn line (say, Param.30='NEW_CONTROL') 2) Create a new set of output lines in the DISPLAY THEM section 3) Create a new set of output lines in the CHANGE THEM section */ config2: CHECKIT=0 /* Change this to 0 if you want to enable REMOTE configuration by SUPERUSERS */ USECOLOR='2dd52f' /* ---------------- DO NOT MODIFY BELOW THIS LINE ------------------ */ parse arg ddir,tempfile,sel,list,verb,uri,user,basedir,workdir,privset, , enmadd,transaction,verbose,servername,host_nickname,homedir if verb="" then do say " This SRE-Filter procedure is not meant to be run in stand-alone mode. " say " You should invoke it using CONFIGUR.HTM ! " exit end /* Do */ list=translate(list, ' ', '+'||'090a0d'x) /* Whitespace, etc. */ crlf = '0d0a'x who2=extract('CLIENTADDR') saddr2=extract('SERVERADDR') select when checkit=1 then do /* only if user = serveraddress !!! */ if who2<>saddr2 then do call lineout tempfile, '' call lineout tempfile, "SREFILTER ERROR " call lineout tempfile, '' call lineout tempfile,' Action not allowed remotely.
'
        call lineout tempfile,'   '
        call lineout tempfile
        'FILE ERASE TYPE text/html NAME' tempfile
        return 'CONFIG2: action not allowed remotely. '
     end
   end
   otherwise do
      if wordpos('SUPERUSER',privset)=0 then do

      'header add WWW-Authenticate: Basic Realm='  /* challenge */
        call lineout tempfile, ''
        call lineout tempfile, "Not authorized "
        call lineout tempfile, ''

        call lineout tempfile,'  You do not have configuration rights. '
        if who2=saddr2 then 
                call lineout tempfile,'
  You may want to edit CONFIG2.CMD  '
        call lineout tempfile,'   '
        call lineout tempfile
        return sref_response('unauth', "You do not have configuration rights ",tempfile,servername)
      end
   end
end

/* go get initfilt */
aport=extract(serverport)
afile=basedir||"\INITFILT."||aport


/* the following directories and files are subject to change */
fd.1="messbox_dir"   /* location of message boxes  */
fd.2="tempfile_dir"     /* workspace for server side programs */
fd.3="counter_file" /* used by REPLACE HITS and REPLACE COUNTS keyphrase */
fd.4="record_all_file" /* used if record_option =YES or YES_ALL */
fd.5="sendfile_file"  /* used by the SENDFILE facility*/
fd.6="access_file"   /* used if ALLOW_ACCESS=YES or INHOUSE*/
fd.7="alias_file"   /* list of aliases */
fd.8="repstrgs_file"  /* custom written variables for REPLACE keyphrase */
fd.9="user_file"    /* username/password/privileges file */
fd.10="upload_dir"  /* upload directory (used by GET_URL) */
fd.11="upload_log"  /* log file for upload tracking */
fd.12="cgi_bin_dir" /* cgi-bin directory */
fd.13="virtual_file" /* file containing virtual directory information */
fd.14="mailbox_dir"   /* location of incoming e-mail box */
fd.15="tempdata_dir" /* workspace for srefilter */
fd.16="workdata_dir" /* permanent sre-filter "data file" directory */
fd.17='logon_fail_file' /* file sent if logon failure */
fd.18='access_fail_file' /* file sent if sel-specific access failure */

fd.0=18
do mm=1 to fd.0
   fd.mm=translate(strip(fd.mm))
end



/* IF THE VERB IS POST-- THEN THIS IS A "WRITE INFO CALL
   IF IT'S GET, THEN ITS A "SHOW INFO" OR "LET ME CHANGE INFO" CALL
*/

if translate(verb)="POST" then signal write_it



/* IF HERE, VERB=GET --- so show vars or request changes  */



parse upper var list foo '=' todo
ll=list
nickname=' '
do until ll=' '
   parse var ll a1 '&' ll
   parse var a1 a1a '=' a2a ; a2a=packur(a2a) ; a1a=packur(a1a)
   if upper(a1a)='TODO' then todo=upper(a2a)
   if upper(a1a)='HOST_NICKNAME' then nickname=strip(upper(a2a))
end /* do */

/* read initfilt.80 file into internal storage */

FOO=fileREAD(AFILE,'FILELINES',,'E')
IF FOO=0 THEN DO
  SAY " CONFIG2 ERROR: COULD NOT READ INITFILT FILE "
  'String  Error reading initfilt file '
  return "CONFIG2 ERROR: Could Not read INITFILT FILE "
end

/* convert < to < and > to > */
i=0
do mm=1 to filelines.0
  big=fix_me(filelines.mm)
  filelines.mm.igot=0           /* fill this is later */
  filelines.mm.name=0           /* assume it's comment/blank */
  filelines.mm.stem=' '          /* assume is non stem var */
  filelines.mm.value=' '
  if big  <>" " then do
     big=sref_replacestrg(big,'<','<','all')
     big=sref_replacestrg(big,'>','>','all') 
     filelines.mm=big
     if abbrev(strip(big),';')=0  then do
         parse var big atype '=' avalue 
         if words(atype)=1  then do
             parse upper var atype aname '.' astem
             filelines.mm.name=upper(strip(aname))
             filelines.mm.value=strip(strip(avalue),,"'")
             if astem<>' ' then filelines.mm.stem=astem
             opop=filelines.mm.name
             if nickname=' ' & verify(astem,'0123456789 .')>0 then do
                  nop                   /* no nickname, but nickname in entry */
             end
             else do
                if symbol('quiklist.opop')='VAR' then do
                   quiklist.opop=quiklist.opop' 'mm
                end
                else do
                   quiklist.opop=mm
                end   /* quiklist */
             end   /* verify/nickname */
          end      /* one work name */
      end       /* comment */
   end          /* not ' ' line */
end      /* loop over lines */

/* the following is a list of parameters that we will adjust 
(if end in ., it's a stem variable)*/

/* logon control variables */
param.1="checklog"  /* whether require logon: NO YES ALWAYS INHOUSE*/
param.2="owners"     /* list of owners */
param.3="inhouseips."  /* stem variable of inhouse ips */
param.4="unallowedips." /* stem variable of unallowed ip */

/* request string modification variables */
param.5="default"   /* the default page : A file name relative to ddir*/
param.6="xxxyyyzzz"      /* fill in later */
param.7="home_dir"    /* the ~ substitution */
param.8="auto_name"  /* list of potential "default documents" for directories */

/* access and auditing variables */
param.9="allow_access"   /*File specific: YES=no control, INHOUSE=inhouse only, NO=Superusrs */
param.10="record_option" /*NO YES YES_ALL FILE arguments*/
param.11="verbose" /*  */

/* stem variables for  REPLACE keyphrase */
param.12="headers."     /* stem variable of headers */
param.13="footers."    /* stem variable of footers */
param.14="inhouse."    /* stem variables for replace inhouse. static variables */
param.15="superuser."  /* stem variables for replace superuser. static variables*/

/* static variables for REPLACE keyphrase */
param.16="webmaster"   /* string containing the webmasters url */
param.17="home_name"  /* colloquial name of this server */

/* misc. static variables (used for a variety of internally generated messages  */
param.18="the_realm"    /* Colloquial name of "inhouse" folks*/
param.19="option_hit_line" /* variable used with option_hit.n and option_count.n */
param.20="not_found_url" /* string returned with 404 error */

/* late additions */
param.21="INHOUSE_PRIVS"
param.22="PUBLIC_PRIVS"
param.23="PUBLIC_URLS."  /* stem var of public urls */
param.24="AUTO_HEADER"
param.25="UPLOAD_MAXSIZE"
param.26="UPLOAD_MINFREE"
param.27="NOEXT_TYPE"
param.28="POST_FILTER"
param.29="PRE_FILTER"
param.30="DNS_CHECK"
param.31="SMTP_GATEWAY"
param.32='SSI_SHTML_ONLY'
param.33='HOSTS.'
param.34='DO_HTACCESS'
param.35='FIX_EXPIRE'
param.36='HIT_CACHE_LEN'
param.37='HIT_CACHE_DURATION'
param.38='HIT_OWNER_SUPPRESS'
param.39='CHECK_ADD_PRIVS'
param.40='DIR_OPTIONS'
param.41='DIR_EXCLUSION'
param.42='SSI_CACHE_ON'
param.43='WRITE_LOGS'

param.0=43
do mm=1 to param.0
   param.mm=strip(translate(param.mm))
   param.mm.stem=0
   if pos('.',param.mm)>0 then param.mm.stem=1
   param.mm=strip(param.mm,,'.')
end


/* Note that a number of variables will  NOT be settable by this program.  
Ambitious users can go into INITFILT.80 and edit these parameters.
*/


/* ************************  DISPLAY THEM --------------------------------*/
if todo="SHOW" then do
   call lineout tempfile, ''
   call lineout tempfile, "SRE-Filter Configurator: Current Parameters"
   call lineout tempfile, ''

   call lineout tempfile," 
  Current Settings of SRE-FILTER's Parameters  "
   if nickname<>'' then do
        call lineout tempfile,'  For parameters specific to the ' nickname ' host.'
        call lineout tempfile,'  You selected ' nickname '  as the  target "host nickname" '
        call lineout tempfile,' The top half of this document contains only parameters specific to ' nickname '. '
        call lineout tempfile,' Non host-specific parameters, which are used when a host-specific parameter is '
        call lineout tempfile,' not specified, are listed  at  '
        call lineout tempfile,' the  bottom half of the document. '

   end  /* Do */

   call lineout tempfile, '  Logon Control Variables 
  '
   do mm=1 to 4
       foo=write_1(mm)
   end
   foo=write_1(30)

  call lineout tempfile,'   PUBLIC_URLS 
  '
   foo=write_1(23)

  call lineout tempfile,'    HOST Identifiers 
  '
     foo=write_1(33,2)

  call lineout tempfile,'    Request  modification variables  
  '
    do mm=5 to 8
        if mm=6 then iterate
       foo=write_1(mm)
    end
    foo=write_1(27)
    foo=write_1(40)
    foo=write_1(41)
 
   call lineout tempfile,'   Reponse header creation, Pre and Post filters 
  '
   foo=write_1(24)
   foo=write_1(28)
   foo=write_1(29)

  call lineout tempfile,'    File access and auditing variables  
  '
   do mm=9 to 10
       foo=write_1(mm)
    end
    foo=write_1(21)
    foo=write_1(22)
    foo=write_1(34)
    foo=write_1(43)

    foo=write_1(36)
    foo=write_1(37)
    foo=write_1(38)
    foo=write_1(39)

  call lineout tempfile,'   SSI control and stem variables for REPLACE keyphrase 
  '
   foo=write_1(32)
   foo=write_1(42)
   do mm=12 to 15

       foo=write_1(mm)
    end

  call lineout tempfile,'    Other variables for REPLACE keyphrase  
  '
   do mm=16 to 17
       foo=write_1(mm)
    end

  call lineout tempfile, ' Upload control, and E-Mail support, variables 
  '
  do mm=25 to 26
     foo=write_1(mm)
  end
  foo=write_1(31)

  call lineout tempfile,'   Miscellanous variables (used for error messages, etc.) 
  '
   do mm=18 to 20
       foo=write_1(mm)
    end
    foo=write_1(35)

  call lineout tempfile,'  
    Files and Directories .. 
  '
  do mm2=1 to fd.0
      foo=write_1(mm2,1)
  end
 CALL LINEOUT TEMPFILE,''


   call lineout tempfile,' 
   Other  SRE-FILTER Parameters    '
   call lineout tempfile,' Note that the following parameters and filenames: '
   call lineout tempfile,'  Either apply to a  different HOST.  To change them, '
   call lineout tempfile,' re-run this configurator with a different HOST NICKNAME'
   if nickname<>' ' then do
     call lineout tempfile,' 
Are non-host specific parameters (which may'
     call lineout tempfile,' be used if there is no host-specific entry for the parameter)'
   end
   call lineout tempfile,' 
Are parameters that this configurator will not modify.'

   call lineout tempfile,"  To change them, you'll have to edit INITFILT."aport
   call lineout tempfile,'  
 
'
   call lineout tempfile, '   '

  spuds=0
   do mm=1 to filelines.0               /* write other host/ misc lines */
       findit=filelines.mm.name
       if findit=0 then iterate
       IF FILELINES.MM.IGOT=1 then ITERATE
       avalue=filelines.mm.value
       dostem=filelines.mm.stem
       spuds=spuds+1
       tofus.spuds.afindit=findit
       tofus.spuds.aavalue=avalue
       tofus.spuds.adostem=dostem
       tofus.spuds.jdone=0
   end
/* sort into "non-host specific" and "host-specific" terms */
   do mu=1 to spuds             /* the non-host specific terms */
       dostem=tofus.mu.adostem
       findit=tofus.mu.afindit
       avalue=tofus.mu.aavalue
       if dostem=' ' then do
          call lineout tempfile, "  " findit " = " avalue ' 
'
          tofus.mu.jdone=1
       end
       else do
          foox=lastpos('.',dostem)
          yeek=substr(dostem,foox+1)
          if datatype(yeek)='NUM' then do
              call lineout tempfile, " 
 " findit ||'.'|| dostem " = " avalue ' 
'
              tofus.mu.jdone=1
          end
       end
   end /* do */
   call lineout tempfile,'
 '

ndid=1
do until ndid=0
   ndid=0

   do mu=1 to spuds
       if tofus.mu.jdone=1 then iterate
       ndid=ndid+1
       dostem=tofus.mu.adostem
       foox=lastpos('.',dostem)
       yhost=substr(dostem,foox+1)
       if ndid=1 then do
          nowhost=yhost
       end
       else do
           if yhost<>nowhost then iterate 
       end  /* Do */
       findit=tofus.mu.afindit
       avalue=tofus.mu.aavalue
       if dostem=' ' then do
          call lineout tempfile, "  " findit " = " avalue ' 
'
          tofus.mu.jdone=1
       end
       else do
           call lineout tempfile, " 
 " findit ||'.'|| dostem " = " avalue ' 
'
           tofus.mu.jdone=1
       end
   end /* do */
   call lineout tempfile,'
 '

end
call lineout tempfile,''


call lineout tempfile,'  '
call lineout tempfile,'  Note: REXX Comments may point to parameter-entry errors!   '
call lineout tempfile,' 
    '
call lineout tempfile

tt=sref_expire_response(0.05,dosdir(tempfile,'s'))
'FILE ERASE TYPE text/html NAME' tempfile
return ' '

end


/* ****************      CHANGE THEM --------------------------------. */
else do                         


 call lineout tempfile, ''
  call lineout tempfile, "SRE-Filter Intermediate Mode Configurator: Modify Parameters "
        call lineout tempfile, ''

        call lineout tempfile,'  SRE-Filter Configurator: Intermediate Mode '
  call lineout tempfile,'  Change parameter values '
  call lineout tempfile,'This form allows you to change most (but not all) of the SRE-Filter parameters. '
  call lineout tempfile,'The current values are shown, and are retained if not explicitily modified.'
 
  if  nickname<>' 'then do
     call lineout tempfile,'  You selected the  ' nickname ' host nickname.'
     call lineout tempfile,' Parameters specific to  ' nickname ' '
     call lineout tempfile,'will be displayed (and modified). '
     call lineout tempfile,'
 Note: When  a  ' nickname '  specific parameter is not available,'
     call lineout tempfile,' the default (non host-specific) version is used.'

  end  /* Do */

  call lineout tempfile,'
 If the explanations here are insufficient, '
  call lineout tempfile,' INITFILT.DOC'
  call lineout tempfile,'might help!'
  call lineout tempfile,'
'
  call lineout tempfile,' Notes: '
  if nickname<>' ' then do
     call lineout tempfile,'  If you want to leave a field blank, we advise inserting a 0  -- since SRE-Filter will attempt '
     call lineout tempfile,' to use the default (non host-specific) parameter whenever it finds an empty variable (this'
     call lineout tempfile,' is a design "feature" ' " of REXX's use of the OS/2 environment)!
"
  end
  call lineout tempfile,' 
 To change the "more obscure" parameters not mentioned here you will have to'
  call lineout tempfile,' edit INITFILT.'||aport ' by hand (see INITFILT.DOC for details) '
  call lineout tempfile,'
 A caution: '
  call lineout tempfile," do not use single quote (') characters (they will cause errors)!"
  call lineout tempfile,'
'
  call lineout tempfile,''

  call lineout tempfile,'  Quick jumps...  
'

  call lineout tempfile,'    Logon, privileges, HOSTS, and Public URLS '
  call lineout tempfile,' 
 CHECKLOG, OWNERS, INHOUSEIPS. INHOUSE_PRIV, PUBLIC_PRIVS, UNALLOWED_IPS., DNS_CHECK, HOSTS., PUBLIC_URLS.'
  call lineout tempfile,' 
Request modification '
  call lineout tempfile,' 
 DEFAULT, HOME_DIR, NOEXT_TYPE, AUTO_NAME DIR_OPTIONS DIR_EXCLUSION '
  call lineout tempfile,'
 Access and Auditing '
  call lineout tempfile,' 
 ALLOW_ACCESS, DO_HTACCESS, WRITE_LOGS, RECORD_OPTION, HIT_CACHE_LEN, HIT_CACHE_DURATION, HIT_OWNER_SUPPRESS, CHECK_ADD_PRIVS '
  call lineout tempfile,' 
SSI control, Response Header, Pre-filter and Post-Filter, and Uploading '
  call lineout tempfile,' 
 AUTO_HEADER, PRE_FILTER, POST_FILTER, SSI_SHTML_ONLY, SSI_CACHE_ON, SMTP_GATEWAY, UPLOAD_MINFREE, UPLOAD_MAXSIZE '
  call lineout tempfile,' 
String Replacements '
  call lineout tempfile,' 
 HEADERS., FOOTERS., INHOUSE. message, SUPERUSER. message, WEBMASTER address, HOME_NAME '
  call lineout tempfile,'
 Miscellaneous '
  call lineout tempfile,' 
 THE_REALM, OPTION_HIT_LINE, NOT_FOUND_URL, FIX_EXPIRE '
  call lineout tempfile,'
 File & Directory Names '
  call lineout tempfile,'
   and when you are done..  '
  call lineout tempfile,', '
  call lineout tempfile,'  or you can  '
  call lineout tempfile,''



  call lineout tempfile,' 
 '

  call lineout tempfile,'  Logon, Privileges, and Public URLS '

  call lineout tempfile,''


/* CHECKLOG */

  call lineout tempfile,' CHECKLOG:'
  v.1="NO" ; v.2="YES" ; v.3="ALWAYS" ; v.4="INHOUSE" ;
  foo=do_radio(1,4)
  call lineout tempfile,'
'
  call lineout tempfile,'CHECKLOG controls the logon-level:'
  call lineout tempfile,''
  call lineout tempfile,'NO : Logon never required'
  call lineout tempfile,'
YES : Logon required for "empty" (home-page) requests'
  call lineout tempfile,'
ALWAYS : Logon required for any request'
call lineout tempfile,'
INHOUSE : Only requesters with predefined, or explicitily granted (in the'
call lineout tempfile,'USERS.IN file) privileges of INHOUSE or SUPERUSER are allowed in.'
call lineout tempfile,''


/* owners */
call lineout tempfile,'
 OWNERS:'
call lineout tempfile,' '
call lineout tempfile,'
'
call lineout tempfile,'OWNERS is a space delimited list of  numeric  IP addresses of the OWNERS.  Owners'
call lineout tempfile,'are automatically granted SUPERUSER privileges.'
call lineout tempfile,'Wildcards are NOT allowed in the OWNERS list '

/* INHOUSEIPS.ips */
foo=find_val(3,2)
call lineout tempfile,'
 INHOUSEIPS.:'
call lineout tempfile,' '
call lineout tempfile,foo
call lineout tempfile,''
call lineout tempfile,'
'
call lineout tempfile,' INHOUSEIPS. is a "stem" variable that contains the IP '
call lineout tempfile,' addresses (numeric or name) of requesters who will be automatically granted INHOUSE privileges.'
call lineout tempfile,' 
 You should enter each of these addresses on a  seperate line  .'
call lineout tempfile,'  Wildcards (the * character) are allowed'
call lineout tempfile,'  In addition, you can put (optional)privileges after the '
call lineout tempfile, ' the IP address. '
call lineout tempfile,' 
 Examples: 
  152.22.12.* 
515.21.512.51 VIEWMESS PROJ1'
call lineout tempfile,' 
 pf.ourisp.org  
551.21.512.*  '
call lineout tempfile, ' 
 Note that 515.21.512.51 is granted VIEWMESS and PROJ1 privileges '
call lineout tempfile, " (in addition to the INHOUSE_PRIV's privleges) "


/*INHOUSE_PRIVS*/
call lineout tempfile,'
 INHOUSE_PRIVS:'
call lineout tempfile,' '
call lineout tempfile,'
 INHOUSE_PRIVS is a space delimited list of  "extra"'
call lineout tempfile,' privileges to give to OWNERS and to IN-HOUSE requesters.'
call lineout tempfile,' 
It is  highly recommended that INHOUSE'
call lineout tempfile,' be included in this list! '
call lineout tempfile,' Example: if you want to give all IN-HOUSE requesters '
call lineout tempfile,' message-box reading privileges, add VIEWMESS to this list.'

/*PUBLIC_PRIVS*/
call lineout tempfile,'
 PUBLIC_PRIVS:'
call lineout tempfile,' '
call lineout tempfile,'
 PUBLIC_PRIVS is a space delimited list of "extra" '
call lineout tempfile,' privileges to give to  everyone. '


/* Unallowed ips */
foo=find_val(4,2)
call lineout tempfile,'
 UNALLOWEDIPS.:'
call lineout tempfile,' '
call lineout tempfile,foo
call lineout tempfile,''
call lineout tempfile,'
'
call lineout tempfile,' UNALLOWEDIPS. is the "opposite" of INHOUSEIPS. It is a list of '
call lineout tempfile,' the IP addresses of requesters who will NOT be allowed access.'
call lineout tempfile,' Note  INHOUSEIPS. and OWNERS takes precedence over UNALLOWEDIPS.'
call lineout tempfile,' Thus, entering *.*.*.* as an UNALLOWEDIPS. will keep everyone, except '
call lineout tempfile,' OWNERS and INHOUSE requesters, out! '

/* DNS_CHECK */
  call lineout tempfile,'
 DNS_CHECK:'
  v.1="NO" ; v.2="YES"  
  foo=do_radio(30,2)
  call lineout tempfile,'
'
  call lineout tempfile,'DNS_CHECK controls whether a domain name check should occur:'
  call lineout tempfile,''
  call lineout tempfile,"NO : Do not check the user's  IP Name  "
  call lineout tempfile,"
YES : Get the user's  IP Name  (by calling the DNS), and deny access if not found"
  call lineout tempfile,''
  call lineout tempfile,' DNS_CHECK=YES  provides extra security, but will slow response time '
  call lineout tempfile, ' (and may keep out legitimate clients with faulty DNS servers).'

/* hosts */
foo=""
call lineout tempfile,'
 HOSTS.:'
call lineout tempfile,' '
foo=find_val(33,1)
call lineout tempfile,foo
call lineout tempfile,''
call lineout tempfile,'
'
call lineout tempfile,'HOSTS. is a stem variable used to identify what HOSTS '
call lineout tempfile,'GoServe is servicing.'
call lineout tempfile,'Each HOSTS. entry should contain the following comma-delimited information:
'
call lineout tempfile,' IP_address , host_nickname , default_dir '
call lineout tempfile,'Where 
'
call lineout tempfile,'IP_address is the IP address (numeric or character) of the host. 
'
call lineout tempfile,' host_nickname is the "nickname" that you will use to refer to this host 
'
call lineout tempfile,' default_directory is the default data directory for this host '
call lineout tempfile,' Examples:'
call lineout tempfile,'www.ag.gov , main , e:\WWW1  
'
call lineout tempfile,'
w3.ag.gov , second , e:\WWW2  
 0'
if nickname<>' ' then
  call lineout tempfile,' Reminder: the HOSTS. parameters are NOT host-specific! '

/* public urls */
foo=find_val(23)
call lineout tempfile,'
 PUBLIC_URLS.:'
call lineout tempfile,' '
call lineout tempfile,foo
call lineout tempfile,''
call lineout tempfile,'
'
call lineout tempfile,' PUBLIC_URLS. is a "stem" variable that contains a '
call lineout tempfile,' list of "publically accessible URLs".  These URLs '
call lineout tempfile,'will be available to all requesters -- no logon or '
call lineout tempfile,'access control is attempted when PUBLIC_URLS are requested.
'
call lineout tempfile,'PUBLIC_URLS. entry may include * (for wildcard matching). 
'
call lineout tempfile,'You can also specify LITERAL  PUBLIC_URLS. 
'
call lineout tempfile,'  Note that PUBLIC_URLS. entries  will be checked against your ALIASES'

call lineout tempfile,'  '
call lineout tempfile,'   '
call lineout tempfile,' go to top of document '
call lineout tempfile,'   '
call lineout tempfile,'  Request Modification  
'
call lineout tempfile,'  '

/* DEFAULT */
call lineout tempfile,' 
 DEFAULT:'
call lineout tempfile,' '
call lineout tempfile,'
'
call lineout tempfile,' Enter the name of the HTML document to be used as your '
call lineout tempfile,' "default document" (your home page).  This will be used '
call lineout tempfile,' when an empty request selector is recieved. 
Note that  '
call lineout tempfile,' INDEX.HTM (located in the root of your "data directory") '
call lineout tempfile, ' is often used as the default document.'



/* HOME_DIR */
call lineout tempfile,'
 HOME_DIR:'
call lineout tempfile,' '
call lineout tempfile,'
'
call lineout tempfile,' HOME_DIR is used when a ~ appears in the request selector. '
call lineout tempfile,' Typically, it is a shorthand for a "home directory" --'
call lineout tempfile,' under which personal directories are placed.'
call lineout tempfile,' 
Advanced option:  include a $ to specify a  web subdirectory '
call lineout tempfile,' of the   personal  directory.'


/* NOEXT_TYPE */
call lineout tempfile,'
 NOEXT_TYPE:'
v.1="NO" ; v.2="DIR" ; V.3="REDIR" ; v.4="HTM" ; v.5="HTML"
  foo=do_radio(27,5)
call lineout tempfile,'
 NOEXT_TYPE controls how SRE-FILTER handles request that '
call lineout tempfile,' have no extension, that do not have a ? in them, and that do not '
call lineout tempfile,' end with a /.    NO : Use as is '
call lineout tempfile,' 
DIR: Treat as directories (append a / to the end) '
call lineout tempfile,' 
REDIR: Append a /, and then redirect '
call lineout tempfile,' 
 HTM or HTML : Treat as HTML documents (append a '
call lineout tempfile,' .HTM or a .HTML respectively) '



/* AUTO_NAME */
call lineout tempfile,'
 AUTO_NAME:'
call lineout tempfile,' '
call lineout tempfile,'
'
call lineout tempfile,' AUTO_NAME is a space delimited list of "default document for directories".'
call lineout tempfile,' It is used when NOEXT_TYPE=DIR, and a  request for a '
call lineout tempfile, 'directory name (an action that ends with a /) is recieved.'
call lineout tempfile,' 
 Notes:   a *.HTM (or *.HTML)  means "use a file called directory_name.htm (or .html) "  '
call lineout tempfile, ' (if it exists in the requested directory) '
call lineout tempfile,'  !CREATE means "create a list of links to each file in the directory '


/* DIR_OPTIONS */
call lineout tempfile,'
 DIR_OPTIONS:'
call lineout tempfile,' '
call lineout tempfile,'
'
call lineout tempfile," DIR_OPTIONS is used by the DIR: SRE-Filter's built in directory lister."
call lineout tempfile,' 
 It is used to customize the format and content of the directory listing.'
call lineout tempfile,'
Notes:DIR_OPTIONS should contain a space-delimited list of options'
call lineout tempfile, '
 DIR is used when a !CREATE option is included in '
call lineout tempfile,' the AUTO_NAME variable '



/* DIR_EXCLUSION */
call lineout tempfile,'
 DIR_EXCLUSION:'
call lineout tempfile,' '
call lineout tempfile,'
'
call lineout tempfile," DIR_EXCLUSION is used by the DIR: SRE-Filter's built in directory lister."
call lineout tempfile,' 
 It is used to indicate files and directories that should not be displayed.'
call lineout tempfile,'
Notes:DIR_EXCLUSION should contain a space-delimited list of filenames and directory_names'
call lineout tempfile,' 
 To indicate subdirectories, start the directory_name with a / '
call lineout tempfile, '
 DIR is used when a !CREATE option is included in '
call lineout tempfile,' 
 You can use * as a wildcard character '
call lineout tempfile,' the AUTO_NAME variable '



call lineout tempfile,'  '
call lineout tempfile,'   '
call lineout tempfile,' go to top of document '
call lineout tempfile,'   '
call lineout tempfile,' Access and Auditing '
call lineout tempfile,' '

/* ALLOW_ACCESS */
call lineout tempfile,'
 ALLOW_ACCESS:'
  v.1="YES" ; v.2="INHOUSE" ; v.3="NO"
  foo=do_radio(9,3)
call lineout tempfile,'
ALLOW_ACCESS turns on and off "URL" specific access control'
call lineout tempfile,'  YES = Do not check (allow all requests to go through'
call lineout tempfile,' 
 INHOUSE = Check access privileges of everyone except OWNERS or INHOUSE requesters.'
call lineout tempfile,' 
  NO = Check access privileges of everyone except OWNERS '
call lineout tempfile, ' (those with SUPERUSER privileges) '
call lineout tempfile,' Notes:  ALLOW_ACCESS uses the ACCESS_FILE to store file-specific access information'
call lineout tempfile,'  '


/* DO_HTACCESS */
call lineout tempfile,'
 DO_HTACCESS:'
htfile=get_value('DO_HTACCESS')
  v.1="YES" ;  v.2="NO"
  foo=do_radio(34,2)
call lineout tempfile,'
DO_HTACCESS turns on and off the HTACCESS-file method "directory" specific access controls'
call lineout tempfile,'  YES = Look for, and use, HTACCESS files to control access '
call lineout tempfile,' 
  NO = Do not attempt to use HTACCESS files '
call lineout tempfile,' Notes:  ALLOW_ACCESS and DO_HTACCESS can be used simultaneously '
call lineout tempfile,'
 The  name of (directory specific) HTACCESS file is set using the HTACCESS_FILE variable.'
call lineout tempfile,' 
  HTACCESS_FILE  is currently: ' htfile ''

call lineout tempfile,'  '


/* write common-log */
call lineout tempfile,'
 WRITE_LOGS:'
  v.1="YES" ; v.2="NO"
  foo=do_radio(43,2)
call lineout tempfile,'
 WRITE_LOGS instructs SRE-FILTER to record requests in'
call lineout tempfile,' the common-log audit file (and in the browser and referer log files).'
call lineout tempfile,'   NO = Do  NOT record requests in the log files.'
call lineout tempfile,' 
YES =Record requests '
call lineout tempfile,' Note: see the SREFLOGS.INI file for additional common-log options. 
'


/*RECORD_OPTION */
call lineout tempfile,'
 RECORD_OPTION:'
  v.1="YES" ; v.2="YES_ALL" ; v.3="FILE" ; v.4="NO" ; 
  foo=do_radio(10,4)
call lineout tempfile,'
 RECORD_OPTION turns on and off "recording all requests"'
call lineout tempfile,'  YES = Record all requests, but remove arguments (such as ?xxx) first'
call lineout tempfile,' 
YES_ALL = Record all requests, but do not remove "arguments" '
call lineout tempfile,' (this can lead to a lot of unique entries!) '
call lineout tempfile,' 
 FILE = Record all request by absolute file name (rather then by "URL") '
call lineout tempfile,' 
  NO = Do not record all requests '
call lineout tempfile,' Notes: 
'
call lineout tempfile,' i) RECORD_OPTIONS uses the RECORD_ALL_FILE to keep track of the number '
call lineout tempfile,' of requests recieved, and the date of the most recent request.
'
call lineout tempfile,' ii) Requests that are not "honored" (due to logon or access constraints) are NOT recorded'


/* hit_cache_len and hit_cache_duration */
call lineout tempfile,' 
 
  HIT_CACHE_LEN: '
call lineout tempfile,'  
'
call lineout tempfile,' HIT_CACHE_DURATION: '
call lineout tempfile,' '

call lineout tempfile,'
'
call lineout tempfile,' The HIT_CACHE_ variables are used to prevent recording of "false requests",'
call lineout tempfile,' that occur when a client repetitively reloads a document
'
call lineout tempfile,'  HIT_CACHE_LEN is the size (in kilo bytes) of the recent requests storage cache
'
call lineout tempfile,'  On busy sites, small values of this will cause entries to be prematurely lost.'
call lineout tempfile,' To prevent this, use a value of FILE  -- entries will be stored in a file'
call lineout tempfile,' (this is slower, but should not overload) '
call lineout tempfile,' HIT_CACHE_DURATION is the time (in minutes) each entry is retained.'
call lineout tempfile,' Note that each entry contains a request selector and client IP address '
call lineout tempfile,' (averaging around 50 bytes). '


call lineout tempfile,'
 HIT_OWNER_SUPPRESS:'
  v.1="YES" ; v.2="NO"
  foo=do_radio(38,2)
call lineout tempfile,'
 HIT_OWNER_SUPPRESS instructs SRE-FILTER to not record '
call lineout tempfile,' from OWNERS (as listed in the OWNERS variable).'
call lineout tempfile,'  YES = Do NOT record such requests.'
call lineout tempfile,' 
NO =allow recording '


call lineout tempfile,'
 CHECK_ADD_PRIVS:'
  v.1="YES" ; v.2="NO"
  foo=do_radio(39,2)
call lineout tempfile,'
 CHECK_ADD_PRIVS instructs SRE-FILTER to check the dynamic privileges cache. '
call lineout tempfile,"  YES = Check the dynamic privileges cache for entries that match this client's IP address"
call lineout tempfile,' 
 NO = Do not check '
call lineout tempfile,'  The dynamic-privileges cache is used to grant additional, "transient", '
call lineout tempfile,' privileges to a client.'


call lineout tempfile,'  '
call lineout tempfile,'   '
call lineout tempfile,' go to top of document '
call lineout tempfile,'   '
call lineout tempfile,' Response Header, Pre-filter, and Uploading '
call lineout tempfile,'  '


/*AUTO_HEADER */
call lineout tempfile,'
 AUTO_HEADER:'
  v.1="NO" ; v.2="HEAD" ; v.3="ALWAYS"
  foo=do_radio(24,3)
call lineout tempfile,'
 AUTO_HEADER controls the "automatic creation of response headers"'
call lineout tempfile,' NO = Do not create additional response headers '
call lineout tempfile,'
HEAD = Automatic creation of response headers for HEAD requests'
call lineout tempfile,'
ALWAYS= Automatic creation of response headers fo GET and  HEAD requests'
call lineout tempfile,' Note: When active, LINK and META HTTP-EQUIV elements found in the '
call lineout tempfile,'<HEAD> portion of an HTML document are used to generate additional response headers'

/*PRE_FILTER */
call lineout tempfile,'
 PRE_FILTER:'
  v.1="NO" ; v.2="YES" ; v.3="FIRST"
  foo=do_radio(29,3)
call lineout tempfile,'
 PRE_FILTER controls whether the PREFILTR  "pre-filter" is called '
call lineout tempfile,' before SRE-FILTER processes the request .'
call lineout tempfile,'   NO = Do not call a pre-filter '
call lineout tempfile,'  
 YES =Call a pre-filter after ascertaining logon rights'
call lineout tempfile,' 
 FIRST = Call a pre-filter before anything else '
call lineout tempfile,'
 Notes: The default pre-filter procedure is PREFILTR.80'
call lineout tempfile,' 
 To change the name of the pre-filter procedure, '
call lineout tempfile,' you will have to "hand edit" the PREFILTER_NAME parameter'
call lineout tempfile," 
 SRE-FILTER's default pre-filter (PREFILTR.80) implements"
call lineout tempfile,' the GoRemote server remote control package.'
call lineout tempfile,' 
Suggestion:To perform simple load balancing, change the BackupServerList and '
call lineout tempfile,' LoadThreshold variables in SREFILTER.80 (see INITFILT.DOC for details)'

/*POST_FILTER */
call lineout tempfile,'
 POST_FILTER:'
  v.1="YES" ; v.2="NO"
  foo=do_radio(28,2)
call lineout tempfile,'
 POST_FILTER instructs SRE-FILTER to call a set of "post-filters"'
call lineout tempfile,'  YES = Call the post-filter procedure(s).'
call lineout tempfile,' 
NO = do not call '
call lineout tempfile,' If POST_FILTER=YES, then the postfilter(s) will be called after'
call lineout tempfile,' the response has been sent to the client '
call lineout tempfile,' 
 Notes:   The default Post-filter is POSTFILT.80 '
call lineout tempfile,' 
 To change the name(s) of the pre-filter procedure,'
call lineout tempfile,'  you will have to "hand edit" the POSTFILTER_NAME parameter.'
call lineout tempfile,' 
 SRE-Filter includes a few sample post-filters (POSTMAIL.80 and POSTRCRD.80) '


/* SSI_SHTML_ONLY */
call lineout tempfile,'
 SSI_SHTML_ONLY:'
  v.1="YES" ; v.2="NO"
  foo=do_radio(32,2)
call lineout tempfile,'
 SSI_SHTML_ONLY is used to tell SRE-Filter to attempt '
call lineout tempfile,' server side includes  only  on files with a "SHTML" '
call lineout tempfile,' extension -- other html/text files (say, with .HTM or .HTML'
call lineout tempfile,' extensions) will NOT be checked for server side includes. '
call lineout tempfile,' Select YES to turn SSI_SHTML_ONLY on, '
call lineout tempfile,'
 NO to attempt server side includes on all html/text files '
call lineout tempfile,'
Notes:
 SRE-Filter defines four extensions as "SHTML extensions": '
call lineout tempfile,' .SHTML, .SHT, .HTM-SSI and .HTML-SSI.'
call lineout tempfile,' 
 To add or modify this list, change the SSI_EXTENSIONS variable '
call lineout tempfile,' (see INITFILT.DOC for details) '

/* SSI_CACHE_ON*/
call lineout tempfile,'
 SSI_CACHE_ON:'
  v.1="YES" ; v.2="NO"
  foo=do_radio(42,2)
call lineout tempfile,'
 SSI_CACHE_ON is used to enable the server side include cache '
call lineout tempfile,' (the SSI-CACHE).  '
call lineout tempfile,' The SSI-cache is used to store "compiled" versions of HTML documents that '
call lineout tempfile,' contain server side includes.  When a request for such document arrives,'
call lineout tempfile,' SRE-Filter will return it (perhaps with further modifications).'
call lineout tempfile,' 
 Turning off caching is sometimes useful (or necessary) in highly'
call lineout tempfile,'   dynamic environments; say, where INCLUDE files are constantly changing.'
call lineout tempfile,"For more information on SRE-Filter's server side include caching "
call lineout tempfile,'algorithim, see SSICACHE.HTM '


/*SMTP_GATEWAY */
call lineout tempfile,'
 SMTP_GATEWAY:'
call lineout tempfile,' '
call lineout tempfile,"
 SMTP_GATEWAY is used by SRE-FILTER's e-mail alert facility "
call lineout tempfile," (as implemented in the POSTMAIL.80 post-filter routine). "
call lineout tempfile,' SMTP_GATEWAY should contain the name of your SMTP mail server. 
 '
call lineout tempfile,' If you do not know it, or do not need to use e-mail alerts, leave this field empty (or set it to 0)'
call lineout tempfile,' For more details on SMTP_GATEWAY, see POSTMAIL.80 '

/* UPLOAD_Minfree and upload_maxsize */
call lineout tempfile,' 
 
  UPLOAD_MINFREE: '
call lineout tempfile,' '
call lineout tempfile,' , and UPLOAD_MAXSIZE: '
call lineout tempfile,' '
call lineout tempfile,'
'
call lineout tempfile,' The UPLOAD_ variables are needed when GET_URL is used to upload '
call lineout tempfile,' files from another server. '
call lineout tempfile,' UPLOAD_MINFREE is the amount of space (in K bytes) that must be free '
call lineout tempfile,' in the UPLOAD_DIRECTORY  after  the file has been uploaded.'
call lineout tempfile,' 
 UPLOAD_MAXSIZE is the maximum allowable size (in K bytes) of a uploaded file '
call lineout tempfile, ' If either of these limits are exceeded, the file will  not  be uploaded.'


call lineout tempfile,'  '
call lineout tempfile,'   '
call lineout tempfile,' go to top of document '
call lineout tempfile,'   '
call lineout tempfile,'    String Replacements  '
call lineout tempfile,'  '

/* headers */
foo=find_val(12)
call lineout tempfile,'
 HEADERS.:'
call lineout tempfile,' '
call lineout tempfile,foo
call lineout tempfile,''
call lineout tempfile,'
 HEADERS. are added to the top of all requested HTML '
call lineout tempfile,' documents (they are added just after the first <BODY> tag).'

call lineout tempfile,' You should enter valid HTML code in this box '
call lineout tempfile,' (or leave it blank if you do not want a HEADER added). '
call lineout tempfile,' Note that HEADERS can contain keyphrases. '

/* footers */
foo=find_val(13)
call lineout tempfile,'
 FOOTERS.:'
call lineout tempfile,' '
call lineout tempfile,foo
call lineout tempfile,''
call lineout tempfile,'
 FOOTERS. are added to the top of all requested HTML '
call lineout tempfile,' documents (they are added just before  the last </BODY> tag).'
call lineout tempfile,' You should enter valid HTML code in this box '
call lineout tempfile,'(or leave it blank if you do not want a FOOTER added). '
call lineout tempfile,' Note that FOOTERS can contain keyphrases. '

/* inhouse. */
foo=find_val(14)
if strip(foo)=0 then foo=" "
call lineout tempfile,'
 INHOUSE.:'
call lineout tempfile,' '
call lineout tempfile,foo
call lineout tempfile,''
call lineout tempfile,'
 The INHOUSE. variable(s) are used by the REPLACE INHOUSE.n keyphrase'
call lineout tempfile,' Each line of this box corresponds to a different value of n '
call lineout tempfile,' -- the first line is for INHOUSE.1, the second for INHOUSE.2, etc.'

/* SUPERUSER. */
foo=find_val(15)
call lineout tempfile,'
 SUPERUSER.:'
if strip(foo)=0 then foo=" "
call lineout tempfile,' '
call lineout tempfile,foo
call lineout tempfile,''
call lineout tempfile,'
 The SUPERUSER. variable(s) are used by the REPLACE SUPERUSER.n keyphrase'
call lineout tempfile,' Each line of this box corresponds to a different value of n '
call lineout tempfile,' -- the first line is for SUPERUSER.1, the second for SUPERUSER.2, etc.'


/* webmaster */
call lineout tempfile,'
 WEBMASTER:'
foo=find_val(16)
call lineout tempfile, ' ' foo
call lineout tempfile, ' '
call lineout tempfile,'
'
call lineout tempfile,' The WEBMASTER variable is used in the REPLACE WEBMASTER keyphrase,'
call lineout tempfile,' and is used in some internally generated messages.  It should contain'
call lineout tempfile,' a contact address (preferably as a MAILTO URL) of the site''s "webmaster"'


/*HOME_NAME */
call lineout tempfile,'
 HOME_NAME:'
call lineout tempfile,' '
call lineout tempfile,'
'
call lineout tempfile,' HOME_NAME is used in the REPLACE HOME_NAME keyphrase, and  is'
call lineout tempfile,' used in the default Not Found response (see below).  It should contain the '
call lineout tempfile,' commonly-used name of your organization (not necessarily the IP name!)'


call lineout tempfile,'  '
call lineout tempfile,'   '
call lineout tempfile,' go to top of document '
call lineout tempfile,'   '
call lineout tempfile,'    Miscellaneous   '
call lineout tempfile,'  '


/*the_realm */
call lineout tempfile,'
 THE_REALM:'
call lineout tempfile,' '
call lineout tempfile,'
'
call lineout tempfile,' THE_REALM is the realm name that will be shown to the client '
call lineout tempfile,' when  a username/password is requested.  Note that the "realm"'
call lineout tempfile,' value for a url that is contained in the ACCESS_FILE is also used '
call lineout tempfile,' (THE_REALM is used first). '



/*option_hIT_LINE */
call lineout tempfile,'
 OPTION_HIT_LINE:'
call lineout tempfile,' '
call lineout tempfile,'
 OPTION_HIT_LINE is used by the REPLACE OPTION_HITS.n keyphrase'


/*NOT_FOUND_URL */
call lineout tempfile,'
 NOT_FOUND_URL:'
foo=find_val(20)
call lineout tempfile, ' ' foo
call lineout tempfile, ' '
call lineout tempfile,'
 NOT_FOUND_URL is a string that is displayed when a Not Found '
call lineout tempfile,' response is generated (say, when a requested file can not be found).'
call lineout tempfile,' Typically it will contain a link to your home page, or some other ';
call lineout tempfile,' "catchall" document.  Note that HOME_NAME is used in the default '
call lineout tempfile,' definition of NOT_FOUND_URL '

/* FIX_EXPIRE */
call lineout tempfile,' 
 
  FIX_EXPIRE:  '
call lineout tempfile,' '
call lineout tempfile,'
'
call lineout tempfile,' The FIX_EXPIRE variable is used to suppress "immediate expiraton" of '
call lineout tempfile,'  documents containing server side includes, and documents generated by CGI-BIN scripts.'
call lineout tempfile,' 
  "Immediate expiration" can cause annoying reloads when clients use the back '
call lineout tempfile,' arrow key on their browsers  
'
call lineout tempfile,' 
 Set FIX_EXPIRE to a fractional value  '
call lineout tempfile,' to indicate a future expiration date (in 24hrs * FIX_EXPIRE). '
call lineout tempfile,' 
 To suppress this (and use default "immediate expiration"), set this to 0'



call lineout tempfile,'  '                 /* END OF PARAMTERS LIST */
call lineout tempfile,' go to top of document '



/* === File info SECTION === */

wow=find_fnames()

call lineout tempfile,'
   File & Directory Names  '
if nickname<>' ' then
  call lineout tempfile,'  File and directory names are not host-specific '
  call lineout tempfile,' 
  We recommend restarting GoServe immediately after changing any of these filenames or directories!'
call lineout tempfile,'
  
 ' fd.1 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The MESSBOX_DIR is where the SRE-FILTER message boxes are stored'

call lineout tempfile,'
 
 ' fd.15 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The TEMPDATA_DIR is where SRE-Filter puts temporary  files;  '
call lineout tempfile,' such as the $xxxx.80 temporary response files, and the SSI-Cache files.'
call lineout tempfile,' It is not supposed to be used by  user supplied programs  (see TEMPFILE_DIR) .'

call lineout tempfile,'
 
 ' fd.2 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The TEMPFILE_DIR is working space for your various  user supplied programs '


call lineout tempfile,'
 
 ' fd.16 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The WORKDATA_DIR is where SRE-Filter puts username, alias, access control'
call lineout tempfile, ' and other permanent data files.'


call lineout tempfile,'
 
 ' fd.11 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The UPLOAD_DIR is where "uploaded" files will be put. '

call lineout tempfile,'
 
 ' fd.12 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The CGI_BIN_DIR is where "CGI-BIN" programs should be stored. '

call lineout tempfile,'
 
 ' fd.14 ' = '
call lineout tempfile,''
call lineout tempfile,"
 The MAILBOX_DIR is where SRE-Filter's will read and write e-mail messages from"
call lineout tempfile,' (it should be the "inbox" directory of an SMTP server).'

call lineout tempfile,'
 
 ' fd.3 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The COUNTER_FILE is where the REPLACE HITS and REPLACE COUNTS '
call lineout tempfile,' keyphrases store the "number of hits" statistics. '


call lineout tempfile,'
 
 ' fd.4 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The RECORD_ALL_FILE is where the RECORD_OPTIONS stores the '
call lineout tempfile,' "number of hits " statistics. '



call lineout tempfile,'
 
 ' fd.5 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The SENDFILE_FILE is where the SENDFILE facility stores "number of hits"'
call lineout tempfile,' statistics" '


call lineout tempfile,'
 
 ' fd.10 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The UPLOAD_LOG is where information on uploaded files '
call lineout tempfile,' will be stored.  If you do not want to store such info, enter 0 '



call lineout tempfile,'
 
 ' fd.6 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The ACCESS_FILE is where  ALLOW_ACCESS looks for action-specific'
call lineout tempfile,' access information'


call lineout tempfile,'
 
 ' fd.7 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The ALIAS_FILE contains the lists of ALIASES '

call lineout tempfile,'
 
 ' fd.13 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The VIRTUAL_FILE contains the "virtual directory" list '

call lineout tempfile,'
  
 ' fd.8 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The REPSTRGS_FILE contains the list of custom "variable names" '
call lineout tempfile,' for use by the REPLACE keyphrase '


call lineout tempfile,'
 
 ' fd.9 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The USER_FILE contains logon/password/privileges information '

call lineout tempfile,'
 
 ' fd.17 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The LOGON_FAIL_FILE is sent when a logon-failure occurs.'
call lineout tempfile,' 
 The LOGON_FAIL_FILE should contain an "absolute" file name (i.e.; D:\GOSERVE\LOGFAIL.HTM)'
call lineout tempfile,' 
 If you want to use the generic response, set this to 0. '
call lineout tempfile,' 
 Note that if the LOGON_FAIL_FILE is an HTML document, '
call lineout tempfile,' SRE-Filter will perform a few textual substitutions. '

call lineout tempfile,'
 
 ' fd.18 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The ACCESS_FAIL_FILE is sent when "SEL-specific" access is not allowed.'
call lineout tempfile,' 
 The ACCESS_FAIL_FILE should contain an "absolute" file name (i.e.; D:\GOSERVE\ACCFAIL.HTM)'
call lineout tempfile,' 
 If you want to use the generic response, set this to 0. '
call lineout tempfile,' 
 Note that if the ACCESS_FAIL_FILE is an HTML document, '
call lineout tempfile,' SRE-Filter will perform a few textual substitutions. '

/* ----- no longer officially supported
call lineout tempfile,'
 
 ' fd.10 ' = '
call lineout tempfile,''
Call lineout tempfile,' 
 The INTERPRET_FILE contains the "REXX-code blocks" used by the '
call lineout tempfile,' INTERPRET keyphrase '
*/

call lineout tempfile,''           /* end OF FILE INFO SECTION */

call lineout tempfile,' go to top of document '


/* Retain current file contents */
pud=0
 do bob=1 to filelines.0
    if filelines.bob.igot=1 then iterate
    pud=pud+1
    dog=filelines.bob
    DOG=sref_REPLACESTRG(DOG,'"','%22','ALL')
    DOG=sref_REPLACESTRG(DOG,"'",'%27','ALL')
    DOG=sref_REPLACESTRG(DOG,"+",'%2B','ALL')
    dog=sref_replacestrg(dog,'&','%26','ALL')
    DOG=sref_REPLACESTRG(DOG,"<",'%3c','ALL')
    DOG=sref_REPLACESTRG(DOG,">",'%3e','ALL')

    DOG=translate(DOG,"+",' ')

   call lineout tempfile,''

/*   dog0=strip(filelines.bob.name)
   call lineout tempfile,'    '*/


 end
 call lineout tempfile,''
 call lineout tempfile,''


  call lineout tempfile,' if you are done you can ,'
  call lineout tempfile,' or you can '
  call lineout tempfile,'
 '
  call lineout tempfile,' Special feature: Look up an IP address '
   call lineout tempfile,' For several of these variables (i.e.; OWNERS), numeric IP '
  call lineout tempfile,' addresses are expected.  If you need to lookup a numeric address:'
  call lineout tempfile,'  '
  call lineout tempfile,'   enter the IP name here and Look It Up:  '
  call lineout tempfile,'  '
  call lineout tempfile,'   '
 

  call lineout tempfile,'    '
  call lineout tempfile
end

tt=sref_expire_response(0.05,dosdir(tempfile,'s'))
'FILE ERASE TYPE text/html NAME' tempfile
return ' Done with Config2 -- submitted parameters '





/****************************************************/
/*  JUMP HERE ON POST CALLS, which are always "write info" calls */
/* you should never need to modify this */

write_It:   nop
crlf = '0d0a'x

ooks=fd.1
do pp=2 to fd.0
   ooks=ooks||' '||fd.pp
end

 call lineout tempfile, ''
        call lineout tempfile, "FILTINST Results "
        call lineout tempfile, ''

        call lineout tempfile,'  SRE-FILTER Configurator  '

foo=stream(afile,'c','query exists')
if foo="" then do
   call lineout tempfile,' Warning: Old INITFILT.'aport ' did not exist '
end
else do
 acf1='INITFILT.B'
  do hi=1 to 99
     try1=acf1||hi
     if stream(acf1||hi,'c','query exists')='' then leave
  end /* do */

  foo=dosrename(aFILE,try1)
   CALL LINEOUT TEMPFILE,'The old version of ' Afile ' has been saved as ' try1
end

/* Parse the argument list.  Extract current file (in LINES.n) variables
to the FILELINES. array.
 Check for arguments.  Note that if no arguments, error. */
param.0=0 ; fparam.0=0
do until list=""
    parse var list a0  '&' list
    parse var  a0 a1 '=' a2 
    a1=packur(a1) ; a2=strip(packur(a2))
    a1=upper(strip(a1))
    select
       when abbrev(a1,'LINES.')=1 then do
           parse var a1 foo '.' ith
          a2=translate(a2,' ','+')
          filelines.ith=packur(a2)
        end  /* Do */
        when abbrev(a1,'NICKNAME')=1 then do
             nickname=a2
        end
        otherwise do
            a2=translate(a2,' ','+')
            if wordpos(a1,ooks)>0 then do
               fparam.0=fparam.0+1 ; IARF0=fPARAM.0
               fparam.iarf0=a2 ; fparam.iarf0.name=a1
            end  /* Do */
            else do
               param.0=param.0+1 ; IARF=PARAM.0
               param.IARF=a2 ; PARAM.IARF.NAME=A1
            end
        end
     end
end


POOP=afile
call lineout poop,'; Last modified on : ' time() ' ' Date()
do mm=1 to filelines.0
   aa=sref_replacestrg(filelines.mm,'<','<','ALL')
   aa=sref_replacestrg(aa,'>','>','ALL')
   if aa=' ' then iterate
   if abbrev(aa,'; Last modified on')=1 then iterate
   call lineout POOP,packur(aa)
end /* do */

do mm=1 to fparam.0
  yow=fPARAM.MM.NAME "= '"fPARAM.MM "'"
  yow=translate(yow,' ','000d0a1a'x)
  call lineout POOP,yow
end

do mm=1 to param.0
   gosh1=param.mm ;   name1=param.mm.name ; inthis=0
   if pos('.',name1)>0 then do          /* is a stem var */
       do until gosh1=""
          parse var gosh1 al1 (crlf) gosh1
          al1=packur(translate(al1,' ','0d0a00'x))
          if al1=' ' then iterate
          inthis=inthis+1
          if nickname=' ' | abbrev(upper(name1),'HOSTS')=1 then do
              yow=name1||inthis " =  '" al1 "'  "
          end
          else do
              yow=name1||inthis||'.'||nickname " =  '" al1 "'  "
          end
          yow=translate(yow,' ','000d0a1a'x)
          call lineout poop, yow
       end /* do */
   end  /* Do */
   else do
      param.mm=packur(param.mm)
      if nickname=' '  then do
          yow=PARAM.MM.NAME "= '"PARAM.MM "'"
      end
      else do
          yow=PARAM.MM.NAME||'.'||nickname|| "= '"PARAM.MM "'"
      end
      yow=translate(yow,' ','000d0a1a'x)
      call lineout poop,yow
   end
end /* do */

CALL LINEOUT POOP
call lineout tempfile,'  ' afile  ' succesfully created.'

call lineout tempfile,' 
   '
call lineout tempfile
foo=value('SREF_REDO',1,'os2environment')

tt=sref_expire_response(0.05,dosdir(tempfile,'s'))
'FILE ERASE TYPE text/html NAME' tempfile
return 'Done with FILTINST -- saved parameters'



/********************************************/
/* --- create a row of radio buttons */
do_radio: procedure expose param. filelines. v. tempfile nickname quiklist. 
parse arg ith,inlist,nonick
unickname=nickname
if nonick=1 then unickname=' '
got1=0 ; 
domark=1   /* domark=0 prevents marking for comments -- use on 2nd pass */


foobax:
do jj=1 to inlist
   v2.jj=' '
end
findit=strip(param.ith)


if symbol('quiklist.findit')<>'VAR' then   do        /* no candiate entries */
   call lineout tempfile,' '   v.mm  '      , '
   return ' '
end

/* look at candidates only */
candlist=quiklist.findit
do mm0=1 to words(candlist)
    mm=strip(word(candlist,mm0))
    if mm=' ' then iterate
    bval=strip(upper(filelines.mm.name))

    if bval<>findit then iterate

/* check nickname stuff */
     if unickname<>' '   then do  /* check for .nickname at end of name */
        if pos(unickname,filelines.mm.stem)=0 then iterate
     end  /* Do */
     if unickname=' ' & filelines.mm.stem<>' ' & nonick<>1 then do /* check for nickname */
        foo1=lastpos('.',filelines.mm.stem)
        if datatype(substr(filelines.mm.stem,foo1+1))<>'NUM' then iterate
     end  /* Do */

    if domark=1 then FILELINES.MM.IGOT=1
    got1=1
    do mm2=1 to inlist
       cval=strip(filelines.mm.value)
      if v.mm2=cval then 
          v2.mm2="CHECKED"
      else
          v2.mm2=' '
    end
end             /* always use last match, if more then one */


if got1=0 then  do
      if unickname=' ' | nonick>0 then 
          nop
      else do
         unickname=' ' ; domark=0
         signal foobax            /* try looking for non host specific value */
      end
 end


do mm=1 to inlist
   call lineout tempfile,' '   v.mm  '      , '
end
return isit



/***********************************/
/* write out values for a variable (or a stem variable )
isfile=1 use file list
isfile=2 don't use hostnickname
 */
write_1:procedure expose param. filelines. tempfile fd. nickname quiklist. 
parse arg iat,isfile

unickname=strip(nickname)
if isfile>0 then unickname=' '

isstem=0 ;dostem=0
if isfile<>1 then do
  findit=param.iat
  dostem=param.iat.stem
end
else do
  findit=fd.iat
end

towrite=0                 /* search filelines for findit */
if symbol('quiklist.findit')<>'VAR' then    do       /* no candiate entries */
   call lineout tempfile, "   " findit  " = n.a.  
"
   return ' '
end



/* look at candidates only */
candlist=quiklist.findit
do mm0=1 to words(candlist)
    mm=strip(word(candlist,mm0))

    if mm=' ' then iterate
    if unickname<>' ' & filelines.mm.stem=' ' then iterate
   if filelines.mm.name=findit then do
      if unickname<>' ' & pos(unickname,filelines.mm.stem)=0 then iterate
      if unickname=' ' & filelines.mm.stem<>' '  then do /* check for unickname */
        foo1=lastpos('.',filelines.mm.stem)
        if datatype(substr(filelines.mm.stem,foo1+1))<>'NUM' then iterate
      end  /* Do */

      wow1=filelines.mm.value
      filelines.mm.igot=1
      if dostem=0 then do
           towrite=1
           dowrite=" 
 " ||findit ||" = "|| wow1 ||' 
'
           iterate              /* get latter ones? */
      end
      astem=filelines.mm.stem
      if unickname=' ' & pos('.',astem)>0 then iterate
      poop='.'||unickname
      if unickname<>' ' then astem=sref_replacestrg(astem,poop,'')
      if unickname<>' ' then astem=sref_replacestrg(astem,unickname||'.','')
      towrite=towrite+1
      dowrite.towrite="  
 "|| findit ||'.' ||astem ||" = " ||wow1|| ' 
'
      isstem=1+isstem
   end
end 

select 
   when towrite=0 then
      call lineout tempfile, "  
 " findit  " = n.a.  
"
   when dostem=0 then
       call lineout tempfile,dowrite
   otherwise do
        do mm=1 to towrite
           call lineout tempfile,dowrite.mm
        end
   end
end
return ' '





/* ----------- */                                                        
/* get environment value, possibly host specific */                      
/* ------------ */                                                       
get_value: procedure expose enmadd host_nickname 
parse arg vname,hname0
if hname0=0 then 
        hname=' '
else                                                    
    hname=strip(host_nickname)                          

vname=strip(vname) ;
if hname<>' ' then do                                                    
   aval=value(enmadd||vname||'.'||hname,,'os2environment')               
   if aval<>' ' Then                                                     
        return aval                                                      
end                                                                      
aval=value(enmadd||vname,,'os2environment')                              
return aval                   


/* **************************************
 get current value of a parameter.  If stem variable, return
in sorted order 
nonick=' ' -- check for nickname
1= never check nickname
2= only check for nickname
*/

find_val:procedure expose param. filelines. nickname quiklist. 

 parse arg ith,nonick
 unickname=nickname
 if nonick=1 then unickname=' '
  findit=param.ith
  isstem=param.ith.stem
  domark=1   /* domark=0 prevents marking for comments -- use on 2nd pass */

if symbol('quiklist.findit')<>'VAR' then do          /* no candiate entries */
   return ' '
end

  
bowser:

  gots=0
  dowrite=0

/* look at candidates only */
candlist=quiklist.findit
do mm0=1 to words(candlist)
    mm=strip(word(candlist,mm0))
    if mm=' ' then iterate

     aval=filelines.mm.name
     if aval<>findit then iterate
     if unickname<>' ' then do  /* check for unickname at end of name */
        if pos(unickname,filelines.mm.stem)=0 then iterate
     end  /* Do */
     if unickname=' ' & filelines.mm.stem<>' '  then do /* check for unickname */
        foo1=lastpos('.',filelines.mm.stem)
        if datatype(substr(filelines.mm.stem,foo1+1))<>'NUM' then iterate
     end  /* Do */
     if domark=1 then FILELINES.MM.IGOT=1
     gogo=translate(filelines.mm.value, ' ','00090a0d'x) 
     if isstem=0 then do
        dowrite=1
        towrite=gogo
      end
      else do
          dowrite=1
          if filelines.mm.stem=' ' then iterate /* bad entry */
          fii=translate(filelines.mm.stem,' ','.') ; fii=strip(word(fii,1))
          if datatype(fii)<>'NUM' then iterate
          got.value.fii=gogo
          gots=max(gots,fii)
      end
   end          /* all lines in file */

   if dowrite=0 then  do
      if unickname=' ' | nonick>0 then return ' '
      unickname=' ' ; domark=0
      signal bowser             /* try looking for non host specific value */
   end

   if isstem=0 then return towrite
   eek=' '
   do jj=1 to gots
      if symbol('got.value.jj')<>'VAR' then iterate
      eek=eek||strip(got.value.jj)||'0d0a'x
   end /* do */

return strip(eek)



/* ***************** fill in file names */
find_fnames: procedure expose fd. filelines. 
do mm=1 to fd.0
   findit=strip(fd.mm)
   do mm2=1 to filelines.0
      aval=strip(filelines.mm2.name)
      if aval<>findit then iterate
      fd.mm.val=filelines.mm2.value
      FILELINES.MM2.IGOT=1
      leave
   end /* do */
end /* do */

return 0

/* --- variable names of convert foo.bar.1 to foo.1.bar */
fix_me:procedure  
parse arg a1

if a1=' '  then return a1
a1=strip(a1)
if abbrev(a1,';') then return a1

parse var a1  aname '=' avalue
if pos('.',aname)=0 then return a1

foo=translate(aname,' ','.')
if words(foo)<>3 then return a1

/* if here, array.x.y (3 elements) */
if datatype(word(foo,3))='NUM' & datatype(word(foo,2))<>'NUM' then do  /* rearrange */
   foo2=word(foo,1)||'.'||word(foo,3)||'.'||word(foo,2)||' = '||avalue
   return foo2
end  /* Do */
else do
   return a1
end  /* Do */