home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 June / ccd0605.iso / Software / Shareware / Comunicatii / nat32 / direcpc < prev    next >
Text File  |  2004-05-14  |  533b  |  29 lines
  1. #!tcl
  2.  
  3. #
  4. # DirecPC: extract gateway from TDI info and adjust the NAT32 routing table 
  5. #
  6.  
  7. if {$argc != 0} {
  8.     error "Usage: direcpc"
  9. } 
  10.  
  11. # fetch TDI routes
  12.  
  13. set routes [exec "tdi -r"]
  14.  
  15. # convert to list format
  16.  
  17. set rlist [split $routes \n]
  18.  
  19. # get default route
  20.  
  21. set i [lsearch $rlist *0.0.0.0*]
  22. if {$i == -1} {
  23.     error "direcpc: no Windows default route exists"
  24. }
  25. set gwstr [lindex $rlist $i]
  26. scan $gwstr "%s %s %s" ip mask gw
  27. exec "route add $ip $mask $gw 15 0"
  28. echo direcpc: default route set to $gw
  29.