Problem in TCL to add flags to an user

[HecKel]

sometimes my egg add the correct flags, and sometimes he only add the default flags..., aswell the egg adds the user to the channel access list, and sometimes he did's this..., I can't find the problem..., there is the code:

Code: Select all

proc wellcome {by to where cat} {
  putserv "NOTICE $by :$to is the $cat on $where"
  putserv "NOTICE $to :Wellcome $to!"
  putserv "NOTICE $to :$by adding you as $cat no $where."
  pushmode $where +o $to
}

bind pub X|X .addnew add_new
proc add_new {n u h c a} {
  global botnick newflags
  if {[lindex $a 0] == ""} {
	putserv "NOTICE $n :Command: .addnew <nickname>"
      return 1
  } 
  set newop [lindex $a 0]
  if {[onchan $newop $c] == 0} {
	putserv "NOTICE $n :$newop is not in $c!"
      return 1
  }
  set exflags "+ofCX"
  
  set newhost "$newop!*@*"

  if {[validuser $newop] == 1} {
     if {[lsearch [getuser $newop hosts] $newhost] == "-1"} {
       putserv "NOTICE $n :$newop is not in my DB. Adding flags and hostmask."
       chattr $newop |+$exflags $c
       setuser $newop hosts $newhost
       putserv "CHANSERV ACCESS $c ADD $newop 5"
       wellcome $n $newop $c "new op"
       return 1
     } {
       putserv "NOTICE $n :$newop is alread in my DB. Changing flags."
       chattr $newop |+$exflags $c
       putserv "CHANSERV ACCESS $c ADD $newop 5"
       wellcome $n $newop $c new op"
     return 1 }
  }  

  if {[finduser $newhost] != "*"} { 
	putserv "NOTICE $n :$newop\[$newhost\] is now: [finduser $newhost]"
 	return 1
  }
 
  adduser $newop $newhost
  
  if {[chattr $newop |+$exflags $c] == "*"} {
  	putserv "NOTICE $n :Error!"
	return 1
  }
  wellcome $n $newop $c "new op"
  save
}

[^DooM^]

sometimes my egg add the correct flags, and sometimes he only add the default flags..., aswell the egg adds the user to the channel access list, and sometimes he did's this..., I can't find the problem..., there is the code:

Code: Select all

set newhost "$newop!*@*"

This set here is not exactly secure. You are just adding users by nick?

[HecKel]

yes i only add users by nick because the egg is on a private channel, and the users usualy change masks...

[HecKel]

anybody can help me on this question?

my egg can't add users to channel access list, the egg has access to add anyuser, but only add user to his db...

tnks, HecKel