CS auto why

yanny · Post by **yanny** » Fri Aug 21, 2009 7:37 am

hi i would like to request for tcl script that would automatically do /cs why #channel nick when someone is opped and would notice to the channel ops immediately.. thanks i badly need this script to know whos access are they using.. i hope someone will make it for me

arfer · Post by **arfer** » Fri Aug 21, 2009 9:22 am

The response to a /WHO command may differ depending on the ircd services module, so, whilst I have tested this on DALnet, I can't guarantee it will work as expected elsewhere.

Code: Select all

# why.tcl
# find out why users are op'd by chanserv services and onotice channel

set vWhyServ "chanserv@services.dal.net"
set vWhyTime 10

bind MODE - "% +o" pWhySend
bind NOTC - * pWhyReceive

proc pWhyCancel {} {
    global vWhyChan vWhyNick
    foreach item [utimers] {
        if {[string equal pWhyTimeout [lindex $item 1]]} {
            killutimer [lindex $item 2]
        }
    }
    if {[info exists vWhyNick]} {unset vWhyNick}
    if {[info exists vWhyChan]} {unset vWhyChan}
    return 0
}

proc pWhyReceive {nick uhost hand text dest} {
    global vWhyNick vWhyChan vWhyServ
    if {![regexp {^#} $dest]} {
        if {[string equal -nocase $nick [lindex [split $vWhyServ @] 0]]} {
            if {[info exists vWhyNick]} {
                set response [stripcodes bcruag $text]
                if {[string match -nocase *${vWhyNick}* [join [lrange [split $response] 0 2]]]} {
                    putserv "NOTICE @$vWhyChan :$response"
                    pWhyCancel
                }
            }
        }
    }
    return 0
}

proc pWhySend {nick uhost hand chan mode target} {
    global vWhyServ vWhyNick vWhyChan vWhyTime
    if {[string equal -nocase $nick [lindex [split $vWhyServ @] 0]]} {
        set vWhyNick $target
        set vWhyChan $chan
        putserv "PRIVMSG $vWhyServ :WHY $vWhyChan $vWhyNick"
        utimer $vWhyTime pWhyTimeout
    }
    return 0
}

proc pWhyTimeout {} {
    global vWhyNick vWhyChan
    putserv "PRIVMSG @$vWhyChan :a /WHY command for $vWhyNick timed out without response"
    pWhyCancel
    return 0
}

# eof

yanny · Post by **yanny** » Fri Aug 21, 2009 1:51 pm

it is working perfectly fine... u are terrific!! thank you!!

Thanhas · Post by **Thanhas** » Sun Aug 23, 2009 2:34 am

Hello,
i apprecaite the codes of arfer.
i have one request in it?
can you add last mask in it? i me it tells that the Op was Joined with those nicks and masks past one week.
for e.g
arfer was seen with arfer1 (arfe@your.rock.ever) arfr2 (arfer@Long.live.bratish) being as op Past one week

hope its pssible...

arfer · Post by **arfer** » Wed Aug 26, 2009 12:45 pm

That information is not returned with a /WHY request (not on the network I use anyway)

Thanhas · Post by **Thanhas** » Wed Aug 26, 2009 1:05 pm

arfer wrote:That information is not returned with a /WHY request (not on the network I use anyway)

But i have seen this on some channel so i request here...
Give a try if you could ?

devilsoulblack · Post by **devilsoulblack** » Sat Sep 18, 2010 8:21 pm

@arfer : thanks for sharing

4mirc · Post by **4mirc** » Tue Oct 12, 2010 4:29 pm

hello all

its wonderfull script but can any one add code

to make the code work in chans i want not all chans the bot in?

thanks for all