Code: Select all
#
Code: Select all
if { [ regexp -nocase -- {<p>([^<]+)</p>} $html all segno testo ] } {
ThanksReference: http://docs.eggheads.org/mainDocs/tcl-commands.htmlCode: Select all
putserv "privmsg $pm_nick :Hi $pm_nick. $nick $uhost quit right now. Reason: $reason"
and text search to find: bind sign
Code: Select all
"privmsg $pm_nick :Hi $pm_nick. $nick quit right now. Reason: $reason"