Домашний Обмен Файлами В Perl

История, собственно говоря, начинается недалеко, но совсем недавно.

Мои друзья на работе заблокировали доступ ко всему возможному, особенно к половине сайтов и FTP. Этот неприятный факт не позволяет нам быстро, удобно и эффективно обмениваться файлами, в результате чего все было отправлено по почте.

И задача в этом случае предельно простая – «выложить» в открытый доступ какие-то программы, документы или фотографии.

У меня дома сравнительно старый ноутбук HP NX6125 и канал 10 Мбит/с, что в принципе достаточно быстро, чтобы сделать из него бэкап и файловый сервер.

Процесс установки Дебиана и его настройки описывать не буду, так как на Хабралюди не раз писались отличные статьи на эту тему.

Но я лучше расскажу о том, как я непосредственно решал проблему со скачиванием файлов.

Как я уже говорил выше, проблема в том, что у 2/3 нашей команды доступен только порт 80, т. е.

HTTP. Соответственно, самый простой и ортодоксальный способ загрузки по FTP отпадает необходимость по причине его несовместимости с жизнью.

Оставалось только воспользоваться готовым файловым менеджером или написать его самостоятельно.

Посмотрев десяток-другой проектов, я решил написать что-то свое, так как в собственном коде было гораздо проще разобраться, а полностью бесплатных проектов вроде бы почти не было.

Перед написанием были поставлены следующие задачи: — делайте все быстро и технологично, полноценно используйте Ajax/XML/Javascript и другие веб-инструменты; — простота не достигается в ущерб функциональности; — кроссбраузерность и кроссплатформенность (да, чтобы можно было запускать на винде, солярке и вообще).

Я решил написать проект на Perl, благо он рулит и очень подходит для этой задачи.

И вот что произошло в итоге:

Домашний обмен файлами в Perl

Зверь назывался Home File Sharing весьма неоригинально и выпускался под лицензией GPL (исходники можно взять Здесь ).

Что он может сделать: — загружать файлы, в том числе параллельно (можно открыть несколько окон), отображаются индикаторы выполнения; — копировать/удалять/перемещать/переименовывать файлы и папки; - создавать папки.

Что он сможет сделать, когда я доберусь до него: — Перетаскивание; — архивы (распаковка zip на сервере, возможно упаковка).

Протестировано на платформе Debian (где сейчас обитает это чудо) и Windows XP (где оно просто тестировалось); прекрасно работает с Firefox, Opera, Safari, IE7 (в шестерке не проверялось).

Для работы требуется только Perl и веб-сервер, никаких баз данных не требуется.

Да, и, конечно, вы можете посмотреть демо-версию Здесь , но с файлами в демо ничего сделать нельзя.

Так что просто ползайте, смотрите на интерфейс, тыкайте в кнопки.

Теги: #файлообменник #файлообменник #файловый хостинг #perl #домашний сервер #Чулан

Вместе с данным постом часто просматривают:

Автор Статьи


Зарегистрирован: 2019-12-10 15:07:06
Баллов опыта: 0
Всего постов на сайте: 0
Всего комментарий на сайте: 0
Dima Manisha

Dima Manisha

Эксперт Wmlog. Профессиональный веб-мастер, SEO-специалист, дизайнер, маркетолог и интернет-предприниматель.