home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / gohttp.zip / FOOTER.CMD < prev    next >
OS/2 REXX Batch file  |  1995-07-04  |  277b  |  8 lines
  1. /**/
  2.    parse arg filename, contents, serveradmin
  3.    call SysFileTree translate(filename,'\','/'),'files.'
  4.    parse var files.1 date time .
  5.    crlf = '0a0d'x
  6.    return contents||'<hr><i>Last updated: 'time'm on 'date'</i>'crlf,
  7.         '<br><address>'ServerAdmin'</address>'
  8.