auto add hosts

[Paiakam]

proc myhostis {frombot cmd arg} {
set added 0
set arg [string tolower $arg]
foreach host [split [getuser $frombot HOSTS]] {
set host [string tolower $host]
if {[string match $arg $host]} {
set added 1
}
}
if {!$added} {
putlog "(**) Added host $arg to $frombot"
setuser $frombot HOSTS $arg
}
return 0
}

hey! i have this proc so my bots will auto add hosts when their host changes, but they add it like this.. packiman!paiakam@blah.com, im wondering how to set them to add hosts like this.. *!paiakam@blah.com

[ppslim]

Code: Select all

proc myhostis {frombot cmd arg} {
  set added 0
  set arg [string tolower $arg]
  foreach host [split [getuser $frombot HOSTS]] {
    set host [string tolower $host]
    if {[string match $arg $host]} { 
      set added 1 
    }
  }
  if {!$added} {
    putlog "(**) Added host $arg to $frombot"
    setuser $frombot HOSTS [maskhost $arg]
  }
  return 0
}

[ppslim]

As per the request on IRC.

Code: Select all

proc myhostis {frombot cmd arg} {
  set added 0
  set arg [string tolower $arg]
  foreach host [split [getuser $frombot HOSTS]] {
    set host [string tolower $host]
    if {[string match $arg $host]} { 
      set added 1 
    }
  }
  if {!$added} {
    putlog "(**) Added host $arg to $frombot"
    setuser $frombot HOSTS "*![lindex [split $arg !] 1]
  }
  return 0
}

<font size=-1>[ This Message was edited by: ppslim on 2001-10-07 10:19 ]</font>

[Paiakam]

thanks