home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / nwnet / root / usr / lib / netcfg / bin / ipx.fn / ipx
Text File  |  1998-08-19  |  4KB  |  218 lines
  1. #!/bin/tcl
  2. #    
  3. #   Copyright (C) 1997, The Santa Cruz Operation, Inc.
  4. #   All Rights Reserved.
  5. # 
  6. #   The information in this file is provided for the exclusive use of
  7. #   the licensees of The Santa Cruz Operation, Inc.  Such users have the
  8. #   right to use, modify, and incorporate this code into other products  
  9. #   for purposes authorized by the license agreement provided they include
  10. #   this notice and the associated copyright notice with any such product.
  11. #   The information in this file is provided "AS IS" without warranty.
  12. #
  13. #ident "@(#)ipx.fn    1.3"
  14. #
  15.     
  16. # Generic functions related to ipx/spx netconfig
  17. # 
  18. #
  19.  
  20. set NCFG_DIR        /usr/lib/netcfg
  21. set NWCM        /usr/sbin/nwcm.be
  22.  
  23. set IPX_TMPDIR    /usr/lib/ipxrt/tmp
  24. set IPX_NEWCFG    $IPX_TMPDIR/config
  25.  
  26. loadlibindex /usr/lib/sysadm.tlib
  27.  
  28. # The minimum and maximum Lan numbers.
  29. #
  30. set MINLAN 1
  31. set MAXLAN 8
  32.  
  33. #
  34. # IsValidNwcmParam use nwcm to check that the parameter param value val
  35. # is valid
  36. #
  37. # return values
  38. # 0: valid
  39. # 1: invalid
  40. #
  41.  
  42. proc IsValidNwcmParam {param val} {
  43.     global NWCM
  44.  
  45.     set arg "-q -t $param=$val"
  46.  
  47.     if [catch {eval exec $NWCM $arg} ret] {
  48.         return 0
  49.     } else {
  50.         return 1
  51.     }
  52. }
  53.  
  54. #
  55. # SetNwcmParam uses nwcm to set the parameter param to the value val
  56. # Note that the special val case of "_default" is checked for which 
  57. # used to reset a parameter to its default value.
  58. #
  59. # return values
  60. # 0: success
  61. # 1: failure
  62. #
  63.  
  64. proc SetNwcmParam {param val} {
  65.     global NWCM
  66.  
  67.     if { [ cequal $val "_default" ] } {
  68.         set arg "-r $param"
  69.     } else {
  70.         set arg "-s $param=$val"
  71.     }
  72.  
  73.     if [catch {eval exec $NWCM $arg} ret] {
  74.         puts "nwcm error:$NWCM $arg"
  75.         puts $ret
  76.         return 1
  77.     } else {
  78.         return 0
  79.     }
  80. }
  81.  
  82. #
  83. # GetNwcmParam uses nwcm to extract the parameter param
  84. # value from the netware config database.
  85. # The return string is the result of the call stripped of enclosing "s
  86. #
  87. # eg GetNwcmParam net_3_adapter might retiurn /dev/nwip
  88. #
  89. #
  90. # On error the routine returns the string "_NWCMERR"
  91. #
  92.  
  93. proc GetNwcmParam {param} {
  94.     global NWCM
  95.     if [catch {exec $NWCM -v $param} val] {
  96.         puts "nwcm error:$NWCM -v $param"
  97.         puts $val
  98.         return "_NWCMERR"
  99.     } else {
  100.         ctoken val =
  101.         set tok [join [ctoken val =]]
  102.         return $tok
  103.     }
  104. }
  105.  
  106. # GetFreeLanNumber {}
  107. #
  108. # scans the nwconfig file via nwcm to find the first interface
  109. # which does not have an associated adapter
  110. # 
  111. # return: free lan number
  112. #
  113.  
  114. proc GetFreeLanNumber {} {
  115.     global NWCM MAXLAN
  116.     set try 1
  117.     while { $try <= $MAXLAN } {
  118.         set nwcm_arg lan_${try}_adapter
  119.         set adap [GetNwcmParam $nwcm_arg]
  120.         if { [cequal $adap "_NWCMERR" ] } {
  121.             exit 1
  122.         } else {
  123.             if { [ cequal $adap "" ] } {
  124.                 return $try
  125.             }
  126.             incr try +1
  127.         }
  128.     }
  129. #
  130. # you should never get here as the init script should 
  131. # have caught anyone trying to add more than MAXLAN interfaces
  132. #
  133.     return 0
  134. }
  135.  
  136. # FindIpxLanNumber{}
  137. #
  138. # scans the nwconfig file via nwcm to find the  lan number
  139. # for which the part_param is set to val
  140. #
  141. # eg
  142. #
  143. # lan_1_adapter=/dev/3C59X_0
  144. # lan_2_adapter=/dev/nwip
  145. #
  146. # FindIpxLanNumber  adapter /dev/nwip will return 2
  147. # FindIpxLanNumber  adapter /dev/NE2000_1 will return 0
  148. #
  149. proc FindIpxLanNumber {part_param val} {
  150.     global NWCM MAXLAN
  151.     set try 1
  152.     while { $try <= $MAXLAN } {
  153.         set nwcm_arg lan_${try}_${part_param}
  154.         set rval [GetNwcmParam $nwcm_arg]
  155.         if { [cequal $rval "_NWCMERR" ] } {
  156.             return 0
  157.         }
  158.         if { [ cequal $rval $val ] } {
  159.             return $try
  160.         }
  161.         incr try +1
  162.     }
  163.     return 0
  164. }
  165.  
  166. # AutoDiscover{adapter}
  167. #
  168. # Attempts to use nwdiscover to set the frame type 
  169. # and network number for the nominated adapter
  170. #
  171.  
  172. proc AutoDiscover { adapter } {
  173.     global FRAME_TYPE LAN_NETWORK
  174.     set IPX_AD /tmp/ipx.ad
  175.  
  176.     # nwdiscover is a bit difficult, it can 
  177.     # report an error even though it detects something
  178.     # useful 
  179.     # - so send output to a file and scan the 
  180.     # file for useful output
  181.  
  182.     catch {exec /usr/sbin/nwdiscover -d $adapter > $IPX_AD } nwd 
  183.  
  184.     if { [set ad_fd [open $IPX_AD r]] == -1 } {
  185.         return
  186.     }
  187.  
  188.     while { [ gets $ad_fd line ] != -1 } {
  189.         set found [ lindex $line 5 ] 
  190.         set frame_type [ lindex $line 2 ] 
  191.         set address 0x[ lindex $line 8 ]
  192.         if { [ cequal  $found "found" ] } {
  193.             set FRAME_TYPE $frame_type
  194.             set LAN_NETWORK    $address
  195.             break
  196.         }
  197.     }
  198.  
  199.     close $ad_fd
  200.     exec rm $IPX_AD
  201. }
  202.  
  203.  
  204. # IpxProcLan returns the number of configured Ipx Lans
  205. #
  206. proc IpxNumLan {} {
  207.     global NWCM MAXLAN
  208.     set found 0
  209.     for { set try 1 } { $try <= $MAXLAN } { incr try +1 } {
  210.         set nwcm_arg lan_${try}_adapter
  211.         set rval [GetNwcmParam $nwcm_arg]
  212.         if { ! [cequal $rval "" ] } {
  213.             incr found
  214.         }
  215.     }
  216.     return $found
  217. }
  218.