#!tcl

#
# AC Mappings
#
if {$argc != 2} {
    error {Usage: ac IPaddress|off port}
}
set addr [lindex $argv 0]
set port [lindex $argv 1]
if {$addr == "off"} {
    exec "umap delete $port"
    exec "ppmap delete udp $port"
} else {
    exec "umap add $port 1"
    exec "ppmap add udp $port $addr $port"
}
