home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / nwnet / root / usr / lib / netcfg / bin / ipx.chk / ipx
Text File  |  1998-08-19  |  4KB  |  154 lines
  1. #!/bin/osavtcl
  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.chk    1.2"
  14. #
  15.  
  16. # verify that the state information in /etc/chains 
  17. # refering to ipx configuration is up to date with the 
  18. # state information in /etc/netware/nwconfig 
  19. #
  20.  
  21. source /usr/lib/netcfg/bin/ipx.fn
  22.  
  23. #cmdtrace on
  24.  
  25. proc DoExit {cbs} {
  26. keylget cbs dialog dialog
  27. VtClose
  28. exit 0
  29. }
  30.  
  31. # WindowWarning a suitable warning with the give message
  32. #
  33. proc WindowWarning { warning } {
  34. #    echo $warning
  35.     set parent [VtOpen plopGUI ""]
  36.     VtShowDialog [VtWarningDialog $parent.err -ok \
  37.             -okCallback DoExit \
  38.             -message $warning]
  39.     VtUnLock
  40.     VtMainLoop
  41. }
  42.  
  43. # VerifyIpxChain {chain nic}
  44. # Verifies netcfg:ipx chains
  45. # 
  46.  
  47. proc VerifyIpxChain { chain nic } {
  48.     set num [ FindIpxLanNumber adapter /dev/$nic ]
  49.     if { $num == 0 } {
  50.         # 
  51.         #  netware configuration doesn't know about this chain
  52.  
  53.         WindowWarning \
  54.         "Netcfg and nwcm configurations are not synchronised.\n\n\
  55.         Netcfg is configured with the chain $chain. The device\n\
  56.         cannot be identified in the netware configuration file.\n\
  57.         Please rectify the situation before continuing."
  58.     }
  59. }
  60.  
  61. # VerifyIpxNwipChain { elem chain }
  62. # Verifies and if necessary removes part of the chain 
  63. # running nwip from  netcfg
  64. # 
  65.  
  66. proc VerifyIpxNwipChain {elem chain} {
  67.     set num [ FindIpxLanNumber adapter /dev/nwip ]
  68.     if { $num == 0 } {
  69.         # 
  70.         #  netware configuration doesn't know about this
  71.         #  chain
  72.         WindowWarning \
  73.         "Netcfg and nwcm configurations are not synchronised.\n\n\
  74.         Netcfg is configured with the chain $chain.\n\
  75.         In the netware configuration this should be identifiable\n\
  76.         as an adapter set to /dev/nwip. Please rectify the \n\
  77.         situation before continuing."
  78.     }
  79. }
  80.  
  81. # Check the chains that netcfg knows about and 
  82. # verify that nwcm knows about them.
  83. # And vice verca.
  84. # And print warnings when necessary
  85. #
  86. proc IpxCheckChains {} {
  87. global MAXLAN
  88.  
  89. set chains [ exec cat /usr/lib/netcfg/chains ]
  90. foreach chain $chains {
  91.     set elems [ split $chain # ]
  92.     set nelem [ llength $elems ]
  93.     set nic [ lindex $elems [ expr $nelem - 1 ] ]
  94.     for { set n 0 } { $n < [ expr $nelem - 1 ] } { incr n } {
  95.         if [ cequal [ lindex $elems $n ] ipx ] {
  96.             # found a chain involving ipx
  97.             if [ cequal $nic "tcp" ] {
  98.                 VerifyIpxNwipChain ipx $chain
  99.             } else {
  100.                 VerifyIpxChain $chain $nic
  101.             }
  102.         }
  103.     }
  104. }
  105.  
  106. # Check the devices nwcm knows about and 
  107. # check that netcfg has them 
  108.  
  109. for { set i 1 } { $i <  [ expr $MAXLAN + 1 ] } { incr i } {
  110.     set adap [ GetNwcmParam lan_${i}_adapter ]
  111.     set tmp [ split $adap / ]
  112.     set dev [ lindex $tmp 2 ]
  113.  
  114.     if { [ cequal ${dev} "nwip" ] } {
  115.         set found 0
  116.         foreach chain $chains {
  117.             if { [ string first "ipx#tcp" $chain ]  != -1 } {
  118.                 set found 1
  119.                 break
  120.             }
  121.         } 
  122.         if { $found == 0 } {
  123.             WindowWarning \
  124.             "Netcfg and nwcm configurations are not synchronised.\n\n\
  125.             Netware is configured to use the device $adap.\n\
  126.             Netcfg does not know about this chain (it should\n\
  127.             appear as ipx running over tcp). Please rectify\n\
  128.             the situation before continuing."
  129.         }
  130.         
  131.     } elseif { ! [ cequal $dev "" ]  } {
  132.         set found 0
  133.         foreach chain $chains {
  134.             if { [ string first "ipx#$dev" $chain ]  != -1 } {
  135.                 set found 1
  136.                 break
  137.             }
  138.         } 
  139.         if { $found == 0 } {
  140.             WindowWarning \
  141.             "Netcfg and nwcm configurations are not synchronised.\n\n\
  142.             Netware is configured to use the device $adap\n\
  143.             Netcfg does not know about this chain. Please\n\
  144.             rectify the situation before continuing."
  145.         }
  146.     }
  147. }
  148.  
  149. }
  150.  
  151. # main
  152.  
  153. IpxCheckChains
  154.