leave a message to users

Maverick · Post by **Maverick** » Mon May 27, 2002 8:35 am

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 <handle> <text>". 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
}
.
.
.

ppslim · Post by **ppslim** » Mon May 27, 2002 8:46 am

Somthing like

Code: Select all

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.

Maverick · Post by **Maverick** » Mon May 27, 2002 11:20 am

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 ]

ppslim · Post by **ppslim** » Tue May 28, 2002 9:45 am

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.

tainted · Post by **tainted** » Wed May 29, 2002 4:01 pm

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 ]

Maverick · Post by **Maverick** » Sat Jun 01, 2002 7:33 pm

it works fine, thx to all.