Channel Utility TCL

blood_x · Post by **blood_x** » Sun Dec 09, 2001 1:00 pm

Hi there,

Somebody can help me to build up 'Paste Channel.tcl' I.e. Somebody entered my channel and do whois on me. Then he paste my whois info in the main public channel. So that, the tcl detect that he paste information in the channel. Therefore, he will be kick out for the first time and for the second time he'll get banned.

p/s: paste information isn't limit to whois info, means that tcl can detect that users paste some information that he/she get in irc in the public. I.e. as below;

I paste,
[23:02] *** Joins: caruf (c_est@215-211.sh.cgocable.ca) in #slennox.
Then, my tcl/bot detect it's a paste information, so i'll get kick out.

I paste,
[23:05] *** Quits: Rafael_^ (mala@dl-nas1-sjp-C8B1BA4A.p001.terra.com.br) (perai...) in #slennox. Then, my bot/tcl detect it's a paste information, so i'll get kick out.

etc etc..

Thanks.

ppslim · Post by **ppslim** » Sun Dec 09, 2001 2:02 pm

Many irc client, and even client scripts, have different ways of diaplayin there output. Because of this, it would be extramly hard to do.

Every line of text that the bot receives from irc, would have to be checked, match against a very large list of information, to detects each and every script/client.

This would be rather slow.

In general, just to detect if a user is pasting somthing, would be rather hard. Irc was invented before cut-copy-paste, and there is just plain no code, or information sugesting it has been pasted.

blood_x · Post by **blood_x** » Sun Dec 09, 2001 2:18 pm

PPSLIM,

Hehe, I know that, but I wonder how 'darkbot' use in #irc_help Undernet can do that. When someone paste info in the public, the botz will kick that person.

Anyway, if it's difficult to make this tcl scripts, just forget about it. It's some idea for me to increase channel protection newdays. Thanks, ppslim.

Furthermore, can u write a tcl that can kick (first time), ban (second time) with reason and channel specified if some irc users using colors in public.

Thanks.

ppslim · Post by **ppslim** » Sun Dec 09, 2001 2:37 pm

Code: Select all

set coloruser {}
bind msgm - "% *" color:kicker
prco color:kicker {nick uh hand chan arg} {
  global coloruser
  if {[regexp -all -- {[1code]
set coloruser {}
bind msgm - "% *" color:kicker
prco color:kicker {nick uh hand chan arg} {
  global coloruser
  if {[regexp -all -- {03[0-9]{0,2}(,[0-9]{0,2})?} $arg]} {
    if {[set idx [lsearch -exact $coloruser $nick]]} {
      set coloruser [lreplace $coloruser $idx $idx]
      putserv "NOTICE $nick :Banned for colors"
      putserv "MODE $chan +b [maskhost "${nick}!${uh}"]"
      putserv "KICK $chan $nick :Banned for colors"
      return
    }
    lappend coloruser $nick
    putserv "NOTICE $nick :Stop usign colors"
    putserv "KICK $chan $nick :Color user"
  }
}
[/code1]03[0-9]{0,2}(,[0-9]{0,2})?} $arg]} {
    if {[set idx [lsearch -exact $coloruser $nick]]} {
      set coloruser [lreplace $coloruser $idx $idx]
      putserv "NOTICE $nick :Banned for colors"
      putserv "MODE $chan +b [maskhost "${nick}!${uh}"]"
      putserv "KICK $chan $nick :Banned for colors"
      return
    }
    lappend coloruser $nick
    putserv "NOTICE $nick :Stop usign colors"
    putserv "KICK $chan $nick :Color user"
  }
}

blood_x · Post by **blood_x** » Sun Dec 09, 2001 3:14 pm

ppslim,

What should I add to this field 'set coloruser {}'. I had changed 'prco' to be proc, then the script doesn't function.

ppslim · Post by **ppslim** » Sun Dec 09, 2001 3:18 pm

EEK

Small bugs in the forum, meant that last post was rather garbled.

And then I forget to post the fix

set coloruser {}
bind msgm - "% *" color:kicker
proc color:kicker {nick uh hand chan arg} {
global coloruser
if {[regexp -all -- {03[0-9]{0,2}(,[0-9]{0,2})?} $arg]} {
if {[set idx [lsearch -exact $coloruser $nick]]} {
set coloruser [lreplace $coloruser $idx $idx]
putserv "NOTICE $nick :Banned for colors"
putserv "MODE $chan +b [maskhost "${nick}!${uh}"]"
putserv "KICK $chan $nick :Banned for colors"
return
}
lappend coloruser $nick
putserv "NOTICE $nick :Stop usign colors"
putserv "KICK $chan $nick :Color user"
}
}

There is no need to set anything in the "set coloruser" line, that is there to make the script function corectly.

<font size=-1>[ This Message was edited by: ppslim on 2001-12-09 12:19 ]</font>

blood_x · Post by **blood_x** » Sun Dec 09, 2001 3:30 pm

Uwaa, its still doesn't work ppslim. Should i bind msgm to pub?

ppslim · Post by **ppslim** » Mon Dec 10, 2001 1:15 am

OOOPS - yes

well, bind it to pubm.

I here by tender my resignation, as I just don't seem to cut the mustand any more. That and my keyboard is wearing out.