Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с Post запросом, Причем кажется куки виноваты... 
V
    Опции темы
shamber
  Дата 5.9.2006, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 18
есть такая функция, которая заполяет POST запрос и отправляет ее серверу... 

Код


sub Send{
my ($Number,$Message,$code,$cookie,$debuginfo)=@_;  
#######################
my @nsa_headers = (
'Accept' => 'image/gif, image/x-xbitmap, image/jpeg,
image/pjpeg, image/png, */*',
'Accept-Charset' => 'koi8-ru,*,utf-8',
'Accept-Language' => 'en-US',
'Content-Type' => 'application/x-www-form-urlencoded',
'User-Agent' => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows
NT 5.1)',
'Connection' => 'Keep-Alive',
'Cache-Control' => 'no-cache',
);

#Подключение к серверу #############
$|=1; ### отключаем буферизацию
my $ueag = LWP::UserAgent -> new;
$ueag -> agent(@nsa_headers,'POST');

my $tree = HTML::TreeBuilder->new;
$tree->parse_file($File);# здесь находятся нужные для post параметры.
# Получаем данные формы ############
my $form = ($tree->look_down('_tag'=>'form','name'=>'Submit'));
my $id = $form->{_content}->[0]->{value};
########### заполняем форму #######
my $ua = LWP::UserAgent->new;
$ua->conn_cache(LWP::ConnCache->new);
$ua -> agent(@nsa_headers,'POST');
$ua -> proxy('http', 'http://localhost:8192');
$ua->cookie_jar($cookie);
my $response = $ua->post(SMS_SITE,Content=>
    [
        id => $id,
        action=>'submit',
        Prefix=>' ',
        Address => $Number,
        code => $code,
        Message => $Message,
        Submit => 'Отправить'
    ],Referer => $Page
);
print $response->content;
}



Все замечательно.... но данная подпрограмма отрабатывает только один раз.
т.е. Первый раз она отправляет замечательно,
Но когда я в программе стараюсь запустить ее еще раз, сервер отвечает :" К сожалению, вы ввели неверное число", т.е. существует проблема с переданными Cookie.

Может кому придет в голову замечатеельная идея, как это исправить.
PM MAIL Jabber   Вверх
Buhalich
Дата 14.9.2006, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(shamber @  5.9.2006,  15:25 Найти цитируемый пост)
т.е. существует проблема с переданными Cookie.

Не факт, может быть при повторной посылке SMS ты неправильно получаешь картинку, которую надо подписать.
PM MAIL   Вверх
shamber
Дата 20.9.2006, 12:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 18
Нет, картинка скачивается нормально.... я ее каждый раз вижу и код ввожу.
Прикол в том, что я писал скриптик, который делал все нормально, но  в стремлениии уменьшить количество кода я его исправил. а обратно вспомнить, что исправил не могу. smile 
PM MAIL Jabber   Вверх
Buhalich
Дата 20.9.2006, 14:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(shamber @  20.9.2006,  12:38 Найти цитируемый пост)
Нет, картинка скачивается нормально....

Если можешь, полностью код выложи, потестим ;)
PM MAIL   Вверх
shamber
Дата 21.9.2006, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 18
вопрос решился.

Это сообщение отредактировал(а) shamber - 21.9.2006, 12:20
PM MAIL Jabber   Вверх
nitr
Дата 21.9.2006, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84
shamber, и как он решился?


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
shamber
Дата 21.9.2006, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 18
Сейчас времени нет ковырять функции, поэтому я решил это просто. Тот код вынес в отдельный .pl и запускаю через system(*.pl) работает на ура.
НО понятное дело это не вариант.
Придется позднее после экзаменов в аспирантуру напрячь остаток мозга smile
PM MAIL Jabber   Вверх
shamber
Дата 22.9.2006, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 18
Как всегда мои кривые руки меня убивают.
Проблема была в распознавании кода с сайта.
Все проблема решена !!!!
PM MAIL Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0479 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.