#Add user to our Forward (contact) list proc addUser { userlogin {username ""} {gid 0} } { set userlogin [string map {" " ""} $userlogin] if {[string match "*@*" $userlogin] < 1 } { set domain "@hotmail.com" set userlogin $userlogin$domain } if { $username == "" } { set username $userlogin } if { [::config::getKey protocol] == 11 } { ::MSN::WriteSB ns "ADC" "FL N=$userlogin F=$username" "::MSN::ADCHandler $gid" } else { ::MSN::WriteSB ns "ADD" "FL $userlogin $username $gid" "::MSN::ADDHandler" } }