/* Active2PurgeFile.rexx
    Written by James Burton (burton@cs.latrobe.edu.au)
    for PostNewsSpool.lha
    31-Dec-94
*/
/* Create a fresh PurgeFile from your Active file */

parse arg activefile expire_days
                        
if activefile = "" then activefile = "UULIB:News/Active"

if expire_days = "" then expire_days = "10"

if open(afile,activefile,'Read') then do
    do while ~eof(afile)
        line = readln(afile)
        parse var line newsgroupname hi lo aux
        if newsgroupname ~= "" then
            writeln(stdout,newsgroupname expire_days)
    end                                          
    close(afile)
end

/* End of file */