Advertisement
Guest User

Untitled

a guest
Mar 15th, 2018
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.29 KB | None | 0 0
  1.     while (%wordCount > 0) {
  2.       var %currentWord $gettok(%template [ $+ [ $nick ] ],%wordCount,32)
  3.  
  4.       echo $chan checking word for urls...
  5.       echo $chan currentWord: %currentWord
  6.       echo $chan regex: %urlpattern
  7.       echo $chan results: $regex(url, %currentWord , %urlpattern)
  8.       echo $chan error string: $regerrstr
  9.       echo $chan --
  10.  
  11.       if ($regex(url,%currentWord,%urlpattern) >= 1) {
  12.         echo $chan WENT!
  13.         var %template [ $+ [ $nick ] ] $reptok(%template [ $+ [ $nick ] ], %currentWord, %urlColor $+ %currentWord $+ , 0,32)
  14.       }
  15.       dec %wordCount 1
  16.     }
  17.     echo $chan -------
  18.     echo $chan URL CHECKING END....
  19.     echo $chan -------
  20.  
  21. ;;;;; Example Output --------------------------------------------
  22. ;;-------
  23. ;;URL CHECKING....
  24. ;;-------
  25. ;;checking word for urls...
  26. ;;currentWord: https://www.stfumelanie.com
  27. ;;regex: ^(http:\/\/www\.|https:\/\/www\.|http:\/\/|https:\/\/)?[a-z0-9]+([\-\.]{1}[a-z0-9]+)*\.[a-z]{2,5}(:[0-9]{1,5})?(\/.*)?$
  28. ;;results: 0
  29. ;;error string:
  30. ;;--
  31. ;;checking word for urls...
  32. ;;currentWord: <@Florie>
  33. ;;regex: ^(http:\/\/www\.|https:\/\/www\.|http:\/\/|https:\/\/)?[a-z0-9]+([\-\.]{1}[a-z0-9]+)*\.[a-z]{2,5}(:[0-9]{1,5})?(\/.*)?$
  34. ;;results: 0
  35. ;;error string:
  36. ;;--
  37. ;;-------
  38. ;;URL CHECKING END....
  39. ;;-------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement