#!tcl 

# 
# DialPad mappings 
# 
if {$argc == 0} { 
    error {Usage: dialpad IPaddress|off}
} 
set addr [lindex $argv 0] 
if {$addr == "off"} { 
    exec "ppmap delete udp 51200:51201"
    exec "ppmap delete tcp 51210"
} else { 
    exec "ppmap add udp 51200:51201 $addr 51200:51201"
    exec "ppmap add tcp 51210 $addr 51210"
} 
