home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 June / ccd0605.iso / Software / Shareware / Comunicatii / nat32 / script / n2p < prev    next >
Encoding:
Text File  |  2002-02-21  |  342 b   |  19 lines
  1. #!tcl 
  2.  
  3. # 
  4. # Net2Phone mappings 
  5. # 
  6. if {$argc != 2} { 
  7.     error {Usage: n2p IPaddress|off Port}
  8. } 
  9. set addr [lindex $argv 0]
  10. set port [lindex $argv 1]
  11.  
  12. if {$addr == "off"} { 
  13.     exec "umaps delete $port"
  14.     exec "ppmaps delete udp $port"
  15. } else { 
  16.     exec "umap add 6801 1"
  17.     exec "ppmap add udp $port $addr $port"
  18. } 
  19.