home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / nwnet / root / usr / lib / netcfg / bin / ipx.uc / ipx
Text File  |  1998-08-19  |  5KB  |  200 lines
  1. #!/bin/tcl
  2. #    
  3. #    
  4. #   Copyright (C) 1997, The Santa Cruz Operation, Inc.
  5. #   All Rights Reserved.
  6. # 
  7. #   The information in this file is provided for the exclusive use of
  8. #   the licensees of The Santa Cruz Operation, Inc.  Such users have the
  9. #   right to use, modify, and incorporate this code into other products  
  10. #   for purposes authorized by the license agreement provided they include
  11. #   this notice and the associated copyright notice with any such product.
  12. #   The information in this file is provided "AS IS" without warranty.
  13. #
  14. #ident "@(#)ipx.uc    1.5"
  15. #
  16.  
  17. # This file is used to update the netware configuration
  18.  
  19. #cmdtrace on [ open "/tmp/ipxuc.log" a+ ]
  20.  
  21. # Global constants:
  22. set OK 0
  23. set FAIL 1
  24. set RELINK 2
  25. set CANCEL 3
  26. set REBOOT 2
  27.  
  28.  
  29.  
  30. set configFile "/etc/netware/nwconfig"
  31.  
  32. #
  33. # file containing nwcm commands to update the configuration
  34. #
  35.  
  36. set IPX_NEWCFG "/usr/lib/ipxrt/tmp/config"
  37. set NWCM "/usr/sbin/nwcm.be"
  38. set NETINFO "/usr/sbin/netinfo"
  39. set NETCONFIG "/etc/netconfig"
  40. set TCP tcp
  41. set IPX_TMPDIR "/usr/lib/ipxrt/tmp"
  42.  
  43. source /usr/lib/netcfg/bin/ipx.fn
  44.  
  45. # main Main MAIN
  46.  
  47. global attrFile ncfgState adapter interface dbg dbgfd
  48.  
  49. loadlibindex /usr/lib/sysadm.tlib
  50.  
  51. set attrFile [lindex $argv 0]
  52. set ncfgState [lindex $argv 1]
  53. set adapter [lindex $argv 2]
  54.  
  55. if [ cequal $adapter "/dev/${TCP}" ] {
  56.     set adapter /dev/nwip
  57. } 
  58. set interface [lindex $argv 3]
  59.  
  60. exec cp $configFile $IPX_TMPDIR
  61.  
  62. set dbg 0
  63. if {$dbg} then {
  64.     if {[set dbgfd [open "/tmp/ipxuc.dbg" w]] == -1} then {
  65.         set dbg 0
  66.     }
  67. }
  68.  
  69. switch $ncfgState {
  70.     INITIAL_INIT -
  71.     INIT -
  72.     RECONF {
  73.         #
  74.         # someone wants the netware config updated 
  75.         # all netware parameters involved are in 
  76.         # the IPX_NEWCFG file
  77.         #
  78.         if { [set config_fd [open $IPX_NEWCFG r]] == -1 } {
  79.             return "ERROR cannot open file $IPX_NEWCFG for reading"
  80.         }
  81.  
  82.         if [ cequal $adapter "/dev/nwip" ] {
  83.             if [catch {exec $NETINFO -a -d nwip -p inet} ret] {
  84.                 puts "netinfo error:"
  85.                 puts $ret
  86.                 exit $FAIL
  87.             } 
  88.         }
  89.  
  90.         #
  91.         # Some default nwcm values cannot be set directly and 
  92.         # have to be set using the -r option to nwcm.
  93.         # If Setting a value fails its probably a good idea
  94.         # to set it to the default anyway - so do it.
  95.         #
  96.  
  97.         while { [ gets $config_fd line ] != -1 } {
  98.             if [catch {exec $NWCM -s $line} ret] {
  99.                 #puts "nwcm error:$NWCM $line"
  100.                 #puts $ret
  101.                 #puts "setting to default"
  102.                 #
  103.                 # get the parameter from the line 
  104.                 #
  105.                 set splitline [split $line = ]
  106.                 set param [lindex $splitline 0 ]
  107.                 if [catch {exec $NWCM -r $param} ret] {
  108.                     puts "nwcm error:$NWCM $line"
  109.                     puts $ret
  110.                 }
  111.             } 
  112.         }
  113.  
  114.         close $config_fd
  115.         exec rm $IPX_NEWCFG
  116.     }
  117.     REMOVE {
  118.         #
  119.         # the remove script has been called
  120.         # simply remove the network configured 
  121.         # over the interface. 
  122.         #
  123.         # XXX If this is the only interface configured 
  124.         # and ipx_auto_discovery is set you maybe want to 
  125.         # warn the user that rebooting the system is 
  126.         # likely to reconfigure the card
  127.         # 
  128.  
  129.         #
  130.         # Repeatedly remove any ipx's configured over
  131.         # the card since several ipx lan's can be 
  132.         # configured over one NIC.
  133.         #
  134.  
  135.         set resetPParams {         \
  136.             adapter             \
  137.             network             \
  138.             rip_ageout_intervals     \
  139.             frame_type             \
  140.         }
  141.  
  142.         while {[set number [FindIpxLanNumber adapter $adapter] ]} {
  143.             foreach pp $resetPParams {
  144.                 if [catch {exec $NWCM -r lan_${number}_$pp } ret] {
  145.                     puts "nwcm error:$NWCM $line"
  146.                     puts $ret
  147.                 }
  148.             }
  149.         }
  150.  
  151.         # 
  152.         # reset to default any of the other parameters which 
  153.         # might have been modified so that if the number
  154.         # gets re-used then we don't acquire old values
  155.         #
  156.  
  157.         # remove the netinfo entry for the nwip driver
  158.  
  159.         if [ cequal $adapter "/dev/nwip" ] {
  160.             if [catch {exec $NETINFO -r -d nwip} ret] {
  161.                 puts "netinfo error:"
  162.                 puts $ret
  163.                 exit $FAIL
  164.             } 
  165.         }
  166.     }
  167.     default {
  168.         echo "ipx.uc:unknown command" $ncfgState
  169.         exit $FAIL
  170.     }
  171. }
  172.  
  173. if [ catch {exec diff $configFile $IPX_TMPDIR/nwconfig} ret ] {
  174.     #
  175.     # things have changed - suggest a reboot 
  176.     #
  177.     # check to see if we want netconfig entries present or not
  178.     #
  179.     catch {exec $NWCM -v "ipx_start_at_boot"} ret
  180.  
  181.     if [ cequal $ret "ipx_start_at_boot=off" ] {
  182.         exec grep -v "^\[is\]px " $NETCONFIG > $IPX_TMPDIR/netconfig
  183.         exec mv $IPX_TMPDIR/netconfig $NETCONFIG
  184.     } else {
  185.         if [ catch { exec grep "^\[is\]px " $NETCONFIG } ret ] {
  186.             exec echo "spx tpi_cots_ord v netware spx /dev/nspx2 /usr/lib/novell.so\nipx tpi_clts     v netware ipx /dev/ipx   /usr/lib/novell.so" >> $NETCONFIG
  187.         }
  188.     }
  189.     
  190.     exec rm $IPX_TMPDIR/nwconfig
  191.     exit $REBOOT
  192. }
  193.  
  194.  
  195. exec rm $IPX_TMPDIR/nwconfig
  196.  
  197. exit $OK
  198.  
  199.     
  200.