egghelp/eggheads community

Request whois reply

2014-12-07T04:38:13-04:00

I have tested the Get_A_Fix's tcl but is not possible to set a ban time , the kick message and the the % of join & quit, but only the seconds before the quit.
The first tcl allprotections is really complicated to disable all is not simple, I try with #test# for disable some functions, but on rehash the bot give me error.
I'm not expert on modify the tcl script, but is possible in some tcl write for the join/part flood, change the part with the quit for to work it?

Thanks and salute

Firstly, riham, I think you've posted in the wrong thread. This thread is for a /whois script on an operbot. Secondly, because I'm not a moderator and am unable to move your question to the appropriate place, I'll just answer it here.
There are a couple of things you could use. For example, this script below will allow you to manage join/part and join/quit.

Code:

# Commands: (these are available to Global OPs and Channel Master's and above)# ---------# !joinpart on|off# !joinquit on|off# /msg yourbot joinpart #channel on|off# /msg yourbot joinquit #channel on|off# Set global trigger to be usedset mytrig "!"# Set time in seconds, for how long someone should have stayed joined, before they part or quit.set jointime "10"# ----- CODE BLOCK -----proc getTrig {} {  global mytrig  return $mytrig}setudef flag joinpartsetudef flag joinquitbind part - * join:partbind sign - * join:quitbind pub - ${pubtrig}joinpart joinpart:pubbind pub - ${pubtrig}joinquit joinquit:pubbind msg - joinpart joinpart:msgbind msg - joinquit joinquit:msgproc joinpart:pub {nick uhost hand chan arg} {  global botnick  if {[matchattr [nick2hand $nick] o|m $chan]} {    if {[lindex [split $arg] 0] == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrig]joinpart on|off"; return}    if {[lindex [split $arg] 0] == "on"} {      if {[channel get $chan joinpart]} {putquick "PRIVMSG $chan :\037ERROR\037: This setting is already enabled."; return}      channel set $chan +joinpart      puthelp "PRIVMSG $chan :Enabled JoinPart Protection for $chan"      return    }    if {[lindex [split $arg] 0] == "off"} {      if {![channel get $chan joinpart]} {putquick "PRIVMSG $chan :\037ERROR\037: This setting is already disabled."; return}      channel set $chan -joinpart      puthelp "PRIVMSG $chan :Disabled JoinPart Protection for $chan"      return    }  }}proc joinquit:pub {nick uhost hand chan arg} {  global botnick  if {[matchattr [nick2hand $nick] o|m $chan]} {    if {[lindex [split $arg] 0] == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrig]joinquit on|off"; return}    if {[lindex [split $arg] 0] == "on"} {      if {[channel get $chan joinquit]} {putquick "PRIVMSG $chan :\037ERROR\037: This setting is already enabled."; return}      channel set $chan +joinquit      puthelp "PRIVMSG $chan :Enabled JoinQuit Protection for $chan"      return    }    if {[lindex [split $arg] 0] == "off"} {      if {![channel get $chan joinquit]} {putquick "PRIVMSG $chan :\037ERROR\037: This setting is already disabled."; return}      channel set $chan -joinquit      puthelp "PRIVMSG $chan :Disabled JoinQuit Protection for $chan"      return    }  }}proc joinpart:msg {nick uhost hand arg} {  global botnick  set chan [strlwr [lindex $arg 0]]  if {[matchattr [nick2hand $nick] o|m $chan]} {    if {[lindex [split $arg] 0] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick joinpart #channel on|off"; return}    if {[lindex [split $arg] 1] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick joinpart $chan on|off"; return}    if {[lindex [split $arg] 1] == "on"} {      if {[channel get $chan joinpart]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already enabled."; return}      channel set $chan +joinpart      putquick "NOTICE $nick :Enabled JoinPart Protection for $chan"      return    }    if {[lindex [split $arg] 1] == "off"} {      if {![channel get $chan joinpart]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already disabled."; return}      channel set $chan -joinpart      putquick "NOTICE $nick :Disabled JoinPart Protection for $chan"      return    }  }}proc joinquit:msg {nick uhost hand arg} {  global botnick  set chan [strlwr [lindex $arg 0]]  if {[matchattr [nick2hand $nick] o|m $chan]} {    if {[lindex [split $arg] 0] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick joinquit #channel on|off"; return}    if {[lindex [split $arg] 1] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick joinquit $chan on|off"; return}    if {[lindex [split $arg] 1] == "on"} {      if {[channel get $chan joinquit]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already enabled."; return}      channel set $chan +joinquit      putquick "NOTICE $nick :Enabled JoinQuit Protection for $chan"      return    }    if {[lindex [split $arg] 1] == "off"} {      if {![channel get $chan joinquit]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already disabled."; return}      channel set $chan -joinquit      putquick "NOTICE $nick :Disabled JoinQuit Protection for $chan"      return    }  }}proc join:part {nick uhost hand chan {msg ""}} {  global jointime  if {[channel get $chan joinpart]} {    set mask *!*@[lindex [split [getchanhost $nick $chan] @] 1]    set join [getchanjoin $nick $chan]    set part [unixtime]    set joinpart [expr $part - $join]    if {$joinpart <= $jointime} {      if {[botisop $chan] && ![validuser [nick2hand $nick]]} {        pushmode $chan +b $mask      }    }  }}proc join:quit {nick uhost hand chan reason} {  global jointime  if {[channel get $chan joinquit]} {    set mask *!*@[lindex [split [getchanhost $nick $chan] @] 1]    set join [getchanjoin $nick $chan]    set quit [unixtime]    set joinquit [expr $quit - $join]    if {$joinquit <= $jointime} {      if {[botisop $chan] && ![validuser [nick2hand $nick]]} {        pushmode $chan +b $mask      }    }  }}putlog ".:LOADED:. - JoinPart & JoinQuit - istok @ IRCSpeed"

