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
|
# if using Net::Appliance::Session, call this before connect():
# $session_obj->nci->transport->ors("\r\n");
prompt prompt
match /[\/a-zA-Z0-9._-]+ ?(?:\(config[^)]*\))? ?[#>] ?$/
prompt basic
match /# ?$/
prompt privileged
match /> ?$/
prompt configure
match /\(config[^)]*\)# ?$/
prompt user
match /Login Name: ?$/
prompt pass
match /Password: ?$/
macro begin_configure
send 'configure terminal'
match /configure terminal/
macro paging
send 'skip-page-display'
macro disconnect
send exit
match prompt
|
