home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 June / ccd0605.iso / Software / Shareware / Comunicatii / nat32 / script / VNC < prev    next >
Text File  |  2004-06-05  |  767b  |  37 lines
  1. #!tcl 
  2.  
  3. # 
  4. # VNC mappings 
  5. #
  6.  
  7. if {$argc != 2 } { 
  8.     error {Usage: VNC IPaddress|off Port
  9.     Only the insecure port (5801-5899) need to be specified
  10.     to add or remove the VNC mappings}
  11. }
  12.  
  13. set addr [lindex $argv 0]
  14. set port [lindex $argv 1]
  15. set offset 100
  16. set portS [expr $port+$offset]
  17.  
  18. if {$port == 0} {
  19.     return
  20. }
  21.  
  22. if {$port < 5800} {
  23.     error {Port specification must be no lower than 5800 and no greater than 5899}
  24. }
  25.  
  26. if {$port > 5899} {
  27.     error {Port specification must be no greater than 5899 and no lower than 5800}
  28. }
  29.  
  30. if {$addr == "off"} { 
  31.     exec "ppmaps delete tcp $port"
  32.     exec "ppmaps delete tcp $portS"
  33. } else { 
  34.     exec "ppmap add tcp $port $addr $port"
  35.     exec "ppmap add tcp $portS $addr $portS"
  36. } 
  37.