Guest User

Untitled

a guest
Jun 30th, 2018
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 1.14 KB | None | 0 0
  1.         putserv "PRIVMSG $channel :$handle: '$date' == '1 Březen 2012'?"
  2.         if {$date == "1 Březen 2012"} {
  3.             putserv "PRIVMSG $channel :$handle: ANO!"
  4.         } else {
  5.             putserv "PRIVMSG $channel :$handle: NE!"
  6.         }
  7.            
  8.         if {![regexp {<b>([^<]*)</b></a><span[^>]*> dne 1 Březen 2012</span>} $content match movie]} {
  9.                 putserv "PRIVMSG $channel :$handle: no match."
  10.                 return 1
  11.         }
  12.         putserv "PRIVMSG $channel :$handle: Match: '$match' Movie: '$movie'"
  13.        
  14.         if {![regexp {<b>([^<]*)</b></a><span[^>]*> dne $date</span>} $content match movie]} {
  15.                 putserv "PRIVMSG $channel :$handle: no match!"
  16.                 return 1
  17.         }      
  18.         putserv "PRIVMSG $channel :$handle: Match: '$match' Movie: '$movie'"
  19.        
  20.         return 0
  21. ===============================
  22.  
  23. 18:49 < Sinon> pantaril: '1 Březen 2012' == '1 Březen 2012'?
  24. 18:49 < Sinon> pantaril: ANO!
  25. 18:49 < Sinon> pantaril: Match: '<b>ŽELEZNÁ LADY</b></a><span class="text"> dne 1 Březen 2012</span>' Movie: 'ŽELEZNÁ LADY'
  26. 18:50 < Sinon> pantaril: no match!
Add Comment
Please, Sign In to add comment