home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / wCNews_1.0.30.lha / contrib / RebuildHistory / rh.pass2.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1993-07-08  |  448 b   |  14 lines
  1. /* rh.pass2.rexx, (c) 1993 by Gerald Malitz <gm@germal.escape.de> */
  2. /* rh.pass2.rexx, chngs (c) 1993 by Kai 'wusel' Siering <wusel@hactar.hanse.de> */
  3.  
  4. do forever
  5.    parse pull exp '09'x msgid '09'x files
  6.    if eof(stdin) then leave
  7.    /* If article has been expired (no `files'), don't append a TAB as
  8.     * that may confuse expire
  9.     */
  10.    if(files=="")
  11.       then say msgid ||'09'x|| exp
  12.       else say msgid ||'09'x|| exp ||'09'x|| files
  13. end
  14.