Error opening tftp://10.0.12/config080106

Получение такой строки в письме с результатами свидетельствует о том, что на удаленном устройстве все команды отработали корректно, но по каким-то причинам TFTP-сервер недоступен.

В последнее время многие модели активного сетевого оборудования снабжаются поддержкой удаленного доступа с помощью протокола ssh. Данный протокол позволяет устанавливать защищенное соединение с удаленным узлом. В силу специфики протокола ssh perl-сценарий, устанавливающий удаленное соединение, будет иметь более сложный вид. В частности, как видно из Листинга 4, при соединении используются псевдотерминалы, которые образуют пары ttyp3 и ptyp3, где pty... – это хозяин или управляющий терминал, а tty... – подчиненный.

Листинг 4. Сценарий с подключением по протоколу SSH

my ($pty, $ssh, @lines);

        my $host = "10.0.1.2";

        my $user = "user";

        my $password = "password";

        my $prompt = '/ $/';

        $pty = &spawn("ssh", "-l", $user, $host);  # spawn() defined below

        use Net::Telnet ();

        use Mail::Sendmail;

        $ssh = new Net::Telnet (-fhopen => $pty,

                                -prompt => $prompt,

                                -telnetmode => 0,

                                -cmd_remove_mode => 1,

                                -output_record_separator => " ");

        ## Соединение с удаленным узлом

        $ssh->waitfor(-match => '/password: ?$/i',

                      -errmode => "return")

            or die "problem connecting to host: ", $ssh->lastline;

        $ssh->print($password);