home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 June / ccd0605.iso / Software / Shareware / Comunicatii / nat32 / script / VPNS < prev    next >
Text File  |  2004-06-07  |  439b  |  22 lines
  1. #!tcl 
  2.  
  3. # 
  4. # VPN Server mappings
  5. #
  6.  
  7. if {$argc != 2 } {
  8.     error {Usage: VPNS IPaddress|off Port}
  9. }
  10.  
  11. set addr [lindex $argv 0]
  12. set port [lindex $argv 1]
  13.  
  14. if {$addr == "off"} { 
  15.     exec "ppmaps delete tcp $port"
  16.     exec "amaps delete $port"
  17.     exec "gmaps delete $addr \$SRCIP"
  18. } else { 
  19.     exec "ppmap add tcp $port $addr 1723"
  20.     exec "amap add $port \"gmap add $addr \$SRCIP\" \"gmap delete $addr \$SRCIP\""
  21. } 
  22.