home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 June / ccd0605.iso / Software / Shareware / Comunicatii / nat32 / script / WEB < prev   
Text File  |  2003-10-06  |  240b  |  15 lines
  1. #!tcl 
  2.  
  3. # 
  4. # WEB Server mappings
  5. # 
  6. if {$argc == 0} { 
  7.     error {Usage: web IPaddress|off}
  8. } 
  9. set addr [lindex $argv 0] 
  10. if {$addr == "off"} { 
  11.     exec "ppmaps delete tcp 80"
  12. } else { 
  13.     exec "ppmap add tcp 80 $addr 80"
  14. }
  15.