blob: dcab14eaad4427cad899074312cb4c71429723bd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
class Comware < Oxidized::Model
# HP (A-series)/H3C/3Com Comware
# sometimes the prompt might have a leading nul
prompt /^(\0)*(<[\w.-]+>)$/
comment '# '
# example how to handle pager
#expect /^\s*---- More ----$/ do |data, re|
# send ' '
# data.sub re, ''
#end
cmd :all do |cfg|
#cfg.gsub! /^.*\e\[42D/, '' # example how to handle pager
cfg.each_line.to_a[1..-2].join
end
cfg :telnet do
username /^Username:$/
password /^Password:$/
end
cfg :telnet, :ssh do
# enable command-line mode on SMB comware switches (HP V1910, V1920)
# autodetection is hard, because the 'summary' command is paged, and
# the pager cannot be disabled before _cmdline-mode on.
if vars :comware_cmdline
post_login do
send "_cmdline-mode on\n"
send "y\n"
send vars(:comware_cmdline) + "\n"
end
end
post_login 'screen-length disable'
post_login 'undo terminal monitor'
pre_logout 'quit'
end
cmd 'display version' do |cfg|
cfg = cfg.each_line.select {|l| not l.match /uptime/i }.join
comment cfg
end
cmd 'display device' do |cfg|
comment cfg
end
cmd 'display current-configuration' do |cfg|
cfg
end
end
|
