[AusNOG] Brocade 6910 Backups

[Rick Carter]

Hi James,

See below what changes I made to flogin to get around that issue. Its
not perfect, you still get the pager line in the output, but it now
scrolls through.


for {set i 0} {$i < $num_commands} { incr i} {
        send -h -- "[subst -nocommands [lindex $commands $i]]\r"
        expect {
            -re "^\[^\n\r]*$prompt."    { exp_continue }
            -re "^\[^\n\r *]*$prompt"   {}
            -re "\[\n\r]"               { exp_continue }
            -- "---More---"             { # EdgeIron cant disable pager
                                          send " "
                                          exp_continue
                                        }
#Start 6910 Pager fix - added by rickc

           -- "Next page"               {
                                          send " "
                                          exp_continue
                                        }

#End 6910 Pager fix
        }
    }


Cheers
Rick


On Thu, Jul 19, 2012 at 1:10 PM, James Paussa <lists at puzza.org> wrote:
> Hi,
> I am trying to get rancid working with Brocade 6910 switches. Login works
> correctly however the device doesn't support skip-page-display so I to send
> the a character to the device to disable the paging which I thought I could
> do by adding the following to flogin around line 525 in "proc run_commands":
>  -- "--- \[Space] Next page, \[Enter] Next line, \[A] All, Others to exit
> ---" {
>   send "a"
>   exp_continue
> }
>
> Running 'flogin -d -t 90 -c"show running-config" 10.4.1.100', at the moment
> it gets stuck at:
> expect: does "--- [Space] Next page, [Enter] Next line, [A] All, Others to
> exit ---" (spawn_id exp4) match regular expression "^[^\n\r]*VLL-100#."? no
> "^[^\n\r *]*VLL-100#"? no
> "[\n\r]"? no
> "--- [Space] Next page, [Enter] Next line, [A] All, Others to exit ---"? no
> "---More---"? no
> expect: timed out
>
> I did a search and the two string are the same, I am guessing I am missing a
> character I can't see, just not sure what it might be.
>
> Kind Regards,
> James Paussa.
> _______________________________________________
> AusNOG mailing list
> AusNOG at lists.ausnog.net
> http://lists.ausnog.net/mailman/listinfo/ausnog