Or, you could also use a method like this:

Code:

# Command set via DCC/Telnet Partyline# .chanset #channel flood-join joins:seconds (example: .chanset #IRCSpeed flood-join 4:2 - setting 4 joins in 2 seconds)## Set the Lock Modes # Bot will change channel mode to the modes you will specify below in case the bot will detect join flood# To Disable Mode change set it to "" set joinlockmodes "mR"## Set the time in seconds to Unlock Modes (needed even if joinlockmodes are "")# The Bot will Unlock the channel after the specified time you will set belowset unlocktime "45"## Set the time in minutes to Unban (needed even if joinlockmodes are "")# The Bot will Unban the user after the specified time you will set belowset unbantime "60"# Set the Kick Message you would like, if the user(s) are still on Channel.set kickmsg "\037J\037\002oin\002 \037F\037\002lood\002 \037D\037\002etected\002"# BAN Types are given below;# 1 - *!*@some.domain.com # 2 - *!*@*.domain.com# 3 - *!*ident@some.domain.com# 4 - *!*ident@*.domain.com# 5 - *!*ident*@some.domain.com# 6 - *nick*!*@*.domain.com# 7 - *nick*!*@some.domain.com# 8 - nick!ident@some.domain.com# 9 - nick!ident@*.host.comset bantype 1############################ CONFIGURATION ENDS HERE ############################bind flud - join joinfloodproc joinflood {nick uhost hand type chan} {  global joinlockmodes unbantime unlocktime kickmsg  if {![botisop $chan] && [validuser [nick2hand $nick]] && [isop $nick $chan] && [isvoice $nick $chan]} {return}   set banmask [make:banmask $uhost $nick]   putquick "MODE $chan +$joinlockmodes"   pushmode $chan +b $banmask   putquick "KICK $chan $nick :$kickmsg."   utimer $unlocktime [list putquick "MODE $chan -$joinlockmodes"]   timer $unbantime [list pushmode $chan -b $banmask]}proc make:banmask {uhost nick} { global bantype  switch -- $bantype {   1 { set banmask "*!*@[lindex [split $uhost @] 1]" }   2 { set banmask "*!*@[lindex [split [maskhost $uhost] "@"] 1]" }   3 { set banmask "*!*$uhost" }   4 { set banmask "*!*[lindex [split [maskhost $uhost] "!"] 1]" }   5 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }   6 { set banmask "*$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }   7 { set banmask "*$nick*!*@[lindex [split $uhost "@"] 1]" }   8 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split $uhost @] 1]" }   9 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }   default { set banmask "*!*@[lindex [split $uhost @] 1]" }   return $banmask  }}putlog ".:LOADED:. JoinFlood.Check - istok @ IRCSpeed"

