отправляю я значит сообщения на сайт
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}->
$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;
}
}
Вот эта функция нормально отправляет одно сообщения.. Но когда я следом пытаюсь отправить еще одно, то ответ отрицательный.
Выключаю, а потом снова включаю и одно сообщение отсылается, более не выходит.
