[Expectperl-discuss] Problems logging, capture interrupted

[Juan P. F. G. <jfe...@gm...>]

Hi all, i have problems logging a session to a cisco router, i send
some show commands , but expect stops capturing to the log...

Here is my code:

                $telnet->log_file("$host.txt", "w");
                $telnet->send_slow(0, "ter le 0\n");
                $telnet->send_slow(0, "sh ver\n");
                $telnet->send_slow(0, "sh run\n");
                $telnet->send_slow(0, "sh diag\n");
                $telnet->send_slow(0, "sh flash\n");
                $telnet->send_slow(0, "sh ip int bri\n");
                $telnet->send_slow(0, "sh interfaces\n");
                $telnet->send_slow(0, "sh ip route\n");
                $telnet->send_slow(0, "sh dial-p voice sum\n");
                $telnet->send_slow(0, "sh processes memory\n");
                $telnet->send_slow(0, "sh processes cpu\n");
                $telnet->send_slow(0, "sh processes history\n");
                $telnet->send_slow(0, "q\n");
                $telnet->send_slow(0, "\n");
                $telnet->log_file(undef);

those cisco's sh comands should create a log of 1400 lines, but expect
stops at line 321...

how can i capture the entire command's output?

Thanks in advance