egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2010-09-17T09:52:16-04:00 https://forum.eggheads.org/app.php/feed/topic/17963 2010-09-17T09:52:16-04:00 2010-09-17T09:52:16-04:00 https://forum.eggheads.org/viewtopic.php?p=94424#p94424 <![CDATA[Re: Tcl Ban-Spammer only for host]]>

Code: 

bind join - * join:banspamproc join:banspam {nick host hand chan} {  setudef flag spamwords if {![channel get $chan +spamwords]} {return}          <snip>}bind pubm - * pubm:banspanproc pubm:banspam {nick host hand chan text} { setudef flag spamwords if {![channel get $chan +spamwords]} {return}          <snip>

Statistics: Posted by Luminous — Fri Sep 17, 2010 9:52 am

]]> 2010-09-15T18:39:16-04:00 2010-09-15T18:39:16-04:00 https://forum.eggheads.org/viewtopic.php?p=94398#p94398 <![CDATA[Tcl Ban-Spammer only for host]]>

Statistics: Posted by simonetto — Wed Sep 15, 2010 6:39 pm

]]> 2010-09-08T12:05:56-04:00 2010-09-08T12:05:56-04:00 https://forum.eggheads.org/viewtopic.php?p=94275#p94275 <![CDATA[Tcl Ban-Spammer only for host]]>

Statistics: Posted by simonetto — Wed Sep 08, 2010 12:05 pm

]]> 2010-09-07T11:27:40-04:00 2010-09-07T11:27:40-04:00 https://forum.eggheads.org/viewtopic.php?p=94247#p94247 <![CDATA[Tcl Ban-Spammer only for host]]> Statistics: Posted by simonetto — Tue Sep 07, 2010 11:27 am

]]> 2010-09-07T11:03:29-04:00 2010-09-07T11:03:29-04:00 https://forum.eggheads.org/viewtopic.php?p=94242#p94242 <![CDATA[Tcl Ban-Spammer only for host]]>

Code: 

if {![channel get $chan spamwords]} return
at join and pubm processes, then '.chanset #channel +spamwords' from party-line should do the trick.

PS: You can replace 'spamwords' with whatever you wish, as long as isn't already used. But if you do want to use an existing channel flag then don't add the 'setudef' part.

Statistics: Posted by caesar — Tue Sep 07, 2010 11:03 am

]]> 2010-09-07T10:27:29-04:00 2010-09-07T10:27:29-04:00 https://forum.eggheads.org/viewtopic.php?p=94239#p94239 <![CDATA[Tcl Ban-Spammer only for host]]>
You can do so that I can decide on which chan enable it?
I hope this is possible. Thanks :)

Statistics: Posted by simonetto — Tue Sep 07, 2010 10:27 am

]]> 2010-08-24T18:27:35-04:00 2010-08-24T18:27:35-04:00 https://forum.eggheads.org/viewtopic.php?p=94095#p94095 <![CDATA[Tcl Ban-Spammer only for host]]>

Statistics: Posted by Luminous — Tue Aug 24, 2010 6:27 pm

]]> 2010-08-24T14:01:09-04:00 2010-08-24T14:01:09-04:00 https://forum.eggheads.org/viewtopic.php?p=94089#p94089 <![CDATA[Tcl Ban-Spammer only for host]]> I just tried and it works wonderfully.
Thank you very much really :-)

Statistics: Posted by simonetto — Tue Aug 24, 2010 2:01 pm

]]> 2010-08-24T13:30:32-04:00 2010-08-24T13:30:32-04:00 https://forum.eggheads.org/viewtopic.php?p=94087#p94087 <![CDATA[Tcl Ban-Spammer only for host]]>

Code: 

