home *** CD-ROM | disk | FTP | other *** search
- #!tcl
-
- #
- # Microsoft Direct Play mappings
- #
- if {$argc == 0} {
- error {Usage: direct IPaddress|off}
- }
- set addr [lindex $argv 0]
- if {$addr == "off"} {
- exec "ppmaps delete tcp 47624"
- exec "ppmaps delete tcp 2300:2400"
- exec "ppmaps delete udp 2300:2400"
- } else {
- exec "ppmap add tcp 47624 $addr 47624"
- exec "ppmap add tcp 2300:2400 $addr 2300"
- exec "ppmap add udp 2300:2400 $addr 2300"
- }
-