Hello,
can someone make a tcl script for me.
I'd like to have a userlist of alle the users in my chan saved to a xml file directly to a webhost of to a txt file on the bot host...
Needing this one badly...
Someone who can help. ???
Grz...
BigSjedow
This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.
Userlist
Well, to save on space, you might as well parse the userfile directly.
Somthing like
WOuld do this.
Somthing like
Code: Select all
set fp [open file w]
puts $fp "[join [userlist] \n]"
close $fp
-
BBigSjedow
This tcl file is what i have from someone else. but it doesn't work... maybe one of u guys can tell me what is wrong ??
Code: Select all
set vb_htmlfile "/usr/home/eggdrop/userlist.txt"
set vb_chan "#chan"
# Don't Change ANYTHING below this unless you know what you're doing!
set vb_text "#000000"
bind join - "$vb_chan %" vb:make
bind part - "$vb_chan %" vb:make
proc vb:make {args} {
global vb_htmlfile vb_chan vb_text server
set vb_file [open $vb_htmlfile w]
puts $vb_file "<b>Topic</b>: $vb_chan \[[lindex [getchanmode $vb_chan] 0]\]: '[vb:convert [topic $vb_chan]]'<br>"
puts $vb_file "<b>Server</b>: [string range $server 0 [expr [string last ":" $server] - 1]]<br>\n"
set online [chanlist $vb_chan]
set users [lindex $online 1]
for {set i 2} {$i < $count} {incr i 1} {
set user [lindex $online $i]
set users "$users%20$user"
}
puts $vb_file "<b>Users</b> \[[llength [chanlist $vb_chan]]\]: $users<br>\n"
close $vb_file
return 1
}
proc vb:convert {vb_text} {
#Strip control codes.. sorta
regsub -all $vb_text "" vb_text
regsub -all $vb_text "" vb_text
regsub -all $vb_text "" vb_text
regsub -all $vb_text "" vb_text
regsub -all $vb_text "" vb_text
#Convert special chars
regsub -all & $vb_text "\\&" vb_text
regsub -all \" $vb_text "\\"" vb_text
regsub -all < $vb_text "\\<" vb_text
regsub -all > $vb_text "\\>" vb_text
regsub -all " " $vb_text " \\ " vb_text
return $vb_text
}
set vb_file [open $vb_htmlfile w]
puts $vb_file "<b>Topic</b>: $vb_chan \[\]: ''<br>"
puts $vb_file "<b>Server</b>: unknown<br>"
puts $vb_file "<b>Users</b>: unknown<br>\n"
close $vb_file
utimer 2 vb:make
putlog "IRC nick list loaded."
There is nothign wrong with yusing some1 elses code.
That is the good thing about Tcl and Open Source software.
When people start taking a script, changing a few lines here and there, then posting it with there own name on, then yes, that is lame.
He simply pasted code, said it doesn't work and asked if any1 could spot what was wrong. Nothign lame in that. I am sure you would do the same.
That is the good thing about Tcl and Open Source software.
When people start taking a script, changing a few lines here and there, then posting it with there own name on, then yes, that is lame.
He simply pasted code, said it doesn't work and asked if any1 could spot what was wrong. Nothign lame in that. I am sure you would do the same.
-
ddeurk
Posting to a forum, is different to releasing code.
One thing he pointed out, was the fact it didn't work. WHat is the point in usless code.
He said it was not his own work. I do beleive that most scripters will only say there name needs to be included, when it's being used in another script. In this case, he was asking questions, and in no way trying to release the code. On top, if he does release eventualy, so long as the name is included then.
One thing he pointed out, was the fact it didn't work. WHat is the point in usless code.
He said it was not his own work. I do beleive that most scripters will only say there name needs to be included, when it's being used in another script. In this case, he was asking questions, and in no way trying to release the code. On top, if he does release eventualy, so long as the name is included then.
