Не работающий perl-скрипт скачки с rapidshare
Пробовал написать скрипт на perl (модуль LWP), работающий на удаленном сервере, для скачивания с рапидшары. Поскольку при скачке нужно вводить код, скрипт управляется пользователем через браузер. Примерная схема работы. Скрипту передается ссылка, он запрашивает рапидшару, получает страницу и анализирует. Определяет ссылку на кодовое изображение, время задержки и прямые линки на файл (сейчас их два, Альфа и Омега). Выждав указанное время скрипт загружает картинку и возвращает ответ пользователю. В ответе передаются ссылки и изображение (уже скачанное с рапидшары). Пользователь выбирает ссылку, вводит код изображения и запускает второй скрипт, который методом ПОСТ передает эти данные на Рапидшару. Здесь происходит облом - возвращается сообщение что файла нет ))). Скрипт использует LWP::UserAgent. Идентифицирует себя как Файерфокс, заголовок Refer передает 'http://rapidshare.de'. Не могу понять, как они вычисляют. У кого есть опыт написания скриптов, имитирующих реальные браузеры - откликнитесь, плиз)
У кого есть опыт написания скриптов, дост
|
