egghelp/eggheads community

Help with Server Notice binds

2003-05-30T10:25:53-04:00

Yup, that worked. Cant believe it was such a simple error. but it is now triggering Putlog 3a, which is what wasnt happening.

[15:25:25] [15:25] 1
[15:25:25] [15:25] 2
[15:25:25] [15:25] 3a
[15:25:25] [15:25] -NOTICE- Weirdo!Seb@213.106.125.41 ACCESS [#catgirls] LIST

Getting past the checks nicely

Statistics: Posted by Weirdo — Fri May 30, 2003 10:25 am

Help with Server Notice binds

2003-05-26T11:15:39-04:00

Code:

if {[string match -nocase $text $nserv(warning)] == 1} {

this line is wrong, first of I bet you want it to react when the text match, not when it doesn't, right now it hops to the else command when it doesn't match. Also you need to change the position of $text and $nserv(warning) ... make the line like this:

Code:

if {![string match -nocase $nserv(warning) $text]} {

and give it another try

Just a small side-notice
When binding raw NOTICE, $text won't just include the text of the notice, it will first hold the destination for the notice... in this case the botnick
so infact the reply will look like this:
from= "X!service@someservicebots.host" key="NOTICE" text="botnick :the text sent to the bot"
* this was just a small notice to anyone else wondering about the raw NOTICE bind

Statistics: Posted by Papillon — Mon May 26, 2003 11:15 am

Help with Server Notice binds

2003-05-26T06:45:27-04:00

Well, i thought i would come back, after fiddling with the script this morning. I added some major logging to the script, to test the logic

Code:

set cserv(services) "Services.Aniverse.Com"set nserv(warning) "*This nickname is owned*"proc nserv:notc {from keyword text} { global cserv nserv if {[string equal -nocase $from $cserv(services)] != 1} { return 0 } putlog "1"if {[info exists nserv(check)]} { if {($nserv(check) + 45) > [unixtime]} { return 0 }}putlog "2"if {[string match -nocase $text $nserv(warning)] == 1} { putlog "3a"return 0} else { putlog "3b"putserv "Privmsg $nserv(nick) :Identify $nserv(pass)" putcmdlog "Nickserv Auto-Trigger Completed" putserv "Privmsg $cserv(nick) :Op $::runchan"} putlog "4"set nserv(check) [unixtime]utimer 15 [list catch [list unset nserv(check)]] putlog "5" return 0 }

To Trigger on [11:40] -NOTICE- This nickname is owned by someone else

And on that trigger ONLY, run the script

But...

[11:40:28] [11:40] Regained nickname 'Natsuki-Chan'.
[11:40:28] [11:40] 1
[11:40:28] [11:40] 2
[11:40:28] [11:40] 3b
[11:40:28] [11:40] Nickserv Auto-Trigger Completed
[11:40:28] [11:40] 4
[11:40:28] [11:40] 5
[11:40:28] [11:40] -NOTICE- This nickname is owned by someone else
[11:40:28] [11:40] 1
[11:40:28] [11:40] -NOTICE- If this is your nickname, type /msg NickServ IDENTIFY

does trigger on the message...

but also ...

[11:44:08] [11:44] 1
[11:44:08] [11:44] 2
[11:44:08] [11:44] 3b
[11:44:08] [11:44] Nickserv Auto-Trigger Completed
[11:44:08] [11:44] 4
[11:44:08] [11:44] 5
[11:44:08] [11:44] -NOTICE- Weirdo!Seb@public2-ward1-6-cust41.oldh.broadband.ntl.com ACCESS [#catgirls] LIST

Now for some reason, even using the String Match, and String Equal, it just doesnt check it right. Is there any other way i can check one thing against another, cause right now, am out of ideas

Thanks

Statistics: Posted by Weirdo — Mon May 26, 2003 6:45 am

Help with Server Notice binds

2003-05-18T11:17:20-04:00

set nserv(warning) "*nickname is owned*"

Thats what the warning variable is. What other logic could i add? I checked who the notice is from, services, i checking what the warning has to be, and i am checking for flood protection

What else could be added?

Statistics: Posted by Weirdo — Sun May 18, 2003 11:17 am

Help with Server Notice binds

2003-05-18T06:26:43-04:00

I did say it wasn't complete.

It needs more logic adding, to make sure it only responds to the commands you want.

Code:

if {[string equal -nocase $text $nserv(warning)] != 1} {

You need to make sure the $nserv(warning) variable is set to the correct value.

Statistics: Posted by ppslim — Sun May 18, 2003 6:26 am

Help with Server Notice binds

2003-05-18T03:31:41-04:00

and in further playing, i discovered it was my logic that was screwing it up

Code:

if {[string equal -nocase $text $nserv(warning)] != 0} { return 0} else { putserv "Privmsg $nserv(nick) :Identify $nserv(pass)" putcmdlog "Nickserv Auto-Trigger Completed" putserv "Privmsg $cserv(nick) :Op $::runchan"}

dangit, thought that would have fixed it, but alas, it didnt

[08:32:18] [08:32] -NOTICE- Weirdo!Seb@public2-ward1-6-cust41.oldh.broadband.ntl.com ACCESS [#catgirls] LIST
[08:32:18] [08:32] -NOTICE- You have already identified
[08:32:19] [08:32] -NOTICE- You are already opped on [#catgirls]

dangit

Sorry for double post, cant delete it seems

Statistics: Posted by Weirdo — Sun May 18, 2003 3:31 am

Help with Server Notice binds

2003-05-18T03:16:47-04:00

hi, problem cropped up. Took me a while to notice it.

Now, thanks to the flood protection you build ppslim, it isnt causing too much problems, but the script IS responding to all Services notices, and is trying to complete a trigger on them all

Checked it this morning after reading some log files

[08:13:47] [08:13] Nickserv Auto-Trigger Completed
[08:13:47] [08:13] -NOTICE- Cyber_Akuma!Tendo847@12-248-42-33.client.attbi.com ACCESS [#catgirls] ADD princessv 8

Any idea why the first if statement isnt being validated right?

Code:

if {[string equal -nocase $text $nserv(warning)]} { putserv "Privmsg $cserv(nick) :Op $::runchan" } else { putserv "Privmsg $nserv(nick) :Identify $nserv(pass)" putcmdlog "Nickserv Auto-Trigger Completed" }

Did some testing, and got the bot ignored on services again, came up with this

Code:

if {[string equal -nocase $text $nserv(warning)] != 1} { putlog "Test"return 1} else { putserv "Privmsg $nserv(nick) :Identify $nserv(pass)" putcmdlog "Nickserv Auto-Trigger Completed" putserv "Privmsg $cserv(nick) :Op $::runchan"}

Problem that i created now, is that i cant see the notices in the dcc chat, that are from services, they all come out as

[08:27:40] Msg to nickserv: help
[08:27:41] [08:27] Test
[08:27:42] [08:27] Test

And it seems it still doesnt work, any ideas?

Statistics: Posted by Weirdo — Sun May 18, 2003 3:16 am

Help with Server Notice binds

2003-05-12T05:45:41-04:00

Too be honest.

I don't know!

I am guessing your bot is called natsuki-chan?

If so, then your bot should call the notice bind, as the putlogs sugest the information is complete enough to do so.

Statistics: Posted by ppslim — Mon May 12, 2003 5:45 am

Help with Server Notice binds

2003-05-12T05:36:50-04:00

And it looks like it works. Triggers on EVERY notice, but only responds to the specific services one.

Now the basic functionality is down, and i have seen where i screwed up, can use this to expand the script into auto-ghosting.

Something i have actually noticed is that the majority of the nickserv scripts, if not all, rely on a "notc" bind to detect the messages from services. Only one i have encountered doesnt do this, and this relies on identifying to services every 5/10 minutes, and running various checks to make sure it hasnt done so immediately before.

Did the "notc" bind use to work for server notices? Perhaps in an earlier version?

Statistics: Posted by Weirdo — Mon May 12, 2003 5:36 am

Help with Server Notice binds

2003-05-12T05:02:01-04:00

OK - Answering questions in random order (like I do best).

1: The OP command is there, because you ahd it there. Please refer to previous statments in the post.

2: The array element will be dlated upon unset. That is the whole idea of the unset command.

3: It is my fault you get the error

Code:

if {[info exists $nserv(check)]} { return 0 }

Should be

Code:

if {[info exists nserv(check)]} { return 0 }

Note the $

The unset command takes a variable name, and not it's value.

4: Yes, you are very correct, the catch statment does catch errors, and is precicly what we are trying to catch.

Code:

% set a "hello to all"hello to all% set ahello to all% unset a% set acan't read "a": no such variable% unset acan't unset "a": no such variable

Notice how it errors when a doesn't exist, but you try and unset it.

You can drop the catch part, as an error should never occur (once the variable is set, there is no way to trigger the timer again, thus, no way to double unset (which causes the error)).

5:
I would however, sugest the following change to the script, to make it a little more less issue prone.

Replace the flood protection IF with this.

Code:

if {[info exists nserv(check)]} {  if {($nserv(check) + 60) > [unixtime]} { return 0 }}

Then change the set line to

Code:

set nserv(check) [unixtime]

Another script could possibly delete the timer to unset the variable. If this happens, you script will forever remain in flood protection mode. This change will allow it to continue if after 60 seconds, it hasn't unset itself.

Statistics: Posted by ppslim — Mon May 12, 2003 5:02 am

Help with Server Notice binds

2003-05-11T20:01:55-04:00

One or two queries

First, the Catch in the utimer statement. I thought that was for getting errors?

Second, the script fails to trigger, i inserted a putlog to make sure the bind was triggering, it was, but was returning 0

Changed the Warning variable to the full message nickserv gives, and i got the Array warning for the check variable

[00:54:44] [00:54] Connected to irc-1.aniverse.com
[00:54:44] [00:54] Trigger Successful
[00:54:44] [00:54] Tcl error [nserv:reboot]: can't read "nserv(check)": no such element in array
[00:54:44] [00:54] -NOTICE- *** Looking up your hostname...
[00:54:45] [00:54] Trigger Successful
[00:54:45] [00:54] Tcl error [nserv:reboot]: can't read "nserv(check)": no such element in array
[00:54:45] [00:54] -NOTICE- *** Checking Ident
[00:54:45] [00:54] Trigger Successful
[00:54:45] [00:54] Tcl error [nserv:reboot]: can't read "nserv(check)": no such element in array

the Problem of it triggering on every notice, including those given when the bot is connecting to a server is confusing me a little. The array warning is give on this line

Code:

  if {[info exists $nserv(check)] == 1} {return 0}

what confuses me is that i thought that "info exists" only looks for it. If that variable is unset, wouldnt its array entry remain? Perhaps a change of variable is needed?

Thirdly, the op command in the other if statement, not sure what thats was for?

Thanks for the patience again ppslim, these threads that i make tend to go on for quite a bit. thank you for the help

Statistics: Posted by Weirdo — Sun May 11, 2003 8:01 pm

Help with Server Notice binds

2003-05-11T14:49:20-04:00

Code:

proc nserv:reboot {from keyword text} {   global cserv nserv   if {[string equal -nocase $from "services.aniverse.com"]} { return 0 }  if {[info exists $nserv(check)] == 1} {return 0}   if {[string equal -nocase $text $nserv(warning)]} {    putserv "Privmsg $cserv(nick) :Op $::runchan"  } else {    putserv "Privmsg $nserv(nick) :Identify $nserv(pass)"     putcmdlog "Nickserv Rebooted, Re-identified"   }  set nserv(check) "1"   utimer 20 [list catch [list unset nserv(check)]]      return 0 }

Try that.

Statistics: Posted by ppslim — Sun May 11, 2003 2:49 pm

Help with Server Notice binds

2003-05-11T12:58:58-04:00

[16:03:22] -Services.Aniverse.Com- This nickname is owned by someone else
-
[16:03:22] -Services.Aniverse.Com- If this is your nickname, type /msg NickServ IDENTIFY
-
[16:03:22] -Services.Aniverse.Com- If you do not IDENTIFY within 60 seconds, you nickname will be changed

this is what aniverse gives you when you change nick to a registered one

I programmed the script to use the first notice, rather than the 2nd, to identify

Statistics: Posted by Weirdo — Sun May 11, 2003 12:58 pm

Help with Server Notice binds

2003-05-11T07:42:44-04:00

And what is the one to ask you to identify?

Statistics: Posted by ppslim — Sun May 11, 2003 7:42 am

Help with Server Notice binds

2003-05-11T02:39:27-04:00

[21:17] -NOTICE- Weirdo!Seb@public2-ward1-6-cust41.oldh.broadband.ntl.com ACCESS [#catgirls] LIST
[21:18] Notice From > Services.Aniverse.Com
[21:18] Notice Keywork > NOTICE
[21:18] notice Text > natsuki-chan :You have already identified

the first one uses the From variable, second, keyword, third text

Statistics: Posted by Weirdo — Sun May 11, 2003 2:39 am