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