on join scan away

[HaLiL]

i need this tcl on join #chan , /whois nick , nick is away privmsg to nick : Hi, this is away spam control please dont reply. if nick away and away msg www or .com .net etc.. ban from #chan.. can anyone give me this tcl script?

[metroid]

Maybe you should explain abit better what you want.

[HaLiL]

if nick come to the channel eggdrop must do /whois nick, if the nick is away and away message is www or http:// etc.. eggdrop must so ban from the channel or ban from server gline/zline/kline
-
on 1:join:#sohbet:whois $nick
raw 301:*:{
if (www sin $3-) || (http:// isin $3-) { zline $2 spam }
}
-
this is mIRC Script code i need same TCL code
-
and every 10,-15 minutes vacates scans or who to look and aways find, user offered away is is removed, it is like a Spam control, if itself to away message advertisements such as www HTTP:// to find should more

[CrazyCat]

Code: Select all

bind join - "#chan" aw:test
bind raw - 301 aw:verif

proc aw:test {nick handle chan args} {
   if {[string tolower $nick] == [string tolower $::botnick]} { return 0}
   putserv "WHOIS $nick"
}

proc aw:verif {from mask text} {
   if { ([string first "www" [string tolower $text]] >= 0) || ([string first "http://" [string tolower $text]] >= 0)} {
      # treat here as you want
   }
   return 0
}

[HaLiL]

i cant working this code..

Code: Select all

bind join - "#chan" aw:test 
bind raw - 301 aw:verif 

proc aw:test {nick handle chan args} { 
   if {[string tolower $nick] == [string tolower $::botnick]} { return 0} 
   putserv "WHOIS $nick" 
} 

proc aw:verif {nick from mask text} { 
   if { ([string first "www" [string tolower $text]] >= 0)} { 
      putserv "kill [string tolower $nick] ..."
   } 
   return 0 
}

dont kill user?

[caesar]

if {[string tolower $nick] == [string tolower $::botnick]} = [isbotnick $nick] and I belive it should be bind join - "#chan *" aw:test

The mask in the bind is matched against "#channel nick!user@host"

btw, if I where you I'd use "stripcodes" (check tcl-commands.doc for more information) to remove all codes before "testing" it.. oh, and HaLiL wanted to do a who every 10-15 minutes, not a on-join whois.. anyway..