4X_Pro
Руководитель Проекта
Настоящий Компьютерщик
Откуда: Москва Всего сообщений: 2994 Рейтинг пользователя: 79 Дата регистрации на форуме: 29 сен. 2001
|
Профиль | Сообщить модератору | ИгнорироватьNEW! Сообщение отправлено: 12 февраля 2004 14:41
В общем, я разобрался: там все довольно просто. Создание подключения: $host = "localhost"; (имя хоста) $params{"protocol"}="1,2"; (протоколы сначала пытаться SSH1, затем SSH2) $params{"cipher"}="3DES"; (тип шифрования) $params{"port"}=22; $var = Net::SSH::Perl->new($host, %params); Вход на сервер: $var->login($login,$password); Выполнение команды: ($out, $err, $exit) = $ssh->cmd($cmd, [ $stdin ]) $cmd - текст команды, $stdin - что записать в stdin, $out - результат выполнения команды (т.е. что она вывела) $err - ошибки, которые были выведены в stderr $exit - код возврата. Остальное тебе вряд ли потребуется... Но дело в том, что этот самый Net::SSH - это только модуль, а чтобы его использовать через броузер (насколько я понял, тебе именно это нужно), тебе придется самостоятельно написать небольшой CGI-скрипт, который будет принимать команду, отправленную с помощью HTTP-формы, устанавливать соедиение, выполнять ее, и выводить в броузер результат ее выполнения.
--- Каждый человек всегда может найти, чем он может быть полезен окружающим. Проблема только в одном: слишком многие не хотят это искать.
|