egghelp/eggheads community

leave a message to users

2002-06-01T19:33:00-04:00

it works fine, thx to all.

Statistics: Posted by Guest — Sat Jun 01, 2002 7:33 pm

leave a message to users

2002-05-29T16:01:00-04:00

I read this then realized, "Hey! Good idea!" so here it is:

##set this to how many hosts to check for
set maxhosts 5
##this is the user the note is sent from
set notenick "nick"

bind dcc n hostcheck hostcheck_start
proc hostcheck_start {n u h} {
foreach user [userlist] {
if {[llength [getuser $user hosts]] > $maxhosts} {
sendnote $notenick $user "Please remove some of your hosts."
putlog "$user has too many hosts, sending note..."
}
}
}

[ This Message was edited by: tainted on 2002-05-29 14:03 ]

[ This Message was edited by: tainted on 2002-05-29 14:05 ]

Statistics: Posted by tainted — Wed May 29, 2002 4:01 pm

leave a message to users

2002-05-28T09:45:00-04:00

As stated in my post. Check tcl-commands.doc. It has all the commands listed.

If you can't be bothered to looks, we sure as hell won't help you do it.

Statistics: Posted by ppslim — Tue May 28, 2002 9:45 am

leave a message to users

2002-05-27T11:20:00-04:00

that´s my problem, what is the equal command in tcl for the dcc-command .note ?
btw, is there an Editor available that checks syntax and stuff ??

[ This Message was edited by: Maverick on 2002-05-27 09:40 ]

Statistics: Posted by Guest — Mon May 27, 2002 11:20 am

leave a message to users

2002-05-27T08:46:00-04:00

Somthing like

Code:

foreach user [userlist] {  if {[llength [getuser $user hosts]] > $maxhosts} {    sendnote $user "ntoo many hosts"  }}

Replace sendnote with your command for sending notes, or read the tcl-command.doc help file for a lists of commands.

Statistics: Posted by ppslim — Mon May 27, 2002 8:46 am

leave a message to users

2002-05-27T08:35:00-04:00

I made a script that checks, if a user has more than x hostmasks. If it is, i want the bot to leave that users a message like ".note ". I dont know how, can someone help me plz?

.
.
.
foreach host [getuser $user hosts] {
incr hostcount 1
}
if {$hostcount >= $hosts} {
append list "$user, "
incr usercount 1
}
.
.
.

Statistics: Posted by Guest — Mon May 27, 2002 8:35 am