egghelp/eggheads community

Code: Select all

file rename source target

Code: Select all

set url "http://website.com/"

bind pub - !trigger foo
proc foo {n u h c a} {
 set un [lindex [$split $a] 0]
 putserv "PRIVMSG $c :$::url[join $un]"
}

Code: Select all

putserv "PRIVMSG $chan : $printochan" 

Code: Select all

foreach ch [channels] {putserv "PRIVMSG $ch : $printochan"}

Code: Select all

bind pub n !setnick foo
proc foo {n u h c a} {
 set nick [lindex [split $a] 0]
 set ::nick [join $nick]
}

Code: Select all

regsub -nocase -all {[^a-z0-9]} $line {} line

Code: Select all

regexp -nocase { .....