home *** CD-ROM | disk | FTP | other *** search
- #!tcl
-
- #
- # Netmeeting mappings
- #
- if {$argc == 0} {
- error {Usage: netmeet [IPaddress | off]}
- }
- set addr [lindex $argv 0]
- if {$addr == "off" || $addr == "0" || $addr == "0.0.0.0"} {
- exec "ppmaps delete udp 40000"
- exec "ppmaps delete tcp 1503"
- exec "ppmaps delete tcp 1720"
- exec "ppmaps delete tcp 1731"
- exec "nm off"
- } else {
- exec "ppmap add udp 40000:60000 $addr 40000"
- exec "ppmap add tcp 1503 $addr 1503"
- exec "ppmap add tcp 1720 $addr 1720"
- exec "ppmap add tcp 1731 $addr 1731"
- exec "nm $addr p"
- }
-