home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / old / amirc_31.lzx / AmIRC_31 / Rexx / MATCH.amirx < prev    next >
Encoding:
Text File  |  1997-03-14  |  1.4 KB  |  55 lines
  1. /* MATCHDemo by Ariel Magnum
  2. ** Demonstrates usage of MATCHUSERHOST Command
  3. ** Finds Germans,Israelis,Brits and swedes in your current
  4. ** channel and displays results
  5. */
  6. Options Results  /* Enable rc/result return codes */
  7. signal on syntax /* Enables syntax checking       */
  8. prefix='MatchDemo'  /* Prefix for echos              */
  9. colour=3         /* Colour fo echos               */
  10.  
  11. /* Begin */
  12. "GETUSERS"
  13. users=compress(result,'@+') /* Remove the status markers */
  14. de=0;il=0;uk=0;se=0
  15. do until users=''
  16.     parse var users user users
  17.     "USERHOST" user
  18.     host=result
  19.     "MATCHUSERHOST" user"!"host "*!*@*.de"
  20.     if rc=1 then de=de+1
  21.     "MATCHUSERHOST" user"!"host "*!*@*.il"
  22.     if rc=1 then il=il+1
  23.     "MATCHUSERHOST" user"!"host "*!*@*.uk"
  24.     if rc=1 then uk=uk+1
  25.     "MATCHUSERHOST" user"!"host "*!*@*.se"
  26.     if rc=1 then se=se+1
  27. end
  28. cecho("Found" il "Israelis")
  29. cecho("Found" de "Germans")
  30. cecho("Found" uk "British")
  31. cecho("Found" se "Swedish")
  32.  
  33. /* End   */
  34. exit
  35.  
  36. /* Shared Functions */
  37. bold:      /* This function bolds text*/
  38. return '02'x||arg(1)||'02'x
  39.  
  40. underline: /* This function underlines text*/
  41. return '1F'x||arg(1)||'1F'x
  42.  
  43. inverse:   /* This function inverses text*/
  44. return '16'x||arg(1)||'16'x
  45.  
  46. cecho:     /* This function echo's text to listview*/
  47. "ECHO P="d2c(27)"b½"prefix"╗ C="colour arg(1)
  48. return 0
  49.  
  50. syntax:   /* This function returns where you made a syntax error */
  51. prefix="Syntax"
  52. cecho("Command on line" SIGL "returned" RC ":" errortext(rc) sourceline(SIGL))
  53. exit
  54.  
  55.