Темы

1

Perl / ПРОблема с отсылкой данных методом POST

« : 03 Сентября 2006, 17:16:44 »

отправляю я значит сообщения на сайт

sub SendSyte{
        my ($Meg,$Number,$Message,$code,$cookie,$debuginfo)=@_;
#######################
        my @ns_headers = (
                    \'Accept\' => \'image/gif, image/x-xbitmap, image/jpeg,
                image/pjpeg, image/png, */*\',
      \'Accept-Charset\' => \'koi8-ru,*,utf-8\',
                \'Referer\' => \'http://www.xxx.ru/\',
                \'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(@ns_headers,\'POST\');
       ###########################

        my $tree = HTML::TreeBuilder->new;
        $tree->parse_content($Meg);
# Получаем данные формы ############
        my $form = ($tree->look_down(\'_tag\'=>\'form\',\'name\'=>\'Submit\'));
        my $id = $form->{_content}->

• ->{value};

            $tree->delete;
########### заполняем форму #######
        my $request = POST(http://www.xxx.ru/,
                 Content=>[
                        id => $id,
                        action=>\'submit\',
                        Prefix=>\' \',
                        Address => $Number,
                        code => $code,
                        Message => $Message,
                        Submit => \'Отправить\'
                    ],
                Referer => \'http://www.xxx.ru/\'
            );
        $cookie->add_cookie_header($request);
        my $resp = $ueag->request($request); ########## Отправляем на сервер
        die $resp->status_line unless $resp->is_success; ### если нет ответа - выходим

# парсим удачно или нет #########
        my $mytree = HTML::TreeBuilder->new;
        $mytree->parse_content($resp->content);
     
        my $formresponse = ($mytree->look_down(\'_tag\'=>\'form\',\'name\'=>\'Query\'));
     
        if ($formresponse == undef){
            open(MY, ">>debug.txt");
            print MY $debuginfo;
            close MY;
            print $resp->content;
        }
       
    }


Вот эта функция нормально отправляет одно сообщения.. Но когда я следом пытаюсь отправить еще одно, то ответ отрицательный.
Выключаю, а  потом снова включаю и одно сообщение отсылается, более не выходит.