egghelp/eggheads community

.+host .-host public commands

2008-06-17T12:12:48-04:00

from tcl-commands.doc

getuser [extra info]
Description: an interface to the new generic userfile support. Valid
entry types are:
BOTFL - returns the current bot-specific flags for the user
(bot-only)
BOTADDR - returns a list containing the bot's address, telnet port,
and relay port (bot-only)
HOSTS - returns a list of hosts for the user
LASTON - returns a list containing the unixtime last seen and the
last seen place. LASTON #channel returns the time last
seen time for the channel or 0 if no info exists.
INFO - returns the user's global info line
XTRA - returns the user's XTRA info
COMMENT - returns the master-visible only comment for the user
EMAIL - returns the user's e-mail address
URL - returns the user's url
HANDLE - returns the user's handle as it is saved in the userfile
PASS - returns the user's encrypted password
Returns: info specific to each entry-type
Module: core

setuser [extra info]
Description: this is the counterpart of getuser. It lets you set the
various values. Other then the ones listed below, the entry-types are
the same as getuser's.
PASS - sets a users password (no third arg will clear it)
HOSTS - if used with no third arg, all hosts for the user will be
be cleared. Otherwise, *1* hostmask is added
LASTON - This setting has 3 forms. "setuser LASTON
" sets global LASTON time, "setuser
LASTON " sets global LASTON time
(leaving the place field empty), and "setuser
LASTON " sets a users LASTON time for
a channel (if it is a valid channel).
Returns: nothing
Module: core

can't remember I've seen a remhots/delhost command, perhapse it was being provided by some other script?
something like this might work though

Code:

# remhost  #returns 1 if ok, 0 if notproc remhost {user host} {if {([validuser $user]) && ([set ind [lsearch -exact [set hostlist [getuser $user HOSTS]] $host]] != -1)} {set hostlist [lreplace $hostlist $ind $ind]foreach {h} $hostlist { setuser $user HOSTS $h }return 1} else {return 0}}

Statistics: Posted by Papillon — Tue Jun 17, 2008 12:12 pm

.+host .-host public commands

2008-06-17T11:45:48-04:00

Half problem solved but remhost or delhost it's out of line

bind pub o "+host" pub:addhost
#that's for user
bind pub n ".+host" pub:changehost
#that's for bots or other people

proc pub:addhost { nick userhost hand chan host } {
if {$host == ""} {
puthelp "privmsg $chan :+host "
return 0
}
set hostname [lindex $host 0]
addhost $hand $hostname
puthelp "privmsg $chan :Added hostname $hostname to $hand"
}

proc pub:changehost { nick userhost hand chan text } {
set handle [lindex $text 0]
set newhost [lindex $text 1]
if {$text == ""} {
puthelp "privmsg $chan :.+host (to see a handle use: !whois )"
return 0
}
addhost $handle $newhost
puthelp "privmsg $chan :Added hostname $newhost to $handle "
}
putlog "Addhost Loaded"

The script it's tested and working fine. Feel free to modify.

Statistics: Posted by Getodacul — Tue Jun 17, 2008 11:45 am

.+host .-host public commands

2008-06-17T09:56:44-04:00

I need a script to add or remove a host on channel.

.+host User1 *!*@new-hostname.tld
*!*@new-hostname.tld added to User1

I find some tcl's that convert some dcc commands in public commands but modifications make that scripts broken or useless
Thanks.

Statistics: Posted by Getodacul — Tue Jun 17, 2008 9:56 am