home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / StrICQ / Src / rexx / ICQWeed.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-24  |  436b  |  26 lines
  1. /*
  2.  
  3.     ICQWeed.rexx - Weeds out old contacts:
  4.  
  5.     Wed Dec 31 15:00:00 1969
  6.  
  7. */
  8.  
  9. baddate = 'Wed Dec 31 15:00:00 1969'
  10.  
  11. options results
  12.  
  13. address STRICQ.1
  14.  
  15. getcontact total 'var=tot_users'
  16.  
  17. do i = tot_users - 1 to 0 by -1
  18.   getcontact 'entry='i 'var=user'
  19.   if user.last_online = baddate & user.message_to = baddate & user.message_from = baddate then do
  20.     say '('user.nick') Deleted...'
  21.     deleteuin 'uin='user.uin
  22.   end
  23. end
  24.  
  25. exit(0)
  26.