User in Channel

[knilch]

Hi folks!

I need a tcl script for my eggdrop, but i do not how to do.
My eggdrop should create a file (php, html or cgi) where the names of users in a specific channel is listed. for each username one line and the name should be in brackets.

for example:

(user1)
(user2)
...


I hope that someone could help me, because i'm not able to do it on my own.

Thanks a lot.

knilch

[caesar]

username is the name under he/she is known by the bot?

[knilch]

no - ALL user should be displayed - all people who are on the channel

[caesar]

use something like:

Code: Select all

foreach line [channel #channel] {
set user [lindex $line 0]
# add $user one by one in your page or whatever
}

nickname, handle, join, idle and uhost is the content of the entire line.

[knilch]

hum, i don't understand this.
sorry, i not fit in tcl

[dollar]

use something like:

Code: Select all

foreach line [channel #channel] {
set user [lindex $line 0]
# add $user one by one in your page or whatever
}

nickname, handle, join, idle and uhost is the content of the entire line.

What about [chanlist #channel]?

[caesar]

Oups! It should be chanlist not channel. I was thinking at the dcc .channel command and in TCL is chanlist and kinda mixed them a bit

Here is an basic "export" thing:

Code: Select all

bind dcc o export my:export

proc my:export {hand idx text} {
  set chan [lindex $text 0]
  if {![string match "#*" $chan] || $text == ""} {
    putdcc $idx "Usage: .export #channel"
    return
  }
  set file [open "result.txt" w]
  puts $file "Users in $chan channel:"
  foreach line [chanlist $chan] {
    puts $file [lindex $line 0]
  }
  close $file
  putdcc $idx "Export completed."
}

[knilch]

but this version only works if i request it at the partyline, right?
i need this script updating himself

[caesar]

Code: Select all

bind time - ?0* my:status
bind time - ?5* my:status

proc my:status {minute hour day month year} {
  set chan "#channel"
  set file [open "result.txt" w] 
  puts $file "Users in $chan channel:" 
  foreach line [chanlist $chan] { 
    puts $file [lindex $line 0] 
  } 
  close $file 
}

This should do a status every 5 minutes.

[knilch]

yea, that looks fine, thanks. but the nicknames should be written in brackets like (nickname). is that possible, too?

[user]

but the nicknames should be written in brackets like (nickname). is that possible, too?

Brackets look like this: [], and yes, it's possible. Try to figure out where to put them yourself (clue: 'puts $file' is the part where content is written to the file)

[caesar]

replace:

Code: Select all

puts $file [lindex $line 0]

with:

Code: Select all

puts $file "([lindex $line 0])"

[knilch]

thanks, i'll try it. very kind of you!

[knilch]

hmm i loaded the script but my result.txt is empty.

[caesar]

Have you changed from #channel to the actual name of your channel? I am talking about the set chan "#channel" line.