VPF::Upload файла через https - Форум программистов

Delp

Дата 23.10.2007, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 10.4.2007

Репутация: нет
Всего: нет

Добрый день!

В Perl я совсем не силен.

Подскажите пожалуйста, как через форму загрузить файл на сервер по протоколу https. Дело в том что загрузка должна работать автоматом через определенный интервал и загружать определенные файлы на сервер. Нашел кучу скриптов, но это все были web интерфейсы, а мне нужен обыкновенный скрипт, который потом будет гонять cron.

Помогите пожалуйста.

С уважением Дмитрий.

Delp

Дата 23.10.2007, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 10.4.2007

Репутация: нет
Всего: нет

Может быть вопрос прозвучал не корректно.

Попробуем так.

Есть форма для загрузки фалов. Проходим по ссылке, вводим имя пользователя, пароль и получаем к ней доступ. Как обычно выбираем файл, нажимаем кнопку, файл загружается.

Вопрос. Можно ли к этой форме обращаться скриптом и таким образом аплоудить файлы в автоматическом режиме?

GoodBoy

Дата 23.10.2007, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: 2
Всего: 83

Цитата(Delp @ 23.10.2007, 17:38

)

Можно ли к этой форме обращаться скриптом и таким образом аплоудить файлы в автоматическом режиме?

нельзя

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

arto

Дата 23.10.2007, 19:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

Цитата(GoodBoy @ 23.10.2007, 18:06

)

нельзя

почему?

Delp

Дата 24.10.2007, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 10.4.2007

Репутация: нет
Всего: нет

мне на другом форуме ответили

perldoc WWW::Mechanize

Delp

Дата 24.10.2007, 09:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 10.4.2007

Репутация: нет
Всего: нет

Вот пример загрузки одного изображения как двух различных на flickr, так что все можно

Засада только в том, что сдесь авторизация проходит через форму, а у меня авторизация проходит по другому, появлется окно где нужно ввести имя и пароль, как базовая аутентификация Apache.

Как это сдесь реализовать?

Код


# require 'rubygems'  
# require 'mechanize'  
#   
# agent = WWW::Mechanize.new  
#   
# # Get the flickr sign in page  
# page  = agent.get('http://flickr.com/signin/flickr/')  
#   
# # Fill out the login form  
# form  = page.forms.name('flickrloginform').first  
# form.email = ARGV[0]  
# form.password = ARGV[1]  
# page  = agent.submit(form)  
#   
# # Go to the upload page  
# page  = agent.click page.links.text('Upload')  
#   
# # Fill out the form  
# form  = page.forms.action('/photos_upload_process.gne').first  
# form.file_uploads.name('file1').first.file_name = ARGV[2]  
# agent.submit(form)

Добавлено через 10 минут и 49 секунд
Кажись нашел

Код


    use MIME::Base64;

    my $agent = WWW::Mechanize->new();
    my @args = (
        Authorization => "Basic " .
            MIME::Base64::encode( USER . ':' . PASS )
    );

    $agent->credentials( ADDRESS, REALM, USER, PASS );
    $agent->get( URL, @args );

Delp

Дата 24.10.2007, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 10.4.2007

Репутация: нет
Всего: нет

Только вот не могли бы вы помочь собрать это воедино?

fray

Дата 31.10.2007, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 7.6.2007

Репутация: 0
Всего: 0

Цитата(Delp @ 24.10.2007, 10:04)

Только вот не могли бы вы помочь собрать это воедино?

да можно WWW::Mechanize->upload($file); так загружать файлы на сервер, но это лишь сокращенный вариант LWP::UserAgent->post("multypart"); можно и так, а creadentials нужен только в случае base-authorized, а потом получаетете свои куки и шлёти файлы

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »