egghelp/eggheads community

Dump chanlist to file

2005-06-01T04:45:31-04:00

You need to globalize my_nick and my_chan. Here try this:

Thanks heaps Sir_Fz. You saved me a load of time. I wouldn't have got the syntax right without siiting down to properly learn TCL.

Appreciate all your help.

Sikes

Statistics: Posted by Sikes — Wed Jun 01, 2005 4:45 am

Dump chanlist to file

2005-05-31T05:46:20-04:00

You need to globalize my_nick and my_chan. Here try this:

Code:

# Get list of current online usernames set my_chan "#accounts" set my_nick "Sikes" # pub bindbind pub - !writelist pubm:write_chanlist # timer 3 minutestimer 3 [list write:these 1 $my_chan $my_nick]# procsproc pubm:write_chanlist {nick uhost hand chan arg} {  global my_chan my_nick  write:these 0 $my_chan $my_nick}proc write:these {istimer chan nick} { set my_file [open onchan.chanlist w]  puts $my_file [chanlist $chan]  putserv "PRIVMSG $nick :Done"  close $my_file  if {$istimer} {  timer 3 [list write:these $istimer $chan $nick] }}

Statistics: Posted by Sir_Fz — Tue May 31, 2005 5:46 am

Dump chanlist to file

2005-05-31T04:31:41-04:00

Thanks for the reply awyeah.

1) If you use a trigger in the bind you should use the PUB bind, not PUBM bind.

Ok, was reading http://johoho.eggheads.org/eggdrop/other/guide2tcl.html

2) You have an incorrect number of arguments in your procedure, for bind pub or even pubm. It should be like this:

bind pub - !writelist pub:write_chanlist

proc pub:write_chanlist {nick uhost hand chan text} {
#your stuff here
}

I now have;

Code:

bind pub - !writelist pub:write_chanlistproc pub:write_chanlist {nick uhost hand chan text} {                set my_file [open onchan.chanlist w]...

But still no go getting any reply.

Statistics: Posted by Sikes — Tue May 31, 2005 4:31 am

Re: Dump chanlist to file

2005-05-31T04:17:52-04:00

I have been asked to write a bash script that interacts with ftp. Part of that is they need the users online for certain announcements. I have the bash part under control, and just need to check logins against a dump of who is in the channel.

To be honest I thought this would only be a couple of lines of code and was hoping to get away with out having to learn TCl (at least leave it till I get some time), so I have been scanning scripts and these forums for correct syntax. Below is what i have come up with so far;
Code:
# Get list of current online usernamesset my_chan "#accounts"set my_nick "Sikes"# Need this to be a timer every 3(?) minutes# timer 180 [puts $my_file [chanlist $my_chan]]# Try a bind to get imediate outputbind pubm - !writelist pubm:write_chanlist# Open,write to, and close fileproc pubm:write_chanlist {my_chan my_nick} {                set my_file [open onchan.chanlist w]                puts $my_file [chanlist $my_chan]                putserv "PRIVMSG $my_nick :Done"                # try to get output from chanlist                putserv "PRIVMSG $my_nick :$chanlist"                close $my_file                }
Now the above trigger dosn't work. But no matter what I do I can't get any output from $chanlist. I started off simple with;
Code:
set my_file onchan.chanlistopen $my_file wputs $my_file [chanlist $my_chan]close $my_file
Without any luck. Can anyone point me to why the above bind dosn't work and I can never seem to get any output from chanlist?

Thanks

First of all:

1) If you use a trigger in the bind you should use the PUB bind, not PUBM bind.
2) You have an incorrect number of arguments in your procedure, for bind pub or even pubm. It should be like this:

Code:

bind pub - !writelist pub:write_chanlistproc pub:write_chanlist {nick uhost hand chan text} { #your stuff here}

Statistics: Posted by awyeah — Tue May 31, 2005 4:17 am

Dump chanlist to file

2005-05-31T04:15:58-04:00

I have been asked to write a bash script that interacts with ftp. Part of that is they need the users online for certain announcements. I have the bash part under control, and just need to check logins against a dump of who is in the channel.

To be honest I thought this would only be a couple of lines of code and was hoping to get away with out having to learn TCl (at least leave it till I get some time), so I have been scanning scripts and these forums for correct syntax. Below is what i have come up with so far;

Code:

# Get list of current online usernamesset my_chan "#accounts"set my_nick "Sikes"# Need this to be a timer every 3(?) minutes# timer 180 [puts $my_file [chanlist $my_chan]]# Try a bind to get imediate outputbind pubm - !writelist pubm:write_chanlist# Open,write to, and close fileproc pubm:write_chanlist {my_chan my_nick} {                set my_file [open onchan.chanlist w]                puts $my_file [chanlist $my_chan]                putserv "PRIVMSG $my_nick :Done"                # try to get output from chanlist                putserv "PRIVMSG $my_nick :$chanlist"                close $my_file                }

Now the above trigger dosn't work. But no matter what I do I can't get any output from $chanlist. I started off simple with;

Code:

set my_file onchan.chanlistopen $my_file wputs $my_file [chanlist $my_chan]close $my_file

Without any luck. Can anyone point me to why the above bind dosn't work and I can never seem to get any output from chanlist?

Thanks

Statistics: Posted by Sikes — Tue May 31, 2005 4:15 am