Net::FTP в perl
Подскажите пожалста как назначать исходящие порты вручную, при установлении фтп соединения?
Условие 1.
Удаленный фтп сервер находится за файрволом, который не позволяет работать с этим сервером в пассивном режиме. Настройки этого файрвола, понятное дело, мне неизвестны, однако с сервером можно без проблем работать в активном режиме.
Условие 2.
На моем компе тоже стоит файрвол, в котором я могу выделить некоторый диапазон портов, для того чтоб фтп в активном режиме мог установить со мной соединение(Data connection).
Вот как мне задать этот диапазон исходящих портов при создании соединения? В доке на модуль Net::FTP написано, что задать порт можно только $ftp->port, но тогда придется самому этот порт и обслуживать. Как-то не очень нравится мне затея писать свой фтп клиент на базе уже существующего :( Как же быть?
Условие 1.
Удаленный фтп сервер находится за файрволом, который не позволяет работать с этим сервером в пассивном режиме. Настройки этого файрвола, понятное дело, мне неизвестны, однако с сервером можно без проблем работать в активном режиме.
Условие 2.
На моем компе тоже стоит файрвол, в котором я могу выделить некоторый диапазон портов, для того чтоб фтп в активном режиме мог установить со мной соединение(Data connection).
Вот как мне задать этот диапазон исходящих портов при создании соединения? В доке на модуль Net::FTP написано, что задать порт можно только $ftp->port, но тогда придется самому этот порт и обслуживать. Как-то не очень нравится мне затея писать свой фтп клиент на базе уже существующего :( Как же быть?