Allprotection.tcl is a huge script. It is rather bloated, but still gets the job done. I prefer to load specific scripts for specific events, and sometimes that can mean it reacts or triggers faster than bigger scripts like Allprotection.

You can use the top script, the bottom script, or all of it. It's up to you, and you may want to test which works best and stick with that.

Statistics: Posted by Get_A_Fix — Sun Dec 07, 2014 4:38 am

Request whois reply

2014-11-29T03:17:20-04:00

I have tested the Get_A_Fix's tcl but is not possible to set a ban time , the kick message and the the % of join & quit, but only the seconds before the quit.
The first tcl allprotections is really complicated to disable all is not simple, I try with #test# for disable some functions, but on rehash the bot give me error.
I'm not expert on modify the tcl script, but is possible in some tcl write for the join/part flood, change the part with the quit for to work it?

Thanks and salute

Statistics: Posted by riham — Sat Nov 29, 2014 3:17 am

Request whois reply

2013-12-13T16:52:26-04:00

if {[string tolower $arg] != [string tolower $botnick]} {
Really? Why do you have to reinvent the wheel and not stick with using isbotnick function instead?

Original Code Amended.
I have used string tolower for a long time, it's just out of habit and the way I taught myself to code. The isbotnick function came out later, but is a more efficient method to use.

Thanks to everyone for their input and help

As long as you're happy. Like I said, I've even started using this script on my Operbot, but I've added protection against the command being flooded. This is done by simply adding an ignore for the unknown user, for 5sec or 10sec, even 60sec.

Statistics: Posted by Get_A_Fix — Fri Dec 13, 2013 4:52 pm

Request whois reply

2013-12-13T00:19:16-04:00

Thanks for the help with the time date part heartbroken

Here is what I came up with:

Code:

set adminchan "#channel"bind raw - "NOTICE" findwhoisproc findwhois {from keyword arg} {  global adminchan network  if {[string match "*did a /whois*" $arg]} {    set nick [lindex [split $arg] 2]    set hostmask [lindex [split $arg] 3]    putquick "NOTICE $nick :\00315,1Hey! $nick, \00304Your hostmask is: \00315$hostmask \00304Your whois on: \00315$network IRC Network \00304this: \00315[clock format [clock scan "0 day" -base [clock seconds]] -format "%A %b. %d, %Y \00304at: \00315%H:%M:%S"] \00304has been logged and identifed for security purposes.\003"    putserv "PRIVMSG $adminchan :Hey! $nick $hostmask did a /whois on me."    return 0  }}

I have tested this and don't get any errors on: eggdrop v1.6.21

Thanks to everyone for their input and help

Statistics: Posted by play4free2 — Fri Dec 13, 2013 12:19 am

Request whois reply

2013-12-12T20:57:19-04:00

Code:

I still need to figure out how to add the day, date and time like this "Tuesday 10/12/2013 at: 13:27:09" to the reply the user that did the whois gets.

->> http://www.tcl.tk/man/tcl8.6/TclCmd/clock.htm

Code:

puts [clock format [clock scan "0 day" -base [clock seconds]] -format "%Y-%B-%d %A %H:%M:%S"]> 2013-December-13 Friday 02:53:10

Statistics: Posted by heartbroken — Thu Dec 12, 2013 8:57 pm

Request whois reply

2013-12-12T20:04:41-04:00

Get_A_Fix

This is what I have come up with so far out of the one I had and the one you wrote.

Code:

set adminchan "#channel"bind raw - "NOTICE" findwhoisproc findwhois {from keyword arg} {  global botnick adminchan network  if {[string match "*did a /whois*" $arg]} {    if {[string tolower $arg] != [string tolower $botnick]} {      set nick [lindex [split $arg] 2]      set hostmask [lindex [split $arg] 3]      putquick "NOTICE $nick :\00308,1Hey! $nick, \00307Your hostmask is: \00315$hostmask \00304Your whois on: \00315$network Network \00304has been logged and identifed for security purposes.\003"      putserv "PRIVMSG $adminchan :Hey! $nick $hostmask did a /whois on me."      return 0    }  }}

I still need to figure out how to add the day, date and time like this "Tuesday 10/12/2013 at: 13:27:09" to the reply the user that did the whois gets.

@caesar
I am new to writing .tcl is there something I missed here:

if {[string tolower $arg] != [string tolower $botnick]} {

Really? Why do you have to reinvent the wheel and not stick with using isbotnick function instead?

As in a different way to write it?

Statistics: Posted by play4free2 — Thu Dec 12, 2013 8:04 pm

Request whois reply

2013-12-12T11:13:09-04:00

if {[string tolower $arg] != [string tolower $botnick]} {

Really? Why do you have to reinvent the wheel and not stick with using isbotnick function instead?

Statistics: Posted by caesar — Thu Dec 12, 2013 11:13 am

Request whois reply

2013-12-17T22:25:34-04:00

Really?

I have mine like this, since making the code. I'll probably leave it running, since it directs users to the appropriate places.

Code:

-OperHelp is OperHelp@IRCSpeed.assistant * IRCSpeed Oper AssistantOperHelp is a registered nickOperHelp on @#vHost OperHelp using *.ircspeed.org IRCSpeed Client ServerOperHelp is a Bot on IRCSpeedOperHelp has been idle 17secs, signed on Tue Dec 03 00:05:28OperHelp End of /WHOIS list.--OperHelp- For General Help please join #Help - Or for direct IRCSpeed Staff assistance, join #OperHelp

That's what anyone see's on a /whois - but that is specific to the bot and its purpose I guess. OperHelp is a tool.

Statistics: Posted by Get_A_Fix — Thu Dec 12, 2013 10:08 am

Request whois reply

2013-12-10T17:34:56-04:00

Thanks Get_A_Fix,

Just what I was looking for!

Eventually I want to get one that replays like mine does:

UserNick I have been whois'd 245 times. Your hostmask is: (ident@127.0.0.1) Your whois on: 420-HIGHTIMES Network this: Tuesday 10/12/2013 at: 13:27:09 has been logged and identifed for security purposes.

/me needs to learn more .tcl

Thanks again

Statistics: Posted by play4free2 — Tue Dec 10, 2013 5:34 pm

Request whois reply

2013-12-13T18:23:24-04:00

Most easiest way I guess would be

Code:

set noticesend "This would be what's sent to the user"set noticesend2 "This could be a second line, or just remove it."bind raw - "NOTICE" findwhoisproc findwhois {from keyword arg} {  global noticesend noticesend2  if {[string match "*did a /whois*" $arg]} {      set nick [lindex [split $arg] 2]      if {![isbotnick $nick]} {      putquick "NOTICE $nick :$noticesend"      putquick "NOTICE $nick :$noticesend2"    }  }}

You can make it say anything, or remove whatever you want.

Statistics: Posted by Get_A_Fix — Tue Dec 10, 2013 2:05 pm

Request whois reply

2013-12-10T03:35:10-04:00

Hi,

I found this code with Google:

Code:

bind raw - "NOTICE" findwhoisproc findwhois {nick junk arg} {  if {![string match "*did a /whois*" $arg]} {    return 0  }  putlog "Hey! [lrange $arg 4 end]"  return 0}

But what I am looking for is one that instead of doing putlog it notices the nick that did the whois on the bot instead. The bot is an oper running on Unreal with Anope Services.

Thanks in advance for any help

Statistics: Posted by play4free2 — Tue Dec 10, 2013 3:35 am