home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 June / ccd0605.iso / Software / Shareware / Comunicatii / nat32 / script / netmeet < prev    next >
Encoding:
Text File  |  2002-10-20  |  566 b   |  23 lines
  1. #!tcl
  2.  
  3. #
  4. # Netmeeting mappings
  5. #
  6. if {$argc == 0} {
  7.     error {Usage: netmeet [IPaddress | off]}
  8. }
  9. set addr [lindex $argv 0]
  10. if {$addr == "off" || $addr == "0" || $addr == "0.0.0.0"} {
  11.     exec "ppmaps delete udp 40000"
  12.     exec "ppmaps delete tcp 1503"
  13.     exec "ppmaps delete tcp 1720"
  14.     exec "ppmaps delete tcp 1731"
  15.     exec "nm off"
  16. } else {
  17.     exec "ppmap add udp 40000:60000 $addr 40000"
  18.     exec "ppmap add tcp 1503 $addr 1503"
  19.     exec "ppmap add tcp 1720 $addr 1720"
  20.     exec "ppmap add tcp 1731 $addr 1731"
  21.     exec "nm $addr p"
  22. }
  23.