home *** CD-ROM | disk | FTP | other *** search
- #!tcl
-
- #
- # VPN Server mappings
- #
-
- if {$argc != 2 } {
- error {Usage: VPNS IPaddress|off Port}
- }
-
- set addr [lindex $argv 0]
- set port [lindex $argv 1]
-
- if {$addr == "off"} {
- exec "ppmaps delete tcp $port"
- exec "amaps delete $port"
- exec "gmaps delete $addr \$SRCIP"
- } else {
- exec "ppmap add tcp $port $addr 1723"
- exec "amap add $port \"gmap add $addr \$SRCIP\" \"gmap delete $addr \$SRCIP\""
- }
-