# if using Net::Appliance::Session, call this before connect():
# $session_obj->nci->transport->ors("\r\n");
prompt generic
match /[\/a-zA-Z0-9._-]+ ?(?:\(config[^)]*\))? ?[#>] ?$/
prompt privileged
match /> ?$/
prompt configure
match /\(config[^)]*\)# ?$/
prompt user
match /Login Name: ?$/
prompt pass
match /[Pp]assword: ?$/
macro begin_configure
send configure terminal
match /configure terminal/
macro disable_paging
send skip-page-display
match generic
macro enable_paging
send page-display
match generic
macro disconnect
send exit