Xpoint
   [напомнить пароль]

$document->is_success не работает

Метки: [без меток]
2007-05-19 05:39:18 [обр] v0l4arrra[досье]

Доброе время суток, уважаемые)
Моя скрипт:
#!/usr/bin/perl -w
use strict;
use LWP;
use HTTP::Request::Common;
my $ua = LWP::UserAgent->new();
$ua->agent("MOZILLA");
my $url = "http://127.0.0.1/cgi-bin/main.cgi";
my $request = POST $url, [link => 'http://neznayu.com/cgi-bin/no.cgi',password => 'victory2006'];
my $document = $ua->request($request);
if ($document->is_success)
{
  print "Content-Type: text/html\n\n";
  print $document->content;
}
    else
    {
      print "Content-Type: text/html\n\n";
      print "Couldn't post to $url\n";
}

Он постит на сайте ссылку, работает правильно, но почему-то выплевывает Couldn't post to....
Мой скрипт на сайте выдает на этот пост стандартный индекс.
Вопрос: что же такое мой сценарий должен отвечать, чтобы скрипт работал?
Ведь не мне точно надо знать запостил я или сервер может быть перегружен или еще что-нить...

спустя 1 час 16 минут [обр] Роман Чемисов(36/350)[досье]

v0l4arrra[досье]
А что выводит команда:

print $document->as_string;

?

спустя 2 дня 20 часов [обр] v0l4arrra[досье]
все спасибо - разобрался)))
Powered by POEM™ Engine Copyright © 2002-2005