# ban-spammers.tcl v1.0 by FireEgl@EFNet <FireEgl@LinuxFan.com> - 4-19-00# Description:# Bans anyone not known to the bot if they join a channel# and the first thing they say contains a web link.## It could be done better I guess..# Words that it checks for:set spamwords { http:// www. .com .net .org .nu .ca .uk .edu .it {web page} site}# Time, in minutes that the ban will last:# (43200 = 1 month)set spambantime 43200# Set Global ban (1), or Channel ban (2), or just a kick (3)?set spambantype 1bind join - * join:banspamproc join:banspam {nick host hand chan} { global banspam   if {![validuser $hand]} { set banspam($nick) 0 }}bind pubm - * pubm:banspamproc pubm:banspam {nick host hand chan msg} { global banspam spamwords spambantime spambantype   if {[info exists banspam($nick)]} {      if {(([getchanidle $nick $chan] == 0) && ($banspam($nick) == 0))} {         foreach s $spamwords {            if {[lsearch -glob "$msg" "*$s*"] != -1} {              set host [getchanhost $nick $chan]               switch $spambantype {                  "1" { putserv "KICK $chan $nick :No Spam!"                        newban *!*@[lrange [split $host @] 1 end] Ban-Spam "$msg" $spambantime                  }                  "2" { putserv "KICK $chan $nick :No Spam!"                        newchanban $chan  *!*@[lrange [split $host @] 1 end]  Ban-Spam "$msg" $spambantime                  }                  "3" { puthelp "KICK $chan $nick :No Spam!" }                  "default" { putlog "$nick@$chan Just spammed the channel with: $msg" }               }               break            }         }      }      unset banspam($nick)   }}

Statistics: Posted by Luminous — Tue Aug 24, 2010 1:30 pm

]]> 2010-08-24T00:34:49-04:00 2010-08-24T00:34:49-04:00 https://forum.eggheads.org/viewtopic.php?p=94080#p94080 <![CDATA[Tcl Ban-Spammer only for host]]>
Currently bans like this: *!*Tiscali@*.retail.telecomitalia.it

I would like to ban in that way: *!*@host221-206-dynamic.9-79-r.retail.telecomitalia.it
In short I want cha ban only the host.

I place the tcl, hoping you can help me.
Thanks in advance.
Simone

Code: 

# ban-spammers.tcl v1.0 by FireEgl@EFNet <FireEgl@LinuxFan.com> - 4-19-00# Description:# Bans anyone not known to the bot if they join a channel# and the first thing they say contains a web link.## It could be done better I guess..# Words that it checks for:set spamwords { http:// www. .com .net .org .nu .ca .uk .edu .it {web page} site}# Time, in minutes that the ban will last:# (43200 = 1 month)set spambantime 43200# Set Global ban (1), or Channel ban (2), or just a kick (3)?set spambantype 1bind join - * join:banspamproc join:banspam {nick host hand chan} { global banspam   if {![validuser $hand]} { set banspam($nick) 0 }}bind pubm - * pubm:banspamproc pubm:banspam {nick host hand chan msg} { global banspam spamwords spambantime spambantype   if {[info exists banspam($nick)]} {      if {(([getchanidle $nick $chan] == 0) && ($banspam($nick) == 0))} {         foreach s $spamwords {            if {[lsearch -glob "$msg" "*$s*"] != -1} {               switch $spambantype {                  "1" { putserv "KICK $chan $nick :No Spam!"                        newban [string trimleft [maskhost [getchanhost $nick $chan]] ~] Ban-Spam "$msg" $spambantime                  }                  "2" { putserv "KICK $chan $nick :No Spam!"                        newchanban $chan [string trimleft [maskhost [getchanhost $nick $chan]] ~] Ban-Spam "$msg" $spambantime                  }                  "3" { puthelp "KICK $chan $nick :No Spam!" }                  "default" { putlog "$nick@$chan Just spammed the channel with: $msg" }               }               break            }         }      }      unset banspam($nick)   }}# unset the var when they leave:bind kick - * kick:banspamproc kick:banspam {nick host hand chan target reason} { global banspam   catch { unset banspam($nick) }}bind part - * part:banspamproc part:banspam {nick host hand chan {reason ""}} { global banspam   catch { unset banspam($nick) }}bind sign - * sign:banspamproc sign:banspam {nick host hand chan reason} { global banspam   catch { unset banspam($nick) }}bind splt - * splt:banspamproc splt:banspam {nick host hand chan} { global banspam   catch { unset banspam($nick) }}putlog "\002Ban-Spammers.tcl\002 v 1.0 by FireEgl@EFNet caricata con successo!"

Statistics: Posted by simonetto — Tue Aug 24, 2010 12:34 am

]]>