proc dosh { cmd } { set res [exec "term tab html" $cmd] puts "$cmd
" puts "$res
" } set path "" set rtrid "" for {} {1<2} {} { set ln [gets -] if {[string equal $ln "."]} break set sh "$sh$ln
" if {[string first path $ln] >= 0} {set path [string range $ln 5 666]} if {[string first par.rtrid $ln] >= 0} {set rtrid [string range $ln 10 666]} } puts "lsa" puts "" puts "
" puts "rtrid:
" puts "

" dosh "show ipv4 lsrp 1 database $rtrid" dosh "show ipv6 lsrp 1 database $rtrid" puts ""