home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / gohttp.zip / Footer.Rxx < prev    next >
Text File  |  1995-07-11  |  791b  |  24 lines
  1. /*ALC--   Albert's footer code*/
  2. /* modified to insert at end of HTML body - dlm  */
  3.  
  4.    parse arg filename, contents, serveradmin
  5.    call SysFileTree translate(filename,'\','/'),'files.'
  6.    parse var files.1 date time .
  7.    crlf = '0d0a'x
  8.  
  9.    rest = '#'
  10.    if (pos('</body>', contents) \= 0) then parse var contents body'</body>'rest
  11.    else 
  12.       if (pos('</BODY>', contents) \= 0) then parse var contents body'</BODY>'rest
  13.       else 
  14.          if (pos('</Body>', contents) \= 0) then parse var contents body'</Body>'rest
  15.          else body = contents
  16.  
  17.    if (rest == '#') then rest = ''
  18.    else rest = '</body>' || rest
  19.  
  20.    contents = body||'<hr><i>Last updated: 'time'm on 'date'</i>'crlf,
  21.         '<br><address>'ServerAdmin'</address>'crlf || rest
  22.  
  23.    return contents
  24.