/* REXX script to check periodically for new mail */
/* $VER: Poll.irx V1.1 (supplied with Iris V1.2b) */

if ~show('l','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
do while show('P','IRIS') & showlist('H','TCP')
   address IRIS
   GETMAIL
   SENDMAIL IMMED
   address command
   WAIT 3 MINS
end
say 'Poll.irx ending - TCP/IP and/or Iris is not available.'