#!tcl

#
# Quicktime 4 mappings
#
if {$argc == 0} {
    error {Usage: qt4 IPaddress|off}
}
set addr [lindex $argv 0]
if {$addr == "off"} {
    exec "ppmap delete udp 6970:6999"
} else {
    exec "ppmap add udp 6970:6999 $addr 6970:6999"
}
