egghelp/eggheads community

why tcl

2012-05-24T00:35:43-04:00

Here's a new version:

Code:

namespace eval csWhy {setudef str csWhyListsetudef flag cswhybind mode * "% +o" [namespace current]::checkWhybind notc * * [namespace current]::checkReplybind part * * [namespace current]::removebind sign * * [namespace current]::removebind nick * * [namespace current]::nickbind kick * * [namespace current]::kickbind join * * [namespace current]::botJoin# purgeproc purge {chan user {newNick ""}} {set csWhyList [channel get $chan csWhyList]set pos [lsearch $csWhyList $user]if {$pos != -1} {if {![llength $newNick]} {set csWhyList [lreplace $csWhyList $pos $pos]} else {set csWhyList [lreplace $csWhyList $pos $pos $newNick]}channel set $chan csWhyList $csWhyList}return $pos   }   # cleanupproc cleanup {chan user} {if {[isbotnick $user]} {channel set $chan csWhyList {}} else {purge $chan $user}}   # joinproc botJoin {nick uhost hand chan} {if {[isbotnick $nick]} {channel set $chan csWhyList {}}    }   # kickproc kick {nick uhost handle chan vict reason} {if {![channel get $chan cswhy]} returnif {![wasop $chan $nick]} returncleanup $chan $nick}# part & signproc remove {nick uhost handle chan {text ""}} {if {![channel get $chan cswhy]} returncleanup $chan $nick}# nickproc nick {nick uhost handle chan newNick} {if {[isbotnick $nick] || ![channel get $chan cswhy]} returnif {![isop $chan $nick]} returnputhelp "ChanServ WHY $chan $newNick"purge $chan $nick $newNick}   # someone got OP'ed on the channelproc checkWhy {nick uhost hand chan mode target} {if {[isbotnick $target]} returnif {![channel get $chan cswhy]} returnset csWhyList [channel get $chan csWhyList]lappend csWhyList $targetchannel set $chan csWhyList $csWhyListputhelp "ChanServ WHY $chan $target"   }# reply of WHY command from ChanServproc checkReply {nick uhost hand text {dest ""}} {if {[string equal -length 1 # $dest]} returnif {![string equal $nick "ChanServ"]} returnset text [split $text]if {[lsearch $text "Identification"] == -1} returnset chan [string trim [lindex $text 5] {.}]if {![channel get $chan cswhy]} returnset user [lindex $text 0]if {[purge $chan $user] != -1} {puthelp "NOTICE @$chan :$text"}}}putlog "cswhy.tcl loaded.."

I joined Dalnet in order to check this out but needed AOP on a channel to issue the WHy command so I had to fake a few things in order to test this out, and from my results it's working fine.

* bot sets mode: +o caesar
<@bot> ChanServ WHY #chan caesar
-bot:@#chan- @ caesar has FOUNDER access to #chan. Reason: Identification to services with the channel password. Channel Frozen: NO

* caesar is now known as user
<@bot> ChanServ WHY #chan user

Statistics: Posted by caesar — Thu May 24, 2012 12:35 am

why tcl

2012-05-23T15:40:49-04:00

caesar; any news?

Statistics: Posted by Amr — Wed May 23, 2012 3:40 pm

why tcl

2012-05-19T04:34:15-04:00

I got the result only via telnet , not over ops notice.

Statistics: Posted by Amr — Sat May 19, 2012 4:34 am

why tcl

2012-05-18T04:20:46-04:00

The code in my previous comment makes it *ignore* any other notices if is not one regarding an issued WHY command, thus no more errors like that of a invalid channel.

To be honest I don't quite understand you. You said it's working, then it isn't and then you change your mind again. Decide already, is it working or not? I ran some tests and was working fine at me, yet at you it didn't. Don't know what exactly you've done there as it should work without any issues.

I'll get later on a bot on Dalnet servers and test this again, although the result shouldn't differ, meaning it's working as should.

Statistics: Posted by caesar — Fri May 18, 2012 4:20 am

why tcl

2012-05-17T08:09:40-04:00

now I see the chanserv's reply on the telnet only.

Statistics: Posted by Amr — Thu May 17, 2012 8:09 am

why tcl

2012-05-17T00:20:52-04:00

That's weird. The channel #chan is set correctly yet you don't see the op notice? Anyway, add:

Code:

if {![channel get $chan cswhy]} returnif {[lsearch $text "Identification"] == -1} return

before:

Code:

set csWhyList [channel get $chan csWhyList]

and remove the debug line and it should be working fine.

Statistics: Posted by caesar — Thu May 17, 2012 12:20 am

why tcl

2012-05-16T13:59:06-04:00

here we go
[19:55:49] cswhy.tcl debug - chan is: #chan
[19:55:49] -ChanServ (service@dal.net)- nick has FOUNDER access to #chan. Reason: Identification to the founder's nickname, nick. Channel Frozen: NO

And I got this on telnet on channel which the script is disabled in.

[19:56:18] cswhy.tcl debug - chan is: xeo

Statistics: Posted by Amr — Wed May 16, 2012 1:59 pm

why tcl

2012-05-16T13:32:56-04:00

Since the channel variable is set correctly:

% set text "nick has FOUNDER access to #chan. Reason: Identification to the founder's nickname, nick. Channel Frozen: NO"
nick has FOUNDER access to #chan. Reason: Identification to the founder's nickname, nick. Channel Frozen: NO
% string trim [lindex [split $text] 5] {.}
#chan

I don't get it why it says #chan is not valid.

Let's do a little debug of the chan variable by adding:

Code:

putlog "cswhy.tcl debug - chan is: $chan"

after:

Code:

set chan [string trim [lindex $text 5] {.}]

and report back what you get in telnet.

Statistics: Posted by caesar — Wed May 16, 2012 1:32 pm

why tcl

2012-05-16T10:48:49-04:00

exactly , I see the chanserv's reply on the telnet only.

Statistics: Posted by Amr — Wed May 16, 2012 10:48 am

why tcl

2012-05-16T09:44:07-04:00

Wait, what?!

So, you see the reply (notice) from ChanServ and the bot itself repeats the same line in the telnet, or you see only ChanServ's reply?

Statistics: Posted by caesar — Wed May 16, 2012 9:44 am

why tcl

2012-05-16T05:38:57-04:00

I got no errors now , but it replies the result to the telnet not to the @#chan O.o

Statistics: Posted by Amr — Wed May 16, 2012 5:38 am

why tcl

2012-05-16T00:18:53-04:00

Is #chan a valid channel? Add the following

Code:

if {![validchan $chan]} return

before:

Code:

set csWhyList [channel get $chan csWhyList]

Statistics: Posted by caesar — Wed May 16, 2012 12:18 am

why tcl

2012-05-15T09:21:00-04:00

I tried it again but it gives the same error.

[11:16:38] Tcl error [::csWhy::checkReply]: no such channel record
[11:16:38] -ChanServ (service@dal.net)- nick has FOUNDER access to #chan. Reason: Identification to the founder's nickname, nick. Channel Frozen: NO

Statistics: Posted by Amr — Tue May 15, 2012 9:21 am

why tcl

2012-05-15T01:13:37-04:00

That's weird. I just tested this and works as should.

Statistics: Posted by caesar — Tue May 15, 2012 1:13 am

why tcl

2012-05-14T05:17:28-04:00

[11:16:38] Tcl error [::csWhy::checkReply]: no such channel record
[11:16:38] -ChanServ (service@dal.net)- nick has FOUNDER access to #chan. Reason: Identification to the founder's nickname, nick. Channel Frozen: NO

Statistics: Posted by Amr — Mon May 14, 2012 5:17 am