egghelp/eggheads community

string lookup in file fails

2001-10-18T09:41:00-04:00

yay, i finally got it working

when adding the nick/uhost like this:

Code:

puts $fp "$nick *[string trimleft [maskhost $uh] "*!"]"

it works beautifully thanks to all who helped me with this.

Statistics: Posted by Guest — Thu Oct 18, 2001 9:41 am

string lookup in file fails

2001-10-18T05:16:00-04:00

That didn't work (surprise). I added the putlog line. Output is now:

[09:22] testing line *!drow@*.upc-a.chello.nl against Errtu|TCL!~drow@b255089.upc-a.chello.nl

/me is getting frustrated.

[edit] i added a few bogus nicks/uhosts and every time each line in the textfile is compared against Errtu|TCL!~drow@b255089.upc-a.chello.nl

[edit2] just messing around with the register.txt file. Normally it adds nick/uhost like this:

Errtu|TCL *!drow@*.upc-a.chello.nl

but when i manually edit the file and add this line:

Errtu|TCL *drow@*.upc-a.chello.nl it suddenly works!! (rejoice!). Now, how can i let the script add the mask in that format?

[ This Message was edited by: Errtu on 2001-10-18 03:27 ]

Statistics: Posted by Guest — Thu Oct 18, 2001 5:16 am

string lookup in file fails

2001-10-17T21:40:00-04:00

reverse the args to the string match function

_T is the maskhost you read in, so that should be the first arg to string match

if that doesn't work, then add some debugging statements (putlog) to see what is going wrong

i.e. where you set found add, putlog "setting found to 1"

right after you read the line, add, putlog "testing line $_T against $nick!$uhost"

etc

Statistics: Posted by stdragon — Wed Oct 17, 2001 9:40 pm

string lookup in file fails

2001-10-17T19:34:00-04:00

no go It seems like it still doesn't check if the $nick/$uhost is in the file because it simply appends ..

Statistics: Posted by Guest — Wed Oct 17, 2001 7:34 pm

string lookup in file fails

2001-10-17T11:28:00-04:00

OOPS

change the line
seek $fp end

too
seek $fp 0 end

Statistics: Posted by ppslim — Wed Oct 17, 2001 11:28 am

string lookup in file fails

2001-10-17T11:26:00-04:00

i got this error in console:

TCL Error [msg_regchat]: expected integer but got "end"

Statistics: Posted by Guest — Wed Oct 17, 2001 11:26 am

string lookup in file fails

2001-10-17T10:52:00-04:00

Code:

set regfile "register.txt"bind msg - chat-register msg_regchatproc msg_regchat {nick uh hand arg} {  global regfile  set fp [open $regfile r+]  set found 0  while {![eof $fp]} {    set _T [lindex [split [gets $fp]] 1]    if {[string match "${nick}!${uh}" $_T]} {      set found 1    }  }  if {$found} {    puthelp "NOTICE $nick :allready registered"  } else {    seek $fp end    puts $fp "$nick [maskhost "${nick}!${uh}"]"  }  close $fp}

Try this.

Statistics: Posted by ppslim — Wed Oct 17, 2001 10:52 am

string lookup in file fails

2001-10-17T09:56:00-04:00

On 2001-10-17 07:06, stdragon wrote:
The 'found' variable should be initialized within your procedure, and should not be a global variable.

ok moved the set found to be within the proc

Look at your string match command.. you're comparing to the filename, not the line.

this was all the info i could get about string match. How can i compare the string to all the lines within the filename?

You shouldn't set found = 0 inside the loop.

removed

You should break after you set found = 1 (look at the help page for 'break' to see what it does).

You should not close the file within the loop! hehe (you will only read the first line)

argh yes.. moved the close $fs one line down so it's after the loop

If you are getting *no reply* at all, that means the procedure either has an error (look on the dcc console and watch for an error) or it's not being called (do you have the 'bind' command?)

no errors on the console, i have the bind command and it's working.

Thanks btw for the help so far, i really appreciate it.

Statistics: Posted by Guest — Wed Oct 17, 2001 9:56 am

string lookup in file fails

2001-10-17T09:06:00-04:00

The 'found' variable should be initialized within your procedure, and should not be a global variable.

Look at your string match command.. you're comparing to the filename, not the line.

You shouldn't set found = 0 inside the loop.

You should break after you set found = 1 (look at the help page for 'break' to see what it does).

You should not close the file within the loop! hehe (you will only read the first line)

If you are getting *no reply* at all, that means the procedure either has an error (look on the dcc console and watch for an error) or it's not being called (do you have the 'bind' command?)

Statistics: Posted by stdragon — Wed Oct 17, 2001 9:06 am

string lookup in file fails

2001-10-17T08:35:00-04:00

Okay, i've tried to do so .. but (obviously) i still make a mistake somewhere because now i get no reply back at all..

this is the modified part:

Code:

set found 0proc msg_regchat {nick uhost hand args} {   global regfile found  set fs [open $regfile r]  while {![eof $fs]} {   set read [gets $fs]  if {[string match $nick $regfile]} {   set found 1  } else {  set found 0  }  close $fs  }  if {$found == "1"} {    putserv "NOTICE $nick :You have already registered."    } else {    putserv "NOTICE $nick :You have now registered."    set fs [open $regfile a+]    puts $fs "$nick"    close $fs      }}

Statistics: Posted by Guest — Wed Oct 17, 2001 8:35 am

string lookup in file fails

2001-10-17T07:29:00-04:00

imagine you have a variable called "found"

you start off with found = 0, because it's not found

then you go through the file one line at a time

if the line matches the uhost, you set found to 1, and break from the loop

after the loop, you test the value of found

if it's 1, you send your error message, because they are already registered

if it's still 0, that means it wasn't found, and you reopen the file in 'a' mode and add the new entry

Statistics: Posted by stdragon — Wed Oct 17, 2001 7:29 am

string lookup in file fails

2001-10-17T07:19:00-04:00

so how do i change it? i can let it open in 'r' so it will read the entire file and should see the match then, but .. output outside the loop.. how do i do that?

Statistics: Posted by Guest — Wed Oct 17, 2001 7:19 am

string lookup in file fails

2001-10-17T07:12:00-04:00

First problem is you are opening the file in "a+" mode, which means "append plus read". Opening in append mode means you start at the end of the file. So that's why it's not finding the right entries.

The second problem is that you're doing your output within the loop. That means it's gonna do it for each line in the file, not just once over all.

Statistics: Posted by stdragon — Wed Oct 17, 2001 7:12 am

string lookup in file fails

2001-10-17T06:43:00-04:00

I'm really new to tcl, and i try to do something more than basic. What this script is suppose to do, is when somebody does /msg bot chat-register, the script should look inside a textfile if their hostname is there. If it is, you'll get a msg "already registered". If it isn't the $nick and $uhost should be written. Even after a very friendly guy in #eggdrop@Undernet helped me with a few basic things, i still can't get it to work. The bot doesn't seem to look in the file and just adds the $nick $uhost to the file. Can someone tell me what i've done wrong here?

Code:

set regfile "registered.txt"bind msg - chat-register msg_regchatproc msg_regchat {nick uhost hand args} {   global regfile  set fs [open $regfile a+]  while {![eof $fs]} {   set read [gets $fs]  if {[string match $uhost $regfile]} {     putserv "NOTICE $nick :You have already registered."  } else {    putserv "NOTICE $nick :You have now registered for the chat."    puts $fs "$nick $uhost"  } } close $fs}

Statistics: Posted by Guest — Wed Oct 17, 2001 6:43 am