forked from zentralwerk/network
164 lines
4.6 KiB
Nix
164 lines
4.6 KiB
Nix
# http://h20628.www2.hp.com/km-ext/kmcsdirect/emr_na-c02586144-1.pdf
|
|
{ self, pkgs, hostName, config, hostConfig
|
|
, sort, sortBy, sortNetsByVlan
|
|
, ... }:
|
|
with pkgs;
|
|
with lib;
|
|
''
|
|
#! ${expect}/bin/expect -f
|
|
|
|
spawn ${inetutils}/bin/telnet ${config.site.net.mgmt.hosts4.${hostName}}
|
|
|
|
expect "Password:"
|
|
send "${hostConfig.password}\r"
|
|
expect ">"
|
|
send "system-view\r"
|
|
expect "]"
|
|
|
|
send "sysname ${hostName}\r"
|
|
expect "]"
|
|
|
|
send "user-interface vty 0 4\r"
|
|
expect "ui-vty0-4]"
|
|
send "screen-length 0\r"
|
|
expect "ui-vty0-4]"
|
|
send "user privilege level 3\r"
|
|
expect "ui-vty0-4]"
|
|
send "set authentication password simple ${hostConfig.password}\r"
|
|
expect "ui-vty0-4]"
|
|
send "quit\r"
|
|
expect "${hostName}]"
|
|
|
|
send "local-user admin\r"
|
|
expect -- "-luser-admin]"
|
|
send "password simple ${hostConfig.password}\r"
|
|
expect -- "-luser-admin]"
|
|
send "quit\r"
|
|
expect "${hostName}]"
|
|
|
|
# Enable logging
|
|
send "info-center enable\r"
|
|
expect "]"
|
|
send "info-center loghost ${config.site.net.mgmt.hosts4.logging} channel loghost facility local6\r"
|
|
expect "]"
|
|
send "info-center source default channel loghost log level informational\r"
|
|
expect "]"
|
|
|
|
${concatMapStrings (net:
|
|
let
|
|
netConfig = config.site.net.${net};
|
|
vlan = toString netConfig.vlan;
|
|
inherit (config.site.net.${net}) hosts4;
|
|
hostAddr4 = hosts4.${hostName};
|
|
prefixLength = elemAt (
|
|
builtins.split "/" netConfig.subnet4
|
|
) 2;
|
|
netmask = self.lib.netmasks.${prefixLength};
|
|
in ''
|
|
send "vlan ${vlan}\r"
|
|
expect -- "-vlan${vlan}]"
|
|
send "name ${net}\r"
|
|
expect -- "-vlan${vlan}]"
|
|
${optionalString (net == "mgmt") ''
|
|
# Actually only used for mgmt_vlan, switches are not routers
|
|
send "interface Vlan-interface ${vlan}\r"
|
|
expect "]"
|
|
${optionalString (hosts4 ? ${hostName}) ''
|
|
send "ip address ${hostAddr4} ${netmask}\r"
|
|
expect "]"
|
|
''}
|
|
''}
|
|
send "quit\r"
|
|
expect "${hostName}]"
|
|
'') (sortNetsByVlan (builtins.attrNames config.site.net))
|
|
}
|
|
|
|
${concatMapStrings (name:
|
|
let
|
|
linkConfig = hostConfig.links.${name};
|
|
isAccess = config.site.net ? ${name};
|
|
netConfig = config.site.net.${name};
|
|
isTrunk = !isAccess;
|
|
isBond = isTrunk && builtins.length linkConfig.ports > 1;
|
|
in
|
|
if isTrunk
|
|
then ''
|
|
${optionalString isBond ''
|
|
send "link-aggregation group ${linkConfig.group} mode static\r"
|
|
expect {
|
|
"This aggregation will be modified to static mode. Continue ?" {
|
|
send "Y\r"
|
|
}
|
|
"]" {}
|
|
}
|
|
send "link-aggregation group ${linkConfig.group} description ${name}\r"
|
|
expect "]"
|
|
''}
|
|
${concatMapStrings (port: ''
|
|
send "interface ${port}\r"
|
|
expect "]"
|
|
send "undo stp edged-port\r"
|
|
expect "]"
|
|
${if isBond
|
|
then ''
|
|
send "lacp enable\r"
|
|
expect "]"
|
|
send "undo port link-aggregation group\r"
|
|
expect "]"
|
|
send "port link-aggregation group ${linkConfig.group}\r"
|
|
'' else ''
|
|
send "undo lacp enable\r"
|
|
''}
|
|
expect "]"
|
|
send "jumboframe enable\r"
|
|
expect "]"
|
|
|
|
send "port link-type trunk\r"
|
|
expect "]"
|
|
# Set dummy default vlan
|
|
send "port trunk pvid vlan 4094\r"
|
|
expect "]"
|
|
# Deconfigure all but mgmt vlan
|
|
send "undo port trunk permit vlan 2 to 4094\r"
|
|
expect "]"
|
|
${concatMapStrings (vlan: ''
|
|
send "port trunk permit vlan ${toString vlan}\r"
|
|
expect "]"
|
|
'') (sort linkConfig.vlans)}
|
|
send "quit\r"
|
|
expect "${hostName}]"
|
|
'') (sort linkConfig.ports)}
|
|
'' else
|
|
concatMapStrings (port: ''
|
|
send "interface ${port}\r"
|
|
expect "]"
|
|
send "undo port link-aggregation group\r"
|
|
expect "]"
|
|
send "port link-type access\r"
|
|
expect "]"
|
|
${if name == "mgmt"
|
|
then ''
|
|
send "undo port access vlan\r"
|
|
expect "]"
|
|
'' else ''
|
|
send "port access vlan ${toString netConfig.vlan}\r"
|
|
expect "]"
|
|
''}
|
|
send "quit\r"
|
|
expect "${hostName}]"
|
|
'') (sort linkConfig.ports)
|
|
) (sortBy (link: hostConfig.links.${link}.ports)
|
|
(builtins.attrNames hostConfig.links)
|
|
)}
|
|
|
|
send "save main\r"
|
|
expect "Y/N]"
|
|
send "YES\r"
|
|
expect "press the enter key):"
|
|
send "\r"
|
|
expect "]"
|
|
send "quit\r"
|
|
expect ">"
|
|
send "quit\r"
|
|
''
|