egghelp/eggheads community

memory issue

2005-07-11T06:42:19-04:00

Ah now I see, it's a quotation without interpolation.

Statistics: Posted by Doos — Mon Jul 11, 2005 6:42 am

memory issue

2005-07-10T20:03:06-04:00

It's not advisable to use '-' in a variable name, if you used $kick-nick instead of ${kick-nick} then it would've told you "tcl error no such variable kick" (i.e. it's the same as putting $kick). I remember reading about this 2 years ago, maybe it's in the forum I'm not sure.

Statistics: Posted by Sir_Fz — Sun Jul 10, 2005 8:03 pm

memory issue

2005-07-10T11:59:32-04:00

Yes that part I understand (I experimented with $kick-nick) , I was actually thinking of what ${kick-nick} does .. is that some sort of reference?

Statistics: Posted by Doos — Sun Jul 10, 2005 11:59 am

memory issue

2005-07-10T11:27:13-04:00

It's pretty simple if you think about it, $nick is the one who kicked ${kick-nick}, thus $nick is till in the channel while ${kick-nick} is out and should be removed from the list.

Statistics: Posted by Sir_Fz — Sun Jul 10, 2005 11:27 am

memory issue

2005-07-10T11:19:02-04:00

Thanks, that did the trick.

Care to explain a bit what happened?

Statistics: Posted by Doos — Sun Jul 10, 2005 11:19 am

memory issue

2005-07-10T10:37:20-04:00

you should use ${kick-nick} instead of $nick.

PS: I suggest you change kick-nick to something else like kn or targ.

Statistics: Posted by Sir_Fz — Sun Jul 10, 2005 10:37 am

memory issue

2005-07-10T06:50:23-04:00

Maybe I should explain how I think when I see that code (I'm new to Tcl).

if {[set idx [lsearch -exact $::nicks $nick]] != -1} { ##here you test if the nick is in the $::nick list (an array I presume) and set the result (the nick) in $idx

set ::nicks [lreplace $::nicks $idx $idx] ##here you replace the $idx'ed entry in the array to the same nick in $idx (here is where I get totally lost)

Then write it to file.

Statistics: Posted by Doos — Sun Jul 10, 2005 6:50 am

memory issue

2005-07-10T06:32:13-04:00

Thanks all for the help.
Most of it works now (except the bind kick).

I added a nickchange detector which actually seems to work, don't ask me how.

When the following kick proc gets executed, it deletes the first entry in the list (or the one who does the kick). Anyone has a suggestion?

Code:

bind kick - * log_kickproc log_kick {nick uhost handle chan kick-nick msg} {  if {[set idx [lsearch -exact $::nicks $nick]] != -1} {    set ::nicks [lreplace $::nicks $idx $idx]  set fd [open /home/me/whoisonline.txt w]  puts $fd [join $::nicks]  close $fd  }}

Statistics: Posted by Doos — Sun Jul 10, 2005 6:32 am

memory issue

2005-07-08T21:05:01-04:00

of course, you also need to bind to SIGN (that's quit) and KICK - two other events that take out nicks off the channel

Statistics: Posted by demond — Fri Jul 08, 2005 9:05 pm

memory issue

2005-07-08T20:11:31-04:00

01**** (which is the same as 01* btw) will trigger every hour at 01 minutes. If you want to save the list every minute then * should do it.

Statistics: Posted by Sir_Fz — Fri Jul 08, 2005 8:11 pm

memory issue

2005-07-08T15:37:11-04:00

Interesting demond,

I'm going to study that.
Just a short question before I dive into Tcl, if I replace ?0* with 01**** .. would that update every minute?

Oh nevermind, I should just get of my lazy ass and read the fabulous manual.

Thanks

Statistics: Posted by Doos — Fri Jul 08, 2005 3:37 pm

memory issue

2005-07-08T14:48:39-04:00

you are missing the fact that PART bind triggers before eggdrop removing nick from [chanlist]

here's how this should be done:

Code:

bind join - * log_joinbind part - * log_partbind time - ?0* log_save ;# save chanlist every 10 minutesif {[botonchan #chan]} {set nicks [chanlist #chan]} {set nicks {}}proc log_join {nick uhost handle chan} {  if {[lsearch -exact $::nicks $nick] == -1} {    lappend ::nicks $nick  }}proc log_part {nick uhost handle chan msg} {  if {[set idx [lsearch -exact $::nicks $nick]] != -1} {    set ::nicks [lreplace $::nicks $idx $idx]  }}proc log_save {min hour day mon year} {  set fd [open /home/me/whoisonline.txt w]  puts $fd [join $::nicks]  close $fd  }

Statistics: Posted by demond — Fri Jul 08, 2005 2:48 pm

memory issue

2005-07-08T07:12:27-04:00

Hi all,

I'm trying to write a small script that reads the nicks in the channel to file.
Which then later will be used on a webpage.

My problem is that when someone does a /part, his/her nick stays in the list. I'm probably missing the obvious in my test script, but could someone give me some pointers.

Thanks.

Code:

bind join - * log_joinbind part - * log_partproc log_join {nick uhost handle chan} {  set fd [open "/home/me/whoisonline.txt" w]  set nicks [chanlist $chan]  puts $fd [join $nicks]  close $fd  return 0}proc log_part {nick uhost handle chan msg} {  set fd [open "/home/me/whoisonline.txt" w]  set nicks [chanlist $chan]  puts $fd [join $nicks]  close $fd  return 0}

Statistics: Posted by Doos — Fri Jul 08, 2005 7:12 am