#!tcl

#
# Real Player mappings
#
if {$argc == 0} {
    error {Usage: real IPaddress|off}
}
set addr [lindex $argv 0]
if {$addr == "off"} {
    exec "ppmap delete udp 6970:7170"
} else {
    exec "ppmap add udp 6970:7170 $addr 6970:7170"
}
