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