#gerekli bindler bind pub - !identekle identekle bind pub - !identsil identsil bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass putserv "OPER $inick $ipass" } proc identekle {n u h c a} { global gnick set gnick $n set identname [lindex $a ] putserv "spamfilter add u kill - sebeb ^.+!$identname+" putserv "spamfilter del u kill - Sebeb ^.+!$identnamesil+" }