home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / nwnet / root / usr / lib / netcfg / bin / ipxBE / ipxBE~
Text File  |  1998-08-19  |  16KB  |  617 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 "@(#)ipxBE    1.6"
  14. #
  15.  
  16. # This is the netconfig prompter "back-end" for SCO IPX/SPX.
  17. #
  18.  
  19. #cmdtrace on [ open /tmp/ipxBE.log a+ ]
  20.  
  21. set NCFG_DIR        /usr/lib/netcfg
  22.  
  23. set IPX_TMPDIR    /usr/lib/ipxrt/tmp
  24. set IPX_NEWCFG    $IPX_TMPDIR/config
  25. set NWIP off
  26. set AUTO_DISCO_OK 0
  27. set TCP tcp
  28.  
  29. source $NCFG_DIR/bin/ipx.fn
  30.  
  31. loadlibindex /usr/lib/sysadm.tlib
  32.  
  33. # main MAIN Main
  34. #
  35. # NOTE: arguments are:
  36. #    <script name> <netconfig state> <adapter> <framing type list> <interface>
  37.  
  38. global ncfgState NETWORK_MEDIA configList adapter interfaceType \
  39.     dbgInit dbgParse dbgFile
  40.  
  41. set configList {}
  42.  
  43. set dbgInit 1
  44. set dbgParse 0
  45. set dbgFile "/tmp/ipxBE.dbg"
  46.  
  47. # Set up the debugging output (if required).
  48. #
  49. if {$dbgInit || $dbgParse} then {
  50.     if {[set dbgfd [open $dbgFile w]] == -1} then {
  51.         # Open failed, turn off debugging.
  52.         #
  53.         set dbgInit 0
  54.         set dbgParse 0
  55.     }
  56. }
  57.  
  58. # Determine and record the "netconfig state", as indicated by the invoking
  59. # netconfig script.
  60. #
  61. set ncfgState [lindex $argv 0]
  62.  
  63. # Record the adapter being configured over.
  64. #
  65. set adapter [lindex $argv 1]
  66. if [ cequal $adapter "/dev/${TCP}" ] {
  67.     set adapter /dev/nwip
  68. }
  69.  
  70. # Set the framing type variable.  This is expected to be a
  71. # list of valid framing types or UNKNOWN.
  72. #
  73. set NETWORK_MEDIA [lindex $argv 2]
  74.  
  75. # Set the interface type variable.  This is expected to be one of: LLI, DLPI,
  76. # or UNKNOWN.
  77. #
  78. set interfaceType [lindex $argv 3]
  79.  
  80. fcntl $dbgfd NOBUF 1
  81.  
  82. if {$dbgInit} {
  83.     puts $dbgfd "netconfig state: '$ncfgState', Media type: '$NETWORK_MEDIA', adapter: '$adapter', interface: '$interfaceType'"
  84. }
  85.  
  86. # Ensure all replies to the prompter are flushed immediately.
  87. #
  88. fcntl stdout NOBUF 1
  89.  
  90. switch $ncfgState {
  91.     INITIAL_INIT -
  92.     INIT {
  93.         set lanNumber [ GetFreeLanNumber ]
  94.     }
  95.     LIST -
  96.     RECONF {
  97.         # 
  98.         # if more than one lan is configured over a 
  99.         # NIC this will select the one with the lowest
  100.         # lanNumber
  101.         #
  102.         set lanNumber [ FindIpxLanNumber adapter $adapter ]
  103.         if { $lanNumber == 0 } {
  104. #                    echo \
  105. #            "ipxBE: Attempting to access ipx configuration over adapter $adapter. This is not configured " >&3
  106.                     exit 3
  107.         }
  108.     }
  109. }
  110.  
  111. set LAN_NETWORK        [GetNwcmParam lan_${lanNumber}_network]
  112. set RIP_AGE_INT        [GetNwcmParam lan_${lanNumber}_rip_ageout_intervals]
  113. set FRAME_TYPE        [GetNwcmParam lan_${lanNumber}_frame_type]
  114. set SERVER_NAME        [GetNwcmParam server_name]
  115. set AUTO_DISCOVERY    [GetNwcmParam ipx_auto_discovery] 
  116. set INTERNAL_NN        [GetNwcmParam ipx_internal_network]
  117. set ROUTER_TYPE        [GetNwcmParam router_type]
  118. set MAX_SPX_CON        [GetNwcmParam spx_max_connections]
  119. set MAX_SPX_SOC        [GetNwcmParam spx_max_sockets]
  120. set IPX_START        [GetNwcmParam ipx_start_at_boot]
  121. set SPX_START        [GetNwcmParam spx]
  122.  
  123. if [ cequal $adapter /dev/nwip ] {
  124.     set NWIP on
  125.     set  NWIP_DOMAIN    [GetNwcmParam nwip_domain]
  126.     set  NWIP_SYNC        [GetNwcmParam nwip_db_sync_interval]
  127.     set  NWIP_PORT        [GetNwcmParam nwip_port]
  128.     set  NSQ_BC        [GetNwcmParam nwip_nsq_broadcast]
  129.     set  NWIP_DSS        [GetNwcmParam nwip_preferred_dss]
  130.     set  NWIP_SVR        [GetNwcmParam nwip_nearest_server]
  131. }
  132.  
  133. #
  134. # Depending upon state, set parameters to sensible values
  135. #
  136. switch $ncfgState {
  137.     INITIAL_INIT -
  138.     INIT {
  139.         #
  140.         # try and ensure a sensible server name gets set
  141.         #
  142.  
  143.         if { [ cequal $SERVER_NAME "" ] } {
  144.             set SERVER_NAME    [exec uname -n ]
  145.         }
  146.  
  147.         #
  148.         # verify that a suitable packet type has been 
  149.         # provided - the default provided by nwcm is 
  150.         # ethernet which is not reasonable for an fddi or
  151.         # token-ring card
  152.         #
  153.  
  154.         set fr $FRAME_TYPE 
  155.         set media [ ctoken fr _ ]
  156.         switch $NETWORK_MEDIA {
  157.             ETHER {
  158.                 if { ! [ cequal $media "ETHERNET" ] }  {
  159.                     set FRAME_TYPE  ETHERNET_802.2
  160.                 }
  161.             }
  162.             TOKEN {
  163.                 if { ! [ cequal $media "TOKEN-RING" ] }  {
  164.                     set FRAME_TYPE TOKEN-RING
  165.                 }
  166.             }
  167.             FDDI {
  168.                 if { ! [ cequal $media "FDDI" ] }  {
  169.                     set FRAME_TYPE FDDI
  170.                 }
  171.             }
  172.         }
  173.         
  174.         #
  175.         # now try and figure out an external number 
  176.         # and frame type via nwdiscover.
  177.         # XXX
  178.         # This can only be done if the device node 
  179.         # has been added and idbuild -M performed on the
  180.         # device.
  181.         #
  182.         AutoDiscover $adapter
  183.     }
  184.     LIST {
  185.     }
  186.     RECONF {
  187.         # 
  188.         # if more than one lan is configured over a 
  189.         # NIC this will select the one with the lowest
  190.         # lanNumber
  191.         #
  192.  
  193.         # if you're modifying and the network address is still 0
  194.         # then run nwdiscover as you could be running over a nic 
  195.         # which required a reboot before it could be accessed
  196.         #
  197.         if [ cequal $LAN_NETWORK "0x0" ] {
  198.             AutoDiscover $adapter
  199.         }
  200.  
  201.     }
  202. }
  203.  
  204.  
  205.  
  206. switch $ncfgState {
  207.     INIT {
  208.         # set an internal number if 
  209.         # 1: its not the first ipx lan (its obligatory then)
  210.         # 2: its the first lan and the user wants one - you can't
  211.         #    figure that bit out until you get to the questions
  212.         #
  213.         if [ cequal  $INTERNAL_NN "0x0" ] {
  214.             random seed [ getclock ]
  215.             set INTERNAL_NN [ format "0x%8.8X" [ random 2147483647 ] ]
  216.         }
  217.         # Auto discovery with 2 lans is not a good idea.
  218.         set AUTO_DISCO_OK 0
  219.         set AUTO_DISCOVERY off
  220.     }
  221.     INITIAL_INIT {
  222.         set AUTO_DISCO_OK 1
  223.     }
  224.     RECONF {
  225.         if { [ IpxNumLan ]  == 1 } {
  226.             set AUTO_DISCO_OK 1
  227.         } else {
  228.             set AUTO_DISCO_OK 0
  229.             set AUTO_DISCOVERY off
  230.         }
  231.     }
  232.     LIST {
  233.         set AUTO_DISCO_OK 1
  234.     }
  235. }
  236.  
  237.  
  238. # Parse the commands from the prompter; perform appropriate actions for each
  239. # command.
  240. #
  241. # Assumptions:
  242. #  - all commands are actually upper case
  243. #  - all commands follow the established syntax
  244. #
  245.  
  246. while { [ gets stdin line ] != -1 } {
  247.  
  248.     set REQUEST [ lindex $line 0 ]
  249.     set ARG1 [ lindex $line 1 ]
  250.     set ARG2 [ lindex $line 2 ]
  251.     switch $REQUEST {
  252.         LIST {
  253.             switch $ARG1 {
  254.                 BASIC {
  255.            if [ cequal $NWIP on ] {
  256.            echo "\
  257.             { LAN_NETWORK \"External network number\" LABEL \"Enter the external IPX network number for this network\" } \
  258.             { FRAME_TYPE \"Frame type\" LIST \"Select the frame type for this network\" } \
  259.             { ADVANCED_INTF \"Advanced interface options\" NEWSCREEN \"\" } \
  260.             { GLOBAL_IPX \"Global IPX/SPX options\" NEWSCREEN \"\" } \
  261.             { NWIP \"NetWare/IP options\" NEWSCREEN \"\" } \
  262.             "
  263.            } else {
  264.            echo "\
  265.             { LAN_NETWORK \"External network number\" LABEL \"Enter the external IPX network number for this network\" } \
  266.             { FRAME_TYPE \"Frame type\" LIST \"Select the frame type for this network\" } \
  267.             { ADVANCED_INTF \"Advanced interface options\" NEWSCREEN \"\" } \
  268.             { GLOBAL_IPX \"Global IPX/SPX options\" NEWSCREEN \"\" } \
  269.              "
  270.            }
  271.         }
  272.                 ADVANCED_INTF {
  273.             echo "\
  274.             { RIP_AGE_INT \"rip ageout interval\" LABEL \"Enter the rip ageout interval in seconds\"} \
  275.             "
  276.         }
  277.                 GLOBAL_IPX {
  278.             echo "\
  279.             { INTERNAL_NN \"Internal network number\" LABEL \"Enter the internal IPX number for this machine\" } \
  280.             { SERVER_NAME \"Server name\" LABEL \"Enter the netware server name\" } \
  281.             { MAX_SPX_CON \"Maximum SPX connections\" LABEL \"Enter the maximum number of SPX connections allowed on this machine\" } \
  282.             { MAX_SPX_SOC \"Maximum SPX sockets\" LABEL \"Enter the maximum number of SPX sockets allowed on this machine\" } \
  283.             { ROUTER_TYPE \"Router type\" RADIO \"Enter the router type for this machine\" } \
  284.             { AUTO_DISCOVERY \"Auto discovery \" RADIO \"IPX automatic network discovery at boot\" } \
  285.             { IPX_START \"IPX start at boot ?\" RADIO \"Do you want IPX to start at boot ?\" } \
  286.             { SPX_START \"SPX start with ipx?\" RADIO \"Do you want SPX to start when ipx starts ?\" } \
  287.             "
  288.         }
  289.                 NWIP {
  290.             echo "\
  291.             { NWIP_DOMAIN \"NetWare/IP domain\" LABEL \"The NWIP domain which this machine belongs to\" } \
  292.             { NWIP_SYNC \"NWIP database sync interval\" LABEL \"Time in seconds for the synchronisation of the SAP/RIP database with the DSS\" } \
  293.             { NWIP_PORT \"NWIP UDP port\" LABEL \"The UDP port NWIP will use for communicating with the DSS\" } \
  294.             { NSQ_BC \"NWIP broadcasts to find DSS\" RADIO \"If on, the system will broadcast to the local subnet to find the nearest DSS\" } \
  295.             { NWIP_DSS \"NWIP preferred DSS list\" LABEL \"Comma separated list of IP address for preferred DSS servers\" } \
  296.             { NWIP_SVR \"NetWare/IP server list\" LABEL \"Comma separated list of IP addresses of nearest NetWare/IP servers\" } \
  297.             "
  298.         }
  299.                 default {
  300.                     echo "ipxBE: Unknown argument to LIST" >&3
  301.                     exit 1
  302.         }
  303.             }
  304.     }
  305.         CURRENT {
  306.             switch $ARG1 {
  307.                 BASIC {
  308.             echo "\
  309.             { LAN_NETWORK 1 \"$LAN_NETWORK\" } \
  310.             { FRAME_TYPE 1 \"$FRAME_TYPE\" } \
  311.             "
  312.         }
  313.                 ADVANCED_INTF {
  314.             echo " \
  315.             { RIP_AGE_INT 1 \"$RIP_AGE_INT\" } \
  316.             "
  317.         }
  318.                 GLOBAL_IPX {
  319.             if { $AUTO_DISCO_OK } {
  320.                 echo " \
  321.                 { SERVER_NAME 1 \"$SERVER_NAME\" } \
  322.                 { INTERNAL_NN 1 \"$INTERNAL_NN\" } \
  323.                 { MAX_SPX_CON 1 \"$MAX_SPX_CON\" } \
  324.                 { MAX_SPX_SOC 1 \"$MAX_SPX_SOC\" } \
  325.                 { IPX_START 1 \"$IPX_START\" } \
  326.                 { SPX_START 1 \"$SPX_START\" } \
  327.                 { ROUTER_TYPE 1 \"$ROUTER_TYPE\" } \
  328.                 { AUTO_DISCOVERY 1 \"$AUTO_DISCOVERY\" } \
  329.                 "
  330.             } else {
  331.                 echo " \
  332.                 { SERVER_NAME 1 \"$SERVER_NAME\" } \
  333.                 { INTERNAL_NN 1 \"$INTERNAL_NN\" } \
  334.                 { MAX_SPX_CON 1 \"$MAX_SPX_CON\" } \
  335.                 { MAX_SPX_SOC 1 \"$MAX_SPX_SOC\" } \
  336.                 { IPX_START 1 \"$IPX_START\" } \
  337.                 { SPX_START 1 \"$SPX_START\" } \
  338.                 { ROUTER_TYPE 1 \"$ROUTER_TYPE\" } \
  339.                 { AUTO_DISCOVERY 0 \"$AUTO_DISCOVERY\" } \
  340.                 "
  341.             }
  342.         }
  343.         NWIP {
  344.             echo " \
  345.                 { NWIP_DOMAIN 1 \"$NWIP_DOMAIN\" } \
  346.                 { NWIP_SYNC   1 \"$NWIP_SYNC\" } \
  347.                 { NWIP_PORT   1 \"$NWIP_PORT\" } \
  348.                 { NSQ_BC      1 \"$NSQ_BC\" } \
  349.                 { NWIP_DSS    1 \"$NWIP_DSS\" } \
  350.                 { NWIP_SVR    1 \"$NWIP_SVR\" } \
  351.                  "
  352.         }
  353.                 default {
  354.                     echo "BE: Unknown argument to CURRENT" >&3
  355.                     exit 1
  356.         }
  357.             }
  358.     }
  359.         VALUES {
  360.             switch $ARG1 {
  361.         IPX_START -
  362.         SPX_START -
  363.         NSQ_BC -
  364.                 AUTO_DISCOVERY {
  365.                     echo "on off"
  366.         }
  367.         FRAME_TYPE {
  368.             switch $NETWORK_MEDIA {
  369.                 ETHER {
  370.                     echo     "ETHERNET_802.2 \
  371.                          ETHERNET_II \
  372.                          ETHERNET_802.3  \
  373.                          ETHERNET_SNAP"
  374.                 }
  375.                 TOKEN {
  376.                     echo    "TOKEN-RING \
  377.                          TOKEN-RING_SNAP"
  378.                 }
  379.                 FDDI {
  380.                     echo     "FDDI \
  381.                          FDDI_SNAP"
  382.                 }
  383.                 default {
  384.                     echo     "ETHERNET_II \
  385.                          ETHERNET_802.2 \
  386.                          ETHERNET_802.3  \
  387.                          ETHERNET_SNAP    \
  388.                          FDDI \
  389.                          FDDI_SNAP \
  390.                          TOKEN-RING \
  391.                          TOKEN-RING_SNAP"
  392.                 }
  393.             }
  394.         }
  395.         ROUTER_TYPE {
  396.             echo "FULL CLIENT"
  397.         }
  398.                 default {
  399.                     echo "BE: Unknown argument to VALUES" >&3
  400.                     exit 1
  401.         }
  402.             }
  403.     }
  404.         SET {
  405.             switch $ARG1 {
  406.         LAN_NETWORK {
  407.             if [IsValidNwcmParam lan_${lanNumber}_network $ARG2] {
  408.                 set LAN_NETWORK $ARG2
  409.                 echo "OK"
  410.             } else {
  411.                 #
  412.                 # don't try and check for == 0x0
  413.                 # it may fail if the number is too large
  414.                 #
  415.                 if { [ cequal $ARG2 "0x0" ] } {
  416.                     set LAN_NETWORK $ARG2
  417.                     echo "OK internal network turned off"
  418.                 } else {
  419.                     echo "ERROR invalid external network number"
  420.                 }
  421.             }
  422.         }
  423.         FRAME_TYPE {
  424.             if [IsValidNwcmParam lan_${lanNumber}_frame_type $ARG2 ]  {
  425.                 set FRAME_TYPE $ARG2
  426.                 echo "OK"
  427.             } else {
  428.                 echo "ERROR invalid frame type"
  429.             }
  430.         }
  431.         SERVER_NAME {
  432.             if [IsValidNwcmParam server_name $ARG2 ] {
  433.                 set SERVER_NAME $ARG2
  434.                 echo "OK"
  435.             } else {
  436.                 echo "ERROR invalid server name"
  437.             }
  438.         }
  439.         AUTO_DISCOVERY {
  440.             set AUTO_DISCOVERY $ARG2
  441.             echo "OK"
  442.         }
  443.         INTERNAL_NN {
  444.             if [IsValidNwcmParam ipx_internal_network $ARG2 ] {
  445.                 set INTERNAL_NN $ARG2
  446.                 echo "OK"
  447.             } else {
  448.                 echo "ERROR invalid internal network number"
  449.             }
  450.         }
  451.         ROUTER_TYPE {
  452.             set ROUTER_TYPE $ARG2
  453.             echo "OK"
  454.         }
  455.         MAX_SPX_CON {
  456.             if [IsValidNwcmParam spx_max_connections $ARG2 ] {
  457.                 set MAX_SPX_CON $ARG2
  458.                 echo "OK"
  459.             } else {
  460.                 echo "ERROR maximum number of SPX connections"
  461.             }
  462.         }
  463.         MAX_SPX_SOC {
  464.             if [IsValidNwcmParam spx_max_sockets $ARG2 ] {
  465.                 set MAX_SPX_SOC $ARG2
  466.                 echo "OK"
  467.             } else {
  468.                 echo "ERROR maximum number of SPX sockets" 
  469.             }
  470.         }
  471.         IPX_START {
  472.             set IPX_START $ARG2
  473.             echo "OK"
  474.         }
  475.         SPX_START {
  476.             set SPX_START $ARG2
  477.             echo "OK"
  478.         }
  479.         RIP_AGE_INT {
  480.             if [IsValidNwcmParam \
  481.                lan_${lanNumber}_rip_ageout_intervals $ARG2 ] {
  482.                 set RIP_AGE_INT $ARG2
  483.                 echo "OK"
  484.             } else {
  485.                 echo "ERROR invalid RIP ageout interval"
  486.             }
  487.         }
  488.         NWIP_DOMAIN {
  489.             if [IsValidNwcmParam nwip_domain $ARG2 ] {
  490.                 set NWIP_DOMAIN $ARG2
  491.                 echo "OK"
  492.             } else {
  493.                 echo "ERROR illegal nwip domain name" 
  494.             }
  495.         }
  496.         NWIP_SYNC  {
  497.             if [IsValidNwcmParam nwip_db_sync_interval $ARG2 ] {
  498.                 set NWIP_SYNC $ARG2
  499.                 echo "OK"
  500.             } else {
  501.                 echo "ERROR invalid nwip database sync interval" 
  502.             }
  503.         }
  504.         NWIP_PORT {
  505.             if [IsValidNwcmParam nwip_port $ARG2 ] {
  506.                 set NWIP_PORT $ARG2
  507.                 echo "OK"
  508.             } else {
  509.                 echo "ERROR illegal nwip port number" 
  510.             }
  511.         }
  512.         NSQ_BC {
  513.             set NSQ_BC $ARG2
  514.             echo "OK"
  515.         }
  516.         NWIP_DSS {
  517.             if [IsValidNwcmParam nwip_preferred_dss $ARG2 ] {
  518.                 set NWIP_DSS $ARG2
  519.                 echo "OK"
  520.             } else {
  521.                 echo "ERROR illegal DSS IP address list" 
  522.             }
  523.         }
  524.         NWIP_SVR {
  525.             if [IsValidNwcmParam nwip_nearest_server $ARG2 ] {
  526.                 set NWIP_SVR $ARG2
  527.                 echo "OK"
  528.             } else {
  529.                 echo "ERROR illegal server IP address list" 
  530.             }
  531.         }
  532.                 default {
  533.                     echo "ipxBE: Unknown argument to SET" >&3
  534.                     exit 1
  535.         }
  536.         }
  537.     }
  538.     PAGEINIT {
  539.         switch $ARG1 {
  540.         BASIC {
  541.             echo "{IPX/SPX Protocol Configuration} {} {NET_ipxspx} {ipxN.config.html} {OK}"
  542.         }
  543.         ADVANCED_INTF {
  544.             echo "{Advanced IPX/SPX Interface Configuration} {} {NET_ipxspx} {ipxN.advconfig.html} {OK}"
  545.         }
  546.         GLOBAL_IPX {
  547.             echo "{Global IPX/SPX Configuration} {} {NET_ipxspx} {ipxN.glconfig.html} {OK}"
  548.         }
  549.         NWIP {
  550.             echo "{NetWare/IP Configuration} {} {NET_ipxspx} {ipxN.nwip.html} {OK}"
  551.         }
  552.             default {
  553.             echo "ipxBE: Unknown argument to PAGEINIT" >&3
  554.             exit 1
  555.         }
  556.         }
  557.     }
  558.         USER_DONE {
  559.         # user is done
  560.         # save all information for main netcfg script
  561.  
  562.         if { [set config_fd [open $IPX_NEWCFG w]] == -1} {
  563.             echo "ERROR cannot open file $IPX_NEWCFG for writing"
  564.             exit 1
  565.         }
  566.  
  567.         puts $config_fd lan_${lanNumber}_network=$LAN_NETWORK
  568.         puts $config_fd lan_${lanNumber}_rip_ageout_intervals=$RIP_AGE_INT
  569.         puts $config_fd lan_${lanNumber}_frame_type=$FRAME_TYPE
  570.         puts $config_fd server_name=$SERVER_NAME
  571.         puts $config_fd ipx_auto_discovery=$AUTO_DISCOVERY
  572.         puts $config_fd ipx_internal_network=$INTERNAL_NN
  573.         puts $config_fd router_type=$ROUTER_TYPE
  574.         puts $config_fd spx_max_connections=$MAX_SPX_CON
  575.         puts $config_fd spx_max_sockets=$MAX_SPX_SOC
  576.         puts $config_fd ipx_start_at_boot=$IPX_START
  577.         puts $config_fd spx=$SPX_START
  578.  
  579.         if [ cequal $NWIP on ] {
  580.             puts $config_fd lan_${lanNumber}_adapter=/dev/nwip
  581.             puts $config_fd nwip_domain=$NWIP_DOMAIN
  582.             puts $config_fd nwip_db_sync_interval=$NWIP_SYNC
  583.             puts $config_fd    nwip_port=$NWIP_PORT
  584.             puts $config_fd    nwip_nsq_broadcast=$NSQ_BC
  585.             puts $config_fd nwip_preferred_dss=$NWIP_DSS
  586.             puts $config_fd nwip_nearest_server=$NWIP_SVR
  587.         } else {
  588.             puts $config_fd lan_${lanNumber}_adapter=$adapter
  589.         }
  590.  
  591.         switch $NETWORK_MEDIA {
  592.             ETHER {
  593.                 puts $config_fd \
  594.                     lan_${lanNumber}_adapter_type=ETHERNET_DLPI
  595.             }
  596.             TOKEN-RING {
  597.                 puts $config_fd \
  598.                     lan_${lanNumber}_adapter_type=TOKEN-RING_DLPI
  599.             }
  600.             FDDI {
  601.                 puts $config_fd \
  602.                     lan_${lanNumber}_adapter_type=FDDI_DLPI
  603.             }
  604.         }
  605.             
  606.  
  607.         close $config_fd
  608.  
  609.         echo "OK"
  610.     }
  611.         default {
  612.             echo "ipxBE: Unknown request <$line>" >&3
  613.             exit 1
  614.     }
  615.     }
  616. }
  617.