#Flag-Chattr.tcl By Drago.
#For All You Peaopl That Wanted To "Mass Chattr" Here You Go.
#Drago [Drago@Drago.com]
#Parms: FC <Flag You Want To Match> <Flag To Give The Matched Flags>
#EX: FC +o +x
#
bind dcc n FC fc_peform
proc fc_peform {hand idx arg} {
set arg1 [lindex "$arg" 0]
set arg2 [lrange "$arg" 1 end] 
if {$arg1 == "" || $arg2 == ""} {     
    putdcc $idx "Parms: FC <Flag> <\[+/-]\ Give/Take Flag>"
    return 0
  }
putlog "#$hand# FC $arg1 $arg2"
putlog "Locating Users With Flags '$arg1' To Chattr Them '$arg2' *Flag-Chattr*"
  foreach user [userlist $arg1] {
    chattr $user $arg2
putlog "#$hand#(Flag-Chattr $arg1 $arg2) $user $arg2"
  }
}
putlog "Flag-Chattr.tcl By Drago Loaded (FC)."