#!tcl 

# 
# Battle Net mappings 
# 
if {$argc == 0} { 
    error {Usage: battle IPaddress|off} 
} 
set addr [lindex $argv 0] 
if {$addr == "off"} { 
    exec "ppmap delete udp 6112"
    exec "umap delete 6112"
} else { 
    exec "ppmap add udp 6112 $addr 6112"
    exec "umap add 6112 1"
}
