#
# scripts to implement the old '+friend' etc commands
# for compatability
#

bind dcc m +op pls_o
bind dcc m -op mns_o
bind dcc m +friend pls_f
bind dcc m -friend mns_f
bind dcc m +deop pls_d
bind dcc m -deop mns_d
bind dcc m +party pls_p
bind dcc m -party mns_p
bind dcc m +xfer pls_x
bind dcc m -xfer mns_x
bind dcc m +master pls_m
bind dcc m -master mns_m
bind dcc m +kick pls_k
bind dcc m -kick mns_k

proc do_chattr {handle idx who change} {
  if {$who == ""} {
    putdcc $idx "You need to specify a handle."
    return 0
  }
  set atr [chattr $who $change]
  putdcc $idx "Flags for $who are now: $atr"
  return 1
}

proc pls_o {a b c} { do_chattr $a $b $c +o }
proc mns_o {a b c} { do_chattr $a $b $c -o }
proc pls_f {a b c} { do_chattr $a $b $c +f }
proc mns_f {a b c} { do_chattr $a $b $c -f }
proc pls_d {a b c} { do_chattr $a $b $c +d }
proc mns_d {a b c} { do_chattr $a $b $c -d }
proc pls_p {a b c} { do_chattr $a $b $c +p }
proc mns_p {a b c} { do_chattr $a $b $c -p }
proc pls_x {a b c} { do_chattr $a $b $c +x }
proc mns_x {a b c} { do_chattr $a $b $c -x }
proc pls_m {a b c} { do_chattr $a $b $c +m }
proc mns_m {a b c} { do_chattr $a $b $c -m }
proc pls_k {a b c} { do_chattr $a $b $c +k }
proc mns_k {a b c} { do_chattr $a $b $c -k }
