/* Rexx
** Sendnews Version 2 - Enhanced
*/

options results
address command

if exists("uuspool:newsrejects") then
do
  if show("P","CP5PORT") then address cp5port "GO_ Attempting To Post Previous News Rejects"
  address command "nntpput uuspool:newsrejects AGAINLIST uuspool:newsrejects.tot NNTPSERVER $newsserver > con:0/0/640/50/Posting_News.../CLOSE/WAIT"
  if RC < 20 then
  do
    if show("P","CP5PORT") then address cp5port "GO_ News Posted"
    "copy uuspool:newsrejects uuspool:newsrejects.bak"
    "delete uuspool:newsrejects"
  end
  else
  do
    if show("P","CP5PORT") then address cp5port "GO_ News Not Sent Again!"
  end
end

if exists("uuspool:newsout") then
do
  if show("P","CP5PORT") then address cp5port "GO_ Attempting to post News"
  address command "nntpput uuspool:newsout AGAINLIST uuspool:newsrejects
  NNTPSERVER $newsserver > con:0/0/640/50/Posting_News.../CLOSE/WAIT"
  if RC < 20 then
  do
    if show("P","CP5PORT") then address cp5port "GO_ News Posted"
    "copy uuspool:newsout uuspool:newsout.bak"
    "delete uuspool:newsout"
  end
  else
  do
    if show("P","CP5PORT") then address cp5port "GO_ News Not Sent"
  